A2000, Das Recht zum Formular-Schliessen

Computer: Software & Programmierung Microsoft Access
#1

Hallo,
ich brauche Hilfe mit meinem Code für den Button „Formular schließen“ in meinem Formular. Habe schon einiges ausprobiert, er schmeißt jedoch immer Fehlermeldungen 'raus. Wer weiß, wie ich es am besten anpacke!?? Die ist der Code, wo noch alles funktioniert, wenn ich nun loslege mit meinen Anweisungen…klappt nicht!
Mit dem Schließen-Button wird schon der eingegebene Datensatz gespeichert und das Formular geschlossen. Nun möchte ich aber noch eine Möglichkeit für den User einbauen, die Eingabe zu wiederrufen…bzw. zu bestätigen

Private Sub xyz_Click()

DoCmd.Close

Exit_Befehl23_Click:
Exit Sub

Err_Befehl23_Click:
MsgBox Err.Describtion
Resume Exit_Befehl23_Click

End sub

Bin für jeden Tipp dankbar!!!
Grüße Jörg

#2

Hallo.

ich brauche Hilfe mit meinem Code für den Button „Formular
schließen“ in meinem Formular. Habe schon einiges ausprobiert,
er schmeißt jedoch immer Fehlermeldungen 'raus. Wer weiß, wie
ich es am besten anpacke!?? Die ist der Code, wo noch alles
funktioniert, wenn ich nun loslege mit meinen
Anweisungen…klappt nicht!
Mit dem Schließen-Button wird schon der eingegebene Datensatz
gespeichert und das Formular geschlossen. Nun möchte ich aber
noch eine Möglichkeit für den User einbauen, die Eingabe zu
wiederrufen…bzw. zu bestätigen

Private Sub xyz_Click()

**Dim Answer As Integer

Answer=MsgBox(„Sind Sie sicherblablabla …“,vbYesNo+vbQuestion,„Überschrift“)

If AnswervbYes Then

Beep
MsgBox(„Dann eben nicht. Bäh!“)
Exit Sub

End If**

DoCmd.Close

Exit_Befehl23_Click:
Exit Sub

Err_Befehl23_Click:
MsgBox Err.Describtion
Resume Exit_Befehl23_Click

End sub

Bin für jeden Tipp dankbar!!!
Grüße Jörg

#3

Vielen Dank für die Code,hat auf Anhieb funktioniert…

Grüße Jörg

#4

Hallo,

mit deiner Lösung landest du wieder im Formular, kannst dann dort noch ändern, man kann aber auch im Formular noch einen Button einbauen „Alle Änderungen verwerfen“ mit folgendem Code
dann werden alle Änderungen am Datensatz verworfen.

If MsgBox(„Wollen Sie wirklich alle Änderungen in diesem Datensatz rückgängig machen?“, 276) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
Else
End If

Peter