'Abbrechen' Button richtig in VBA

Computer: Software & Programmierung Microsoft Access
1

Hallo liebe Wissende,

seit einigen Wochen beschäftige ich mich nun mit Access Datenbanken. In einigen Formularen würde ich gerne einen „Abbrechen“-Button einfügen, der das geöffnete Formular schließt ohne die eingegebenen Daten in die zugrundeliegende Tabelle speichert.

Meine bisherigen Versuche lauten:
1.

Private Sub Befehl_Abbrechen_Click()
On Error GoTo Err_Befehl_Abbrechen_Click

DoCmd.DoMenuItem acEditMenu, acEdit, acUndo
DoCmd.Close

Exit_Befehl_Abbrechen_Click:
Exit Sub

Err_Befehl_Abbrechen_Click:
MsgBox Err.Description
Resume Exit_Befehl_Abbrechen_Click

End Sub

Problem: Wenn ich das leere Formular schließen möchte, sagt er mir, dass die Aktion „Rückgängig“ nicht zur Verfügung steht.

DoCmd.quit
schließt mir die ganze Datenbank

DoCmd.close
speichert die Daten.

Hat einer von euch vielleicht eine Idee?

Im Archiv habe ich nichts gefunden.

Danke schonmal vorab.
Gruß
Mareike

2

Mahlzeit,

Problem: Wenn ich das leere Formular schließen möchte, sagt er
mir, dass die Aktion „Rückgängig“ nicht zur Verfügung steht.

ja, weil da noch nichts verändert wurde. Teste mal auf die Eigenschaft „Dirty“ des Formulars.
Das müßte laufen:

Private Sub Befehl\_Abbrechen\_Click()
 On Error GoTo Err\_Befehl\_Abbrechen\_Click

**If Me.Dirty Then**
 DoCmd.DoMenuItem acEditMenu, acEdit, acUndo
**End If**
 DoCmd.Close

Exit\_Befehl\_Abbrechen\_Click:
 Exit Sub

Err\_Befehl\_Abbrechen\_Click:
 MsgBox Err.Description
 Resume Exit\_Befehl\_Abbrechen\_Click

End Sub

Gruß

Sancho

P.S. Apropos Dirty, also vor der Ehe kann man schon… äh… *duckundweg*

3

Hi Sancho,

super, danke! Das funktioniert!

Private Sub Befehl_Abbrechen_Click()
On Error GoTo Err_Befehl_Abbrechen_Click

If Me.Dirty Then
DoCmd.DoMenuItem acEditMenu, acEdit, acUndo
End If
DoCmd.Close

Exit_Befehl_Abbrechen_Click:
Exit Sub

Err_Befehl_Abbrechen_Click:
MsgBox Err.Description
Resume Exit_Befehl_Abbrechen_Click

End Sub

P.S. Apropos Dirty, also vor der Ehe kann man schon… äh…
*duckundweg*

Gruß
Mareike

P.S.: Manchmal lohnt es sich Dinge bis zum Schluss zu verfolgen…

4

Mahlzeit,

P.S.: Manchmal lohnt es sich Dinge bis zum Schluss zu
verfolgen…

ach so, ich lese gerade, du hast das also doch… äh… bis zum Schluß verfolgt :smile:

Gruß

Sancho

5

Puh! Ruf wieder hergestellt! OWT
*glückgehabt*