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
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“)
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