Microsoft Access Programmierrezepte

R12.46 Das Systemprotokoll anzeigen

Aufgabe

Sie möchten die letzten 10 Einträge des Windows Anwendungs-Protokolls ermitteln, um gegebenenfalls auf Fehler reagieren zu können.

Lösung

Verwenden Sie die WMIs und filtern Sie die Ausgabe, um nicht in der Datenflut zu ertrinken.

Oberfläche

Ein einfaches Formular mit zwei Befehlsschaltflächen und einem Textfeld.

Quelltext

Option Explicit

Private Sub OK_Click()
On Error Resume Next
  Dim MOS As Object, MO As Object
  Dim p As Object, i As Integer
  Meldung.value = ""

WMI-Abfrage starten:

Set MOS = GetObject("winmgmts:").ExecQuery("SELECT Category, Message FROM " & _
                                           "Win32_NTLogEvent WHERE Logfile='Application'")

Hinweis

Wie Sie sehen, rufen wir nur die Felder Category und Message ab, weiterhin wird die Ausgabe auf das ...