Beitrag aus SmartTools Access Weekly
Datum der letzten Bearbeitung festhalten
Access 365 2024 2021 2019 2016 2013 2010
FRAGE Ich habe in einem Formular mit Kundendaten ein Textfeld eingefügt, das mir das aktuelle Datum anzeigt. Nun soll dieses Datumsfeld in der Tabelle gespeichert werden und das Datum der letzten Bearbeitung festhalten. Beim Aufruf des Formular steht das Datum im Formular, aber ich weiß nicht, wie ich es automatisch in die Tabelle übertragen kann. Können Sie eine entsprechende VBA-Prozedur vorstellen?
Diverse Anfragen
ANTWORT Erweitern Sie zunächst die Tabelle mit Ihren Kundendaten um ein Feld "ZuletztBearbeitet" vom Datentyp "Datum/Zeit". Stellen Sie im Formular beim Datumsfeld für die Eigenschaft "Vor Aktualisierung" den Eintrag "[Ereignisprozedur]" ein, klicken Sie auf die Schaltfläche mit den drei Punkten und geben Sie folgende Anweisungen im VBA-Editor ein:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.ZuletztBearbeitet = Now
End Sub
Wenn nun am Datensatz eine Änderung erfolgt ist - und nur dann -, speichert Access automatisch das Datum dieser Änderung im Feld "ZuletztBearbeitet" bzw. in der Tabelle.