Lookup "Trappable Errors" in Access Visual Basic Help.
Print the mesages from a VBA module:
Sub PrintErrorMessages()
Dim ErrNum As Long, ErrMsg As String
On Error Resume Next
Debug.Print "---------------------------------------"
Debug.Print "Start Error Message Print"
For ErrNum = 1 To 1000
ErrMsg = Error(ErrNum)
If Err.Number > 0 Or ErrMsg = "Application-defined or object-defined error" Then
Else
Debug.Print CStr(ErrNum) & ": " & ErrMsg
End If
Next ErrNum
Debug.Print "---------------------------------------"
Debug.Print "Finished Error Message Print"
End Sub
Terry L. Broadbent - Salt Lake City, UT
Home of the 2002 Winter Olympics (Feb 8-24)