Übersicht der Fehlercodes Kurzinfo: Dieser Tipp zeigt, wie man sich eine Übersicht der allgemeinen Fehlercodes erstellen kann Access-Version(en): Access 97, 2000 und XP Autor: Manuela Kulpa Homepage: http://www.kulpa-online.de

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!

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

Neuen Tipp melden

Neuen Download melden

Copyright 2000-2003 Microsys Kramer– Alle Rechte vorbehalten - Der Download von Tipps und Programmen von den Seiten www.access-paradies.de erfolgt auf eigene Gefahr. Microsys Kramer haftet nicht für Schäden, die aus der Installation oder der Nutzung von Tipps oder Software aus dem Download-Bereich erfolgen. Trotz aktueller Virenprüfung ist eine Haftung für Schäden und Beeinträchtigungen durch Computerviren ausgeschlossen. Schadenersatzansprüche, aus welchem Rechtsgrund auch immer, sind ausgeschlossen, wenn Microsys Kramer nicht Vorsatz oder grobe Fahrlässigkeit zu vertreten hat. Dies gilt auch für Ansprüche auf Ersatz von Folgeschäden wie Datenverlust.