error handling by checking the Error code : 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 
error handling by checking the Error code
 
     Public Sub ErrorHandling()
        On Error GoTo ErrorHandling_Err
        Dim dblResult As Double
        dblResult = 10 / InputBox("Enter a number:")
        MsgBox "The result is " & dblResult
ErrorHandling_Exit:
        Exit Sub
ErrorHandling_Err:
        Select Case Err.Number
        Case 13         ' Type mismatch - empty entry
           Resume
        Case 11         ' Division by 0
           dblResult = 0
           Resume Next
        Case Else
           MsgBox "Oops: " & Err.Description & " - " & Err.Number
           Resume ErrorHandling_Exit
        End Select
     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.EBEngine.Errors
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.