That web page is no longer available.
Perhaps this is what you mean. It's from either the Access help files
(Access 97?) or an old Knowledgebase article. I can't remember.

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