Viewing the Errors Stored in the Errors Collection : Error « Language Basics « VBA / Excel / Access / Word

Viewing the Errors Stored in the Errors Collection

Sub TestErrorsCollection()
    On Error GoTo TestErrorsCollection_Err
    Dim db As DAO.Database

    Set db = CurrentDb
    db.Execute ("qryNonExistent")
    Exit Sub
    Dim ErrorDescrip As DAO.Error
    For Each ErrorDescrip In Errors
        Debug.Print ErrorDescrip.number
        Debug.Print ErrorDescrip.Description
    Next ErrorDescrip
    Exit Sub
End Sub


Related examples in the same category

1.Properties of the Err Object
2.Raising an Error
3.Deal with the error
4.Create an error, and then query the object for the error number and description
5.Check the error number
6.Get the Error source
7.Creating a User-Defined Error
8.Using the LogError Routine
9.Writing Information to a Textual Error Log File
10.The Mail your Error Routine
11.Move through the Errors collection and display properties of each Error object
12.Trap the error with On Error GoTo
13.Show Error discription in MsgBox
14.Show Error Number
15.Runtime Error 9: Subscript Out of Range
16.RunTime Error 1004: Method Range of Object Global Failed
17.Try again in case an error