Wie erzeugt man eine Übersicht
über alle Fehlercodes?
Am einfachsten ist es natürlich, fehlerfrei zu programmieren, denn dann erspart man sich die mühsame Suche nach den Fehlern. Ich möchte
Ihnen aber im Folgenden eine Möglichkeit zeigen, wie man sich eine Übersicht der allgemeinen Fehlercodes (ohne DAO & ADO) verschaffen
kann.
Wie geht man vor:
Erstellen Sie eine neue Tabelle
Name der Tabelle: tblFehlercodes
Felder:
Feld: ErrNumber, Feldtyp: Zahl, Feldgröße: LongInteger, Primärschlüssel,
Feld: ErrDescription, Feldtyp: Text, Feldgröße: 255
Öffnen Sie ein bestehendes Modul oder erstellen Sie ein neues Modul und fügen folgende Prozedur ein:
Public Sub FillFehlerCodes()
Const csObjektFehler As String = _
"Anwendungs- oder objektdefinierter Fehler"
' Ein Verweis (Extras - Verweise) muss auf
' die DAO 3.X Object-Library gesetzt sein!
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim l As Long
Dim sDescription As String
Set dbs = CurrentDb
' Recordset öffnen
Set rst = dbs.OpenRecordset("tblFehlercodes")
' Schleife über alle möglichen Fehler
For l = 1 To 65535
' Sanduhr einschalten
DoCmd.Hourglass True
' Fehlerbeschreibung ermitteln
sDescription = AccessError(l)
' Gibt es eine Beschreibung
If Not Len(Left(sDescription, 250)) = 0 Then
' Alle Fehlernummern überspringen, die anwendungs-
' oder objektdefinierte Fehler hervorrufen
If Not Left(sDescription, 250) = csObjektFehler Then
rst.AddNew
rst![ErrNumber] = l
rst![ErrDescription] = Left(sDescription, 250)
rst.Update
End If
End If
Next l
' Speicher freigeben
If Not rst Is Nothing Then rst.Close: Set rst = Nothing
If Not dbs Is Nothing Then dbs.Close: Set dbs = Nothing
DoCmd.Hourglass False
End Sub |
Der Aufruf erfolgt zum Beispiel mit: Call FillFehlerCodes Das war's schon! Weitere Informationen
finden Sie in der Microsoft Visual Basic-Referenz Onlinehilfe: Stichwort
AccessError-Methode.
Zurück zu Tipps und Tricks
|