Listing of Access 2003 error codes?

>Hi,
>
>There is code in Alison Balter's excellant "Mastering Access 2003" to
>create a list of error codes and descriptions but it only generates
>error messages 3 through 94. Is there a website with a list of all of
>the error messages (with descriptions?).
>
>Thanks,
>
>-paul

>I don't remember where I got this code. If you recognize your code, let me
>know and I'll add it to the code.
>
>-----------------------------------
>Function AccessAndJetErrorsTable() As Boolean
>
>Dim dbs As DAO.Database, tdf As TableDef, fld As Field
>Dim rst As DAO.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
>---------------------------------------------
>

>PW wrote:

>I don't remember where I got this code. If you recognize your code, let me
>know and I'll add it to the code.
>
>-----------------------------------
>Function AccessAndJetErrorsTable() As Boolean
>
>Dim dbs As DAO.Database, tdf As TableDef, fld As Field
>Dim rst As DAO.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
>---------------------------------------------
>
>PW wrote:

>[quoted text clipped - 63 lines]>>
>This returns "function call on left-hand side of assignment must
>return variant or object".
>
>And, I can't find the table "AccessAndJetErrors"
>
>-pw

I don't remember where I got this code. If you recognize your code, let me
know and I'll add it to the code.

>
>It's from Access 97 Help, as modified when Access 2000 came out, because
>Recordset needed to be changed to DAO.Recordset to disambiguate it from ADODB.
>Recordset, the default for Access 2000 and 2002.

>Are you calling it from the immediate window with:
>?AccessAndJetErrorsTable()
>
>What version of Access are you using?

>
>PW wrote:

>
>2003. I put the code behind a command button on a form. Do I save the
>code as a module first?
>>[quoted text clipped - 10 lines]