Fejlkoder fra access

Denne virker for access 97

Function AccessAndJetErrorsTable() As Boolean
    Dim dbs As Database, tdf As TableDef, fld As Field
    Dim rst As Recordset, lngCode As Long
    Dim strAccessErr As String
    Const conAppObjectError = "Application-defined or object-defined error"

    On Error GoTo Error_AccessAndJetErrorsTable
    ' Create Errors table with ErrorNumber and ErrorDescription fields.
    Set dbs = CurrentDb
    Set tdf = dbs.CreateTableDef("AccessAndJetErrors")
    Set fld = tdf.CreateField("ErrorCode", dbLong)

tdf.Fields.Append fld
    Set fld = tdf.CreateField("ErrorString", dbMemo)
    tdf.Fields.Append fld

    dbs.TableDefs.Append tdf
    ' Open recordset on Errors table.
    Set rst = dbs.OpenRecordset("AccessAndJetErrors")
    ' Loop through error codes.
    For lngCode = 0 To 3500
        On Error Resume Next
        ' Raise each error.
        strAccessErr = AccessError(lngCode)
        DoCmd.Hourglass True
        ' Skip error numbers without associated strings.
        If strAccessErr <> "" Then

' Skip codes that generate application or object-defined errors.
            If strAccessErr <> conAppObjectError Then
                ' Add each error code and string to Errors table.
                rst.AddNew
                rst!ErrorCode = lngCode
                ' Append string to memo field.
                rst!ErrorString.AppendChunk strAccessErr
                rst.Update
            End If
        End If
    Next lngCode
    ' Close recordset.
    rst.Close
    DoCmd.Hourglass False
    RefreshDatabaseWindow
    MsgBox "Access and Jet errors table created."

AccessAndJetErrorsTable = True

Exit_AccessAndJetErrorsTable:
    Exit Function

Error_AccessAndJetErrorsTable:
    MsgBox Err & ": " & Err.Description
    AccessAndJetErrorsTable = False
    Resume Exit_AccessAndJetErrorsTable
End Function

Hey det ser fint ud. Jeg er ikke den store haj til access :) Hvad skal jeg gøre med den stump kode der?

Indsaet det i et tomt modul og derefter vaelge at koere koden (tryk paa "start" knappen i vaerktoejslinjen) Derefter oprettes en tabel kaldet AccessAndJetErrors autmatisk.

Jeg får en fejl i AccessAndJetErrorsTable() funktionen:
Dim dbs As Database => "user defined type not defined"

Du mangler reference til ADO

Sludder. Du mangler reference til DAO

Ok det fik mig lidt videre. Jeg får nu en fejl : "13: Type mismatch" når jeg kører koden...

hvor stopper debuggeren?

Den stopper ikke desværre. Den smider bare en dialog op med fejlen.

Ok det kom ikke til at du, men tak for hjælpen alligevel.