Anzeige 'Last Updated'

Computer: Software & Programmierung Microsoft Access
#1

Hi,
in einem Access Datenbank Formular möchte ich ein Feld einbinden, welches mir anzeigt, wann in einem Datensatz zum letzten Male geändert wurde.

Beispiel: ich habe Artikeldatensätze u.a. mit Kurz- und Langtexten. Wenn ich in einem dieser Felder den Text ändere, dann soll Access automatisch das Änderungsdatum generieren und wo auch immer hinschreiben, so dass ich bei jedem neuen Aufruf eben dieses geänderten Textes dies in meinem Formular auch angezeigt bekomme.

Hat das schon einmal jemand von Euch gemacht und kann mir einen Tip geben?

Danke im voraus.

Gruß
Werner Kastens

#2

Hallo Werner,

ich habe in meinem Formular ein gebundenes Feld (ist also auch in der enstprechenden Tabelle vorhanden) mit Namen „Letzte_Bearb“ eingefügt.

Bei der Feld-Eigenschaft „Vor Aktualisierung“ dann einfügen:
=Letzte_Bearb()

Hier die Funktion dazu:

Function Letzte_Bearb()
On Error GoTo Letzte_Bearb_Err

With CodeContextObject
.Letzte_Bearb = Now()
DoCmd.Requery „Letzte_Bearb“
End With

Letzte_Bearb_Exit:
Exit Function

Letzte_Bearb_Err:
MsgBox Error$
Resume Letzte_Bearb_Exit

End Function

gruss Andreas

#3

Anzeige ‚Last Updated‘- Berichtigung!!!
Soll eher heissen:

Bei der FORMULAR-Eigenschaft „Vor Aktualisierung“ dann einfügen:
=Letzte_Bearb()

Bei der Feld-Eigenschaft „Vor Aktualisierung“ dann einfügen:
=Letzte_Bearb()

Hier die Funktion dazu:

Function Letzte_Bearb()
On Error GoTo Letzte_Bearb_Err

With CodeContextObject
.Letzte_Bearb = Now()
DoCmd.Requery „Letzte_Bearb“
End With

Letzte_Bearb_Exit:
Exit Function

Letzte_Bearb_Err:
MsgBox Error$
Resume Letzte_Bearb_Exit

End Function

gruss Andreas

#4

Sub Form_AfterUpdate()

dat_last_update=Now()

End Sub

Gruß kw