Aktualisierungsdatum einfügen, nachdem der Datensatz geändert wurde

Eigenschaften: Formular
Aktion: Vor Aktualisierung

If Me.Dirty Then  ' prüft, ob der Datensatz geändert wurde
    Me!Aktualisierungsdatum = Date
    If MsgBox("Änderungen speichern?", vbYesNo, "Speichern?") = vbNo Then
      Me.Undo   ' rückgängig
      Cancel = True   ' Ereignisse verhindern
    End If
End If