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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Language Basics » 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
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.