Move through the Errors collection and display properties of each Error object : Error « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Error

Move through the Errors collection and display properties of each Error object

 
Public Sub errorTest3()

    Dim myConn As ADODB.Connection
    Dim myErr As ADODB.Error
    Dim strError As String

    On Error GoTo myHandler

    ' Intentionally trigger an error
    Set myConn = New ADODB.Connection
    myConn.Open "nothing"

    Set myConn = Nothing
    Exit Sub

myHandler:

    For Each myErr In myConn.Errors
        strError = "Error #" & Err.number & vbCr & _
            "   " & myErr.Description & vbCr & _
            "   (Source: " & myErr.Source & ")" & vbCr & _
            "   (SQL State: " & myErr.SQLState & ")" & vbCr & _
            "   (NativeError: " & myErr.NativeError & ")" & vbCr
        If myErr.HelpFile = "" Then
            strError = strError & "   No Help file available"
        Else
            strError = strError & _
               "   (HelpFile: " & myErr.HelpFile & ")" & vbCr & _
               "   (HelpContext: " & myErr.HelpContext & ")" & _
               vbCr & vbCr
        End If

        Debug.Print strError
    Next
    Resume Next
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.Viewing the Errors Stored in the Errors Collection
9.Using the LogError Routine
10.Writing Information to a Textual Error Log File
11.The Mail your Error Routine
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