Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fehlercodes in eine Tabelle schreiben
zurück: Beispiel-DB für Zeit-/Datumsberechung weiter: Kleine Beispiel DB zu Listboxen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Thomasro
HobbyAccesser seit ewig....


Verfasst am:
05. Okt 2004, 08:13
Rufname: Thomas
Wohnort: Mannheim

Fehlercodes in eine Tabelle schreiben - Fehlercodes in eine Tabelle schreiben

Nach oben
       

Hallo zusammen,

habe in der Hilfe eine Funktion entdeckt die alle festgelegten Fehlercodes mit Beschreibung in eine Tabelle schreibt. Wer es gebrauchen kann, gerade kopieren und ausführen.

Gruß Thomas.
Code:
' Menue: Extras -> Verweise Microsoft DAO 3.xx Object Library muss aktiv sein!
Option Compare Database
Option Explicit

Public Function AccessUndJetFehlertabelle() As Boolean
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim rst As DAO.Recordset
    Dim lngCode As Long
    Dim strAccessErr As String
    Const conAppObjectError = "Anwendungs- oder objektdefinierter Fehler"

    On Error GoTo Error_AccessUndJetFehlertabelle
    ' Fehlertabelle mit den Feldern "Fehlernummer" und
    ' "Fehlerbeschreibung" erstellen.
    Set db = CurrentDb
    Set tdf = db.CreateTableDef("AccessUndJetFehler")
    Set fld = tdf.CreateField("Fehlercode", dbLong)
    tdf.Fields.Append fld
    Set fld = tdf.CreateField("Fehlerzeichenfolge", dbMemo)
    tdf.Fields.Append fld
    db.TableDefs.Append tdf
    ' Datensatzgruppe für Fehlertabelle öffnen.
    Set rst = db.OpenRecordset("AccessUndJetFehler")
    ' Schleife durch Fehlercodes durchlaufen.
    For lngCode = 0 To 3500
        On Error Resume Next
        ' Jeden Fehler berücksichtigen.
        strAccessErr = AccessError(lngCode)
        DoCmd.Hourglass True
        ' Fehlernummern ohne zugehörige Zeichenfolge überspringen.
        If strAccessErr <> "" Then
            ' Codes, die anwendungs- oder objektdefinierte Fehler
            ' generieren, überspringen.
            If strAccessErr <> conAppObjectError Then
                ' Jeden Fehlercode und jede Fehlerzeichenfolge zur
                ' Fehlertabelle hinzufügen.
                rst.AddNew
                rst!Fehlercode = lngCode
                ' Zeichenfolge an Memo-Feld anfügen.
                rst!Fehlerzeichenfolge.AppendChunk strAccessErr
                rst.Update
            End If
        End If
    Next lngCode
    ' Datensatzgruppe schließen.
    rst.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing
    DoCmd.Hourglass False
    RefreshDatabaseWindow
    MsgBox "Access- und Jet-Fehlertabelle wurde erstellt."
    AccessUndJetFehlertabelle = True

Exit_AccessUndJetFehlertabelle:
    Exit Function
Error_AccessUndJetFehlertabelle:
    MsgBox Err & ": " & Err.Description
    AccessUndJetFehlertabelle = False
    Resume Exit_AccessUndJetFehlertabelle
End Function
Willi Wipp
Moderator


Verfasst am:
05. Okt 2004, 09:17
Rufname:
Wohnort: Raum Wiesbaden


Re: Fehlercodes in eine Tabelle schreiben - Re: Fehlercodes in eine Tabelle schreiben

Nach oben
       

Hi Thomas,

und schon wieder ein schoener Tipp von Dir, Danke.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
TommyK
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Okt 2004, 12:59
Rufname:
Wohnort: Sachsen

AW: Fehlercodes in eine Tabelle schreiben - AW: Fehlercodes in eine Tabelle schreiben

Nach oben
       

Hallo,

nach einem ähnlichen Code hab ich folgende Bsp aufgebaut.
Da die Fehlermeldungen von A97/00/XP und 03 teilweise unterschiedlich sind, hab ich auch 4 DB's erstellt.
Info und Download hier: Übersicht der Fehlermeldungen von MS-Access mit Suchformular

_________________
Gruß Tommy
Helge
Moderator Trotzdem kann i. nicht alles wissen


Verfasst am:
17. Apr 2005, 13:08
Rufname:
Wohnort: Hannover / Seelze


Nachfragen zum Thema - Nachfragen zum Thema

Nach oben
       

Nachfragen zum Thema bitte hier -Nachfrage zum Thema: Fehlercodes in eine Tabelle schreiben- stellen.

Gruß Helge
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Kreuztabellenabfrage für neue Tabelle nutzen 3 WaterMan 805 06. Jul 2004, 14:39
mabe38 Kreuztabellenabfrage für neue Tabelle nutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle exportieren als Excel2000 Arbeitsblatt 1 thomassch 916 06. Jul 2004, 12:46
stpimi Tabelle exportieren als Excel2000 Arbeitsblatt
Keine neuen Beiträge Access Tabellen & Abfragen: tabelle exportieren 1 Gast 1501 01. Jun 2004, 12:25
Willi Wipp tabelle exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate einer Tabelle löschen?! 3 Esel 2108 28. Mai 2004, 08:53
lothi Duplikate einer Tabelle löschen?!
Keine neuen Beiträge Access Tabellen & Abfragen: Spaltennamen einer Tabelle ermitteln 1 Alexander Neron 899 27. Mai 2004, 13:47
lothi Spaltennamen einer Tabelle ermitteln
Keine neuen Beiträge Access Tabellen & Abfragen: kein Wert in der Tabelle, dann immer Null (0)?? 3 Michel_9 1005 26. Mai 2004, 14:28
Michel_9 kein Wert in der Tabelle, dann immer Null (0)??
Keine neuen Beiträge Access Tabellen & Abfragen: Operant aus Tabelle in Abfrage verwenden 3 AccessGeek 673 06. Mai 2004, 09:15
lothi Operant aus Tabelle in Abfrage verwenden
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle formatiert in txt-Datei exportieren 1 robby 1115 12. Apr 2004, 23:10
Helge Tabelle formatiert in txt-Datei exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle aus Abfrage erstellen 1 dasti 3317 09. Apr 2004, 12:14
Gast Tabelle aus Abfrage erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch nach Einfügen Word Tabelle 2 topflop 1698 30. März 2004, 16:06
Gast Zeilenumbruch nach Einfügen Word Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: neue Tabellen erstellen aus vorhandener Tabelle 6 moni 2010 29. März 2004, 15:39
moni neue Tabellen erstellen aus vorhandener Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Wert einer Abfrage in Tabelle kopieren? 1 BerlinerWolf 2009 21. März 2004, 12:43
Maya Wert einer Abfrage in Tabelle kopieren?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS