Office: (Office 2003) update oder CancelUpdate ohne AddNew oder EDIT

JulianZenses · 15. November 2011

Ich habe ein lästiges Problem in meinem Accessprogramm.
Oft wenn ein User einen Datensatz schlüsseln möchte kommt die Fehlermeldung:

"Update oder CancelUpdate ohne AddNew oder Edit".

Google habe ich bereits durforstet, aber nichts hilfreiches gefunden.

Ich habe die Vermutung, dass der Fehler nach Ausführung einer bestimmten Suchfunktion kommt:

Private Sub schnellsuche_AfterUpdate()
DoCmd.OpenForm FormName:="frm_suchergebnis"
schnellsuche_start
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier die schnellsuche_start sub:

Sub schnellsuche_start()
With Forms!frm_suchergebnis
If IsNumeric(Me!schnellsuche) Then
.RecordSource = "select * from INTA where ppindex = " & Me!schnellsuche & " or tel_number like '" & Me!schnellsuche & "' or tel_number2 like '" & Me!schnellsuche & "' or mobil_number like '" & Me!schnellsuche & "' or tel_stammv like '" & Me!schnellsuche & "' or HANDY_stammv like '" & Me!schnellsuche & "' or tel_number_n like '" & Me!schnellsuche & "' or mobil_number_n like '" & Me!schnellsuche & "'"
Else
.RecordSource = "select * from INTA where name_last like '*" & Me!schnellsuche & "*' or NAME_FIRST like '" & Me!schnellsuche & "' or CITY1 like '" & Me!schnellsuche & "' or tel_number like '" & Me!schnellsuche & "' or tel_number2 like '" & Me!schnellsuche & "' or mobil_number like '" & Me!schnellsuche & "' or tel_stammv like '" & Me!schnellsuche & "' or HANDY_stammv like '" & Me!schnellsuche & "' or tel_number_n like '" & Me!schnellsuche & "' or mobil_number_n like '" & Me!schnellsuche & "'"
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und nun die Ereignisse des Schnellsuchformulars:

open:

Private Sub Form_Open(Cancel As Integer)
top_pos = DLookup("form_top", "tbl_fenster_pos", "form_name like 'frm_suchergebnis'")
left_pos = DLookup("form_left", "tbl_fenster_pos", "form_name like 'frm_suchergebnis'")
Me.Move left_pos, top_pos
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und close:

Private Sub Form_Close()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tbl_fenster_pos SET tbl_fenster_pos.form_top = " & Me.WindowTop & ", tbl_fenster_pos.form_left = " & Me.WindowLeft & " WHERE tbl_fenster_pos.form_name = 'frm_suchergebnis';"
DoCmd.SetWarnings True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fänds echt Keck, wenn mir jemand weiterhelfen kann. Ich weiß es ist viel Quellqode zum überfliegen...

Also danke für jede Antwort

:)

SP17 · 17. November 2011

Aus dem Code kann ich jetzt nichts ersehen.

Die Meldung kommt, wenn Du die Methode .Update auf ein Recordset ausführst, ohne zuvor ein .AddNew bzw. .Edit gemacht zu haben.

Etwa so:

Code:

Set rs = db.OpenRecordset ...
With rs
.AddNew
...
.Update
End With
rs.Close
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 17. November 2011

Hallo,

willkommen im Forum!

Auf dein Problem habe ich gerade im anderen Forum geantwortet!
Wenn Du es so eillig hast die Themen parallel in zig Foren zu verteilen, solltest Du Dich mal auf eine Schullung begeben!
Crossposting ist für alle Helfer teilweise ganz schön ärgerlich!!
Und wenn Du einen Crosspost machst (nach entsprechender Zeit ohne Antwort!) dann weise bitte die Helfer auch darauf hin!

Gruß

LL

JulianZenses · 17. November 2011

Hey, ich bin noch nicht so ganz in der Forum-Szene , aber ich werde es künftig beachten. Eine Schulung wäre generell nicht verkehrt. Danke für die Antworten!

User · 17. November 2011

Bist Du jetzt schon weitergekommen bei Deiner Fehlersuch?
Wenn nicht, wo möchtest Du weitermachen?
Hier in diesem Forum oder hier?

Gruß

LL

Office: (Office 2003) update oder CancelUpdate ohne AddNew oder EDIT

update oder CancelUpdate ohne AddNew oder EDIT

update oder CancelUpdate ohne AddNew oder EDIT

update oder CancelUpdate ohne AddNew oder EDIT

update oder CancelUpdate ohne AddNew oder EDIT - Similar Threads - update CancelUpdate AddNew

Mit CurrentDb.Execute Update Tabelle aktualisieren aus einer anderen Tabelle

Edit und Update

Outlook Signaturen fehlen nach update

Outlook AutoVervollständigen-Liste

Access Tabelle mit Excel Daten updaten

Attribut Schreibschutz

Update oder CancelUpdate ohne AddNew oder Edit