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

Eigenschaften: Formular\\ 
Aktion: Vor Aktualisierung

<code>
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
</code>