EBEngine.Errors : Error Handler « Language Basics « VBA / Excel / Access / Word

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

EBEngine.Errors

 
   Public Sub ShowErrors()
      Dim db   As Database
      Dim recT As Recordset
      Dim errE As Error
   
      On Error GoTo ShowErrors_Err
   
      Set db = CurrentDb()
       Set recT = db.OpenRecordset("NonExistantTable")
       recT.Close
    
ShowErrors_Exit:
       Exit Sub
    
ShowErrors_Err:
       Debug.Print "Err = " & Err.Number & ": " & Err.Description
       Debug.Print
    
       For Each errE In DBEngine.Errors
          Debug.Print "Errors: " & errE.Number & ": " & errE.Description
       Next
       Resume ShowErrors_Exit
    
    End Sub

 

Related examples in the same category