Listing of Access 2003 error codes?

[PW]

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

[ruralguy via AccessMonster.com]

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 AccessAndJetErr orsTable() 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 conAppObjectErr or = "Applicatio n-defined or object-defined error "
On Error GoTo Error_AccessAnd JetErrorsTable
' Create Errors table with ErrorNumber and ErrorDescriptio n fields.
Set dbs = CurrentDb
Set tdf = dbs.CreateTable Def("AccessAndJ etErrors")
Set fld = tdf.CreateField ("ErrorCode" , dbLong)
tdf.Fields.Appe nd fld
Set fld = tdf.CreateField ("ErrorStrin g", dbMemo)
tdf.Fields.Appe nd fld
dbs.TableDefs.A ppend tdf
' Open recordset on Errors table.
Set rst = dbs.OpenRecords et("AccessAndJe tErrors")
' Loop through error codes.
For lngCode = 0 To 3500
On Error Resume Next
' Raise each error.
strAccessErr = AccessError(lng Code)
DoCmd.Hourglass True
' Skip error numbers without associated strings.
If strAccessErr <"" Then
' Skip codes that generate application or object-defined errors.
If strAccessErr <conAppObjectEr ror 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
RefreshDatabase Window
MsgBox "Access and Jet errors table created."
AccessAndJetErr orsTable = True

Exit_AccessAndJ etErrorsTable:
Exit Function

Error_AccessAnd JetErrorsTable:
MsgBox Err & ": " & Err.Description
AccessAndJetErr orsTable = False
Resume Exit_AccessAndJ etErrorsTable
End Function
---------------------------------------------

PW wrote:

>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

--
HTH - RuralGuy (RG for short) acXP WinXP Pro
Please post back to this forum so all may benefit.

Message posted via http://www.accessmonster.com

[PW]

On Fri, 03 Nov 2006 00:20:30 GMT, "ruralguy via AccessMonster.c om"
<u12102@uwewrot e:

>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 AccessAndJetErr orsTable() 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 conAppObjectErr or = "Applicatio n-defined or object-defined error "
On Error GoTo Error_AccessAnd JetErrorsTable
' Create Errors table with ErrorNumber and ErrorDescriptio n fields.
Set dbs = CurrentDb
Set tdf = dbs.CreateTable Def("AccessAndJ etErrors")
Set fld = tdf.CreateField ("ErrorCode" , dbLong)
tdf.Fields.App end fld
Set fld = tdf.CreateField ("ErrorStrin g", dbMemo)
tdf.Fields.App end fld
dbs.TableDefs. Append tdf
' Open recordset on Errors table.
Set rst = dbs.OpenRecords et("AccessAndJe tErrors")
' Loop through error codes.
For lngCode = 0 To 3500
On Error Resume Next
' Raise each error.
strAccessErr = AccessError(lng Code)
DoCmd.Hourglass True
' Skip error numbers without associated strings.
If strAccessErr <"" Then
' Skip codes that generate application or object-defined errors.
If strAccessErr <conAppObjectEr ror 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.Hourglas s False
RefreshDatabas eWindow
MsgBox "Access and Jet errors table created."
AccessAndJetEr rorsTable = True

Exit_AccessAnd JetErrorsTable:
Exit Function

Error_AccessAn dJetErrorsTable :
MsgBox Err & ": " & Err.Description
AccessAndJetErr orsTable = False
Resume Exit_AccessAndJ etErrorsTable
End Function
---------------------------------------------

Looks almost identical, except she loops through 10,000. I will give
it a shot. Thanks!

-pw

>PW wrote:

>>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

[PW]

On Fri, 03 Nov 2006 00:20:30 GMT, "ruralguy via AccessMonster.c om"
<u12102@uwewrot e:

>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 AccessAndJetErr orsTable() 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 conAppObjectErr or = "Applicatio n-defined or object-defined error "
On Error GoTo Error_AccessAnd JetErrorsTable
' Create Errors table with ErrorNumber and ErrorDescriptio n fields.
Set dbs = CurrentDb
Set tdf = dbs.CreateTable Def("AccessAndJ etErrors")
Set fld = tdf.CreateField ("ErrorCode" , dbLong)
tdf.Fields.App end fld
Set fld = tdf.CreateField ("ErrorStrin g", dbMemo)
tdf.Fields.App end fld
dbs.TableDefs. Append tdf
' Open recordset on Errors table.
Set rst = dbs.OpenRecords et("AccessAndJe tErrors")
' Loop through error codes.
For lngCode = 0 To 3500
On Error Resume Next
' Raise each error.
strAccessErr = AccessError(lng Code)
DoCmd.Hourglass True
' Skip error numbers without associated strings.
If strAccessErr <"" Then
' Skip codes that generate application or object-defined errors.
If strAccessErr <conAppObjectEr ror 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.Hourglas s False
RefreshDatabas eWindow
MsgBox "Access and Jet errors table created."
AccessAndJetEr rorsTable = True

Exit_AccessAnd JetErrorsTable:
Exit Function

Error_AccessAn dJetErrorsTable :
MsgBox Err & ": " & Err.Description
AccessAndJetErr orsTable = False
Resume Exit_AccessAndJ etErrorsTable
End Function
---------------------------------------------

PW wrote:

>>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

>>AccessAndJetE rrorsTable = True

This returns "function call on left-hand side of assignment must
return variant or object".

And, I can't find the table "AccessAndJetEr rors"

-pw

[ruralguy via AccessMonster.com]

Are you calling it from the immediate window with:
?AccessAndJetEr rorsTable()

What version of Access are you using?

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.

[quoted text clipped - 63 lines]

>>>
-paul

>>>AccessAndJet ErrorsTable = True

This returns "function call on left-hand side of assignment must
return variant or object".

And, I can't find the table "AccessAndJetEr rors"

-pw

--
HTH - RuralGuy (RG for short) acXP WinXP Pro
Please post back to this forum so all may benefit.

Message posted via http://www.accessmonster.com

[Granny Spitz via AccessMonster.com]

ruralguy 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.

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.

--
Message posted via http://www.accessmonster.com

[ruralguy via AccessMonster.com]

Thanks Granny. Attribute added.

Granny Spitz 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.

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.

--
HTH - RuralGuy (RG for short) acXP WinXP Pro
Please post back to this forum so all may benefit.

Message posted via http://www.accessmonster.com

[PW]

On Tue, 14 Nov 2006 19:32:03 GMT, "ruralguy via AccessMonster.c om"
<u12102@uwewrot e:

>Are you calling it from the immediate window with:
?AccessAndJetE rrorsTable()

What version of Access are you using?

2003. I put the code behind a command button on a form. Do I save the
code as a module first?

>
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.

[quoted text clipped - 63 lines]

>>>>
-paul

>>>>AccessAndJe tErrorsTable = True

This returns "function call on left-hand side of assignment must
return variant or object".

And, I can't find the table "AccessAndJetEr rors"

-pw

[ruralguy via AccessMonster.com]

It is a function and returns a boolean value. Therefore use
Junk = AccessAndJetErr orsTable()
...to invoke the function from a command button.

PW wrote:

>>Are you calling it from the immediate window with:
?AccessAndJet ErrorsTable()

What version of Access are you using?

2003. I put the code behind a command button on a form. Do I save the
code as a module first?

>>>>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.

[quoted text clipped - 10 lines]

>>>
-pw

--
HTH - RuralGuy (RG for short) acXP WinXP Pro
Please post back to this forum so all may benefit.

Message posted via http://www.accessmonster.com