Sub GetErrorTable()
Dim i As Long
Dim db As Database
Dim rs As Recordset

Set db = CurrentDB()
Set rs = db.OpenRecordset( "ErrorTable")
For i = 0 to 32767
If Not IsNull(Error(i)) Then
rs.AddNew
rs!ErrorNumber = i
rs!ErrorDescription = Error(i)
rs.Update
Next i
End If
rs.Close

End Sub

Copyright By AccessVision