Button "Abbrechen" bringt nichts

30/10/2009 - 16:17 von Michael Alexander | Report spam
Hallo!

Schlecht definierter Betreff, aber mir fiel ac hoc nichts besseres ein!

Ich ahbe ein frm auf dem ich mit einem btn Abbrechen die Eingaben in einen
neuen DS verwerfen möchte.

Code:
Private Sub btnAbbrechen_Click()
Dim strMsg As String

On Error GoTo HandleErr
' TO DO: Turn normal error handler on when this condition is finished.
On Error Resume Next
strMsg = "Möchten Sie die Eingabe oder die Änderung verwerfen?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Abbrechen:") <> vbYes Then Exit
Sub
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True

Das Form_Current Ereignis sieht so aus:

If Me.NewRecord Then
Me.Datum = Date()
Me.User = intUser 'wird aus der Logon-Prozedur entnommen
Me.KaBewID = DMax("KaBewID", "KassaBewListe") + 1
End If

Die Eingaben in die Felder des DS werden zwar gelöscht, aber Datum und User
nicht gelöscht und der Datensatz bleibt in der tbl existent mit 0-Werten!

Wo bitte liegt mein Fehler?

Danke für Eure Hilfe.

Michael

A2k SP3, Win XP Pro
 

Lesen sie die antworten

#1 Thomas Möller
30/10/2009 - 18:23 | Warnen spam
Hallo Michael,

Michael Alexander schrieb:
Ich ahbe ein frm auf dem ich mit einem btn Abbrechen die Eingaben in einen
neuen DS verwerfen möchte.

Code:
Private Sub btnAbbrechen_Click()
Dim strMsg As String

On Error GoTo HandleErr
' TO DO: Turn normal error handler on when this condition is finished.
On Error Resume Next
strMsg = "Möchten Sie die Eingabe oder die Änderung verwerfen?"
If MsgBox(strMsg, vbYesNo + vbQuestion, "Abbrechen:") <> vbYes Then Exit
Sub
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True

Das Form_Current Ereignis sieht so aus:

If Me.NewRecord Then
Me.Datum = Date()
Me.User = intUser 'wird aus der Logon-Prozedur entnommen
Me.KaBewID = DMax("KaBewID", "KassaBewListe") + 1
End If

Die Eingaben in die Felder des DS werden zwar gelöscht, aber Datum und User
nicht gelöscht und der Datensatz bleibt in der tbl existent mit 0-Werten!



ich denke, Access verhàlt sich, wie es soll. ;-)

Mach mal eine MsgBox in das Ereignis Form_Current. Dann wirst Du
feststellen, dass das Ereignis auch nach dem Undo ausgeführt wird. Das
erklàrt dann auch, warum die Felder Datum und User (wieder) befüllt sind.


CU
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen