Request: Need DB to store bugs (1 Viewer)

Function AccessAndJetErrorsTable() As Boolean
Dim dbs 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 = "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 50000
    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

ErrNumber	ErrDescription
3	Return without GoSub
20	Resume without error
35	Sub or Function not defined
91	Object variable or With block variable not set
92	For loop not initialized
94	Invalid use of Null

ErrorCode	ErrorString
3004	**********
3072	|
3193	(unknown)
3194	(unknown)
3209	**********
3316	|
3369	**********
3392	**********
3395	**********
3416	|
3939	|1
4000	|
8057	|
31665	|
31671	|
32619	0,0