Letzte Bearbeitung einer Datenbank

Sprache / Programm: Access ab Version 97

Beschreibung

Die Funktion liefert ein Datum zurück, das angibt, wann die Datenbank zuletzt bearbeitet werden. Damit läßt sich überprüfen, ob am Datum des Rechners manipuliert wurde, was wiederum bei sensiblen Daten oder bei eingeschränkter Laufzeit wichtig ist.

Die Funktion kontrolliert über die Systemtabelle 'MSysObjects' alle Datenbankobjekte und über das Dateisystem das Dateidatum.

VBA-Quelltext

Public Function LetzteBearbeitung(Optional DatenBank As Database) As Date
Dim TempDatum As Date
If DatenBank Is Nothing Then Set DatenBank = CurrentDb

' Datum aller Datenbankobjekte (Tabellen, Abfragen, Formulare, Makros ...) prüfen
LetzteBearbeitung = DatenBank.OpenRecordset("SELECT Max([DateUpdate]) As [Datum] FROM [MSysObjects]")![Datum]

' Datum im Eigenschaftsfenster überprüfen
TempDatum = DatenBank.Containers("Databases").Documents("SummaryInfo").LastUpdated
If LetzteBearbeitung < TempDatum Then LetzteBearbeitung = TempDatum

' Datum der Datei auf der Festplatte prüfen
TempDatum = FileDateTime(DatenBank.Name)
If LetzteBearbeitung < TempDatum Then LetzteBearbeitung = TempDatum

End Function

Argumente der Funktion/Prozedur

Datenbank: Optional. Volständiger Pfad und Dateiname, falls die Prüfung an einer anderen Datenbank vorgenommen werden soll.

Rückgabewert

Das Datum der letzten Bearbeitung.

Anwendungsgebiete, Fehler und Warnungen

Verwendet die DAO Objektbibliothek. Ab Access 2000 muss diese explizit im VBA-Editor über 'Extras' -> 'Verweise' als 'Microsoft DAO 3.6' (oder höher) eingebunden werden und vor die 'Microsoft ADO 2.1' (oder höher) Bibliothek gesetzt werden.