error handling by checking the Error code : Error Handler « Language Basics « VBA / Excel / Access / Word





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