PDA

Vollständige Version anzeigen : Im Formular Anzeigen wann die DB zum letzenmal Geöffnet war


Elko
17.10.2001, 23:39
Hallo erst mal
Kann mir jemand helfen .Ich möchte in einem Formular Anzeigen lassen wann die Db zum letzten Mal Aktualisiert wurde

Schon mal Danke

Lutz
18.10.2001, 04:50
Mach eine versteckte Tabelle.
Felder ID und Datum. In ID schreibst Du eine 1.
Bei irgendeinem Ereignis läßt Du das Datum
(ID=1; Dlookup) schreiben.
Beim nächsten Start erscheint das Datum im Form oder wo Du es haben willst.

Lutz
18.10.2001, 05:31
Function Zugriffsdatum()
'Tabellenname Zugriff
'Feld ID als Byte
'Feld LetzterZugriff als Datum
Dim ZugriffX
ZugriffX = Nz(DLookup("[ID]", "Zugriff", "[ID]= 1"))

Dim dbs As Database, rst As Recordset
Dim strKriterien As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Zugriff", dbOpenDynaset)
strKriterien = "[ID] = 1"
rst.FindFirst strKriterien
If rst.NoMatch Then
MsgBox "Kein oder falscher Wert für ID !"
Else
Do Until rst.NoMatch
rst.Edit
'Hier die Anweisung
MsgBox "" & ZugriffX & ""
If ZugriffX = 1 Then
rst![LetzterZugriff] = Date
End If
rst.Update
rst.FindNext strKriterien
Loop
rst.Close
Set dbs = Nothing
End If
'End Function

End Function

Z.B. bei Formular öffnen

kama
18.10.2001, 07:01
Binde Zwei Ereignisprozeduren an das Formular

Private Sub Form_Unload(Cancel As Integer)
Me.Tag = Date
End Sub

Private Sub Form_Load()
Me![DeinfeldDasDasDatumAnzeigenSoll].Value = Me.Tag
End Sub

Ab dem zweiten öffnen siehst du das Datum

Elko
18.10.2001, 10:31
Hallo Lutz

Es Funktioniert
Vielen Dank