Allgemein: Wie kann ich mir eine Übersicht der Fehlercodes verschaffen?

[Manuela Kulpa]

Am einfachsten ist es natürlich, fehlerfrei zu programmieren, denn dann erspart man sich die mühsame Suche nach den Fehlern. Ich möchte dir aber im Folgenden eine Möglichkeit zeigen, wie du dir eine Übersicht der allgemeinen Fehlercodes (ohne DAO & ADO) verschaffen kannst.

Wie gehst du vor:

• Erstell dir 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
• Öffne ein bestehendes Modul oder erstell ein neues Modul und füge folgende Prozedur ein:

Code:

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 findest du in der Microsoft Visual Basic-Referenz Onlinehilfe: Stichwort AccessError-Methode. Denk bitte auch immer an die [F1]-Taste (Wort markieren, F1-Taste betätigen), falls du nähere Informationen zu den im Code verwendeten Befehlen benötigst!

[Pittchen]

Hallo Manuela,

das ist ein Klasse Tip!!!

Danke dir auch für deine anderen FAQ-Beiträge ....

wenn es dieses Forum nicht gäbe, wäre ich -programmiertechnisch - immer noch in der Steinzeit

Grüße aus Frankfurt und

macht weiter so

Pittchen

[rolf2]

Super,

genau so was brauchte ich!

[mactoolz]

Hi,

kann man eigentlich den Fehlercode den man auslöst,

also z.B. man legt einen Datensatz an der aber nicht vervollständigt wird weil z.B. Fremdschlüssel noch fehlen, dann kommt die nette Meldung das der Datensatz nicht vollständig ist und ob man ihn speichern möchte oder weiter bearbeiten will.

Mein Frage dazu ist, das ich durch VBA Code meine Wahl zwischen JA/Nein festlegen kann.

Sprich, ich wähle nicht mehr aus, sondern ich lege direkt fest das diese MEldung direkt mit Nein gesetzt wird.

MacToolz

[J_Eilers]

Hi,

auch wenn man hier keine Fragen stellen soll, du kannst mit dem Formularereignis bei Fehler, die Fehlernummer auswerten und entsprechend darauf reagieren (Me.Undo).