Hallo zusammen
ich benötige etwas Hilfe bei meinen [zurück] und [speichern] Buttons.
Situation:
Im Hauptformular kann ich über ein Kombifeld einen MA auswählen. Dann zeigt mir das Unterformular alle Daten zum Thema Arbeitskleidung.
Im Hauptformular befinden sich zwei Buttons zurück und speichern.
Klickt der User auf Speichern, erscheint eine MsgBox mit ja oder nein. Bei Ja soll er den Datensatz speichern und wieder die Anfangsansicht anzeigen. Bei Nein Datensatz nicht speichern und wieder zur Anfangsansicht.
Klickt der User auf zurück, erscheint das Menü, aus dem der User kam.
Problem: Es speichert immer den Datensatz ab, egal ob ich bei speichern auf ja oder nein klicke.
Hier meine Syntax:
Option Compare Database
Option Explicit
Private bolsichern As Boolean
________________________________________
Private Sub zurück_Click()
If bolsichern = True Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm ("Menü Bereich")
Else
DoCmd.Close
DoCmd.OpenForm ("Bereich")
End If
End Sub
__________________________________________________
Private Sub cmdspeichern_Click()
If MsgBox("SPEICHERN?", vbYesNo) = vbYes Then
bolsichern = True
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm ("fomMAKleidung")
Else
DoCmd.Close
DoCmd.OpenForm ("fomMAKleidung")
End If
End Sub
________________________________________
Private Sub ufomMAKleidung_BeforeUpdate(Cancel As Integer)
If Not bolsichern Then
Forms!fomMAKleidung!ufomMAKleidung.Undo
End If
End Sub
_______________________________________________________
Private Sub ufomMAKleidung_AfterUpdate()
bolsichern = False
End Sub
Hi,
in dem Moment, wo das Unterformular verlässt und in das Hauptformular klickst, werden die Daten gespeichert.
Ist es in Deinem Formular-Aufbau machbar, den Speichern_ja_nein-Button in das Unterformular zu verlegen?
Oder kannst Du beim Ereignis "Vor Aktualisierung" die Frage nach dem Speichern stellen?
Harald