Supportnet / Forum / Datenbanken
Start der Datenbank protokollieren??
Frage
Weißt jemand wie das geht - so dass in einer Tabelle jeder Start der Datenbank protokolliert wird - mit Datum.
Danke, LG Mike
Antwort 1 von Michael
Hi,
du läßt über ein Logbuch den Aufruf der Datenbank protokollieren ...programmiert als Modul
hier die Funktion:
Function fkt_Logbuch(Ereignis As String)
Dim FileNr As Integer
Dim pfad As String
'*** Freie Datei ermitteln
FileNr = FreeFile
pfad = fkt_Pathfinder()
'Öffnen der Datei an ermittelter Stelle
' Year(Date) für das aktuelle Jahr vierstellig
Open pfad & "Logbuch " & Format(Date, "YYYY") & ".log" For Append As #FileNr
Write #FileNr, Format(Date, "ddmmyy"), Format(Time, "hh:mm:ss"), CurrentUser(), Ereignis
Close #FileNr
End Function
du läßt über ein Logbuch den Aufruf der Datenbank protokollieren ...programmiert als Modul
hier die Funktion:
Function fkt_Logbuch(Ereignis As String)
Dim FileNr As Integer
Dim pfad As String
'*** Freie Datei ermitteln
FileNr = FreeFile
pfad = fkt_Pathfinder()
'Öffnen der Datei an ermittelter Stelle
' Year(Date) für das aktuelle Jahr vierstellig
Open pfad & "Logbuch " & Format(Date, "YYYY") & ".log" For Append As #FileNr
Write #FileNr, Format(Date, "ddmmyy"), Format(Time, "hh:mm:ss"), CurrentUser(), Ereignis
Close #FileNr
End Function