Letztes Änderungsdatum erfassen

Computer: Software & Programmierung Microsoft Access
#1

Hallo Wissende!

Ich hoffe Ihr könnt mir bei meinem Access 2003-Problem weiterhelfen (hab leider im Forum und sonst im Netz nichts Passendes gefunden).

Ich habe eine UserForm mittels der Daten einer Tabelle bearbeitet werden.
Ich möchte aber nun dass in dieser UserForm im Feld „aenderung“ jeweils das letzte Änderungsdatum und Uhrzeit erfasst werden.

In der Tabelle heißt die Spalte natürlich auch „aenderung“ in der die angaben gespeichert werden.

Ich habe folgendes per VBA versucht:

Ereignis: Vor Aktualisierung: [Ereignisprozedur]

Dann in VBA :
Private Sub änderung_BeforeUpdate(Cancel As Integer)
[aenderung] = Date + Time
End Sub

Das funktioniert aber nicht !

Deswegen habe ich dann versucht,
bei den Eigenschaften „Standardwert“ einzugeben:

=fOSUserName() & " - " & Datum() & " " & Zeit()
Dann erscheint zwar alles in dem Feld, doch leider wird es nicht in der Tabelle abgespeichert.

Kann mir jemand schreiben warum nicht ?

Christian

#2

Hallo,

Private Sub Form _BeforeUpdate(Cancel As Integer)
**ME![**aenderung] = Now()
End Sub

Viele Grüße vom Bodensee
Franz, DF6GL

#3

Hallo!
Standardwert wird nur (meines Wissens) gesetzt bei neuen Datensätzen.

Warum nicht einfach bei jedem Feld in Deinem Form nach Akrtualisierung:

DatumLetzteÄnderung = now()

Ich hoffe, das hilft weiter… .

Peter

#4

Hallo Franz,

das sieht gut aus. Datum und Uhrzeit werden abgespeichert.

Aber das mit der ausgelesenen Benutzeranzeige das haut noch nicht ganz hin. Muss das auslesen des Benutzers etwa auch auf dem Unterformular gemacht werden ?

Ich hab das zur Zt. noch in einem eigenständigen Modul.

Kann das daran liegen ?

Gruß Christian

#5

Hallo,

das sieht gut aus. Datum und Uhrzeit werden abgespeichert.

Aber das mit der ausgelesenen Benutzeranzeige das haut noch
nicht ganz hin. Muss das auslesen des Benutzers etwa auch auf
dem Unterformular gemacht werden ?

Nein

Ich hab das zur Zt. noch in einem eigenständigen Modul.

meinst Du die fOSUserName() -Funktion?

Die kann /muss in einem Standard-Modul stehen, wenn sie von überall her aufrufbar sein soll, insofern muß es halt heißen:
.
.
Me!Aenderung=fOSUserName() & " - " & Now()
.
.

#6

Danke Franz,

nun passt´s !

bis bald Christian