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

1.An Example of Code Without Error Handling
2.A Simple Error-Handling Routine
3.An Example of Error Handling Using the On Error GoTo Statement
4.Ignoring an Error and Continuing Execution
5.Using Resume Conditionally Based on User Feedback
6.Placing a Resume Next Statement in Your Error Handler
7.Using the Resume Statement to Specify Where Execution Continues After an Error Occurs
8.Looking Up the Call Stack for a Previous Error Handler
9.Read user choice when dealing with error
10.error handling by checking the Error code