Looking Up the Call Stack for a Previous Error Handler : Error Handler « Language Basics « VBA / Excel / Access / Word






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

Looking Up the Call Stack for a Previous Error Handler

 
Sub Func1()
    On Error GoTo Func1_Err
    Debug.Print "I am in Function 1"
    Call Func2
    Debug.Print "I am back in Function 1"
    Exit Sub
Func1_Err:
    msgBox "Error in Func1"
    Resume Next
End Sub

Sub Func2()
    Debug.Print "I am in Func2"
    Call Func3
    Debug.Print "I am still in Func2"
End Sub

Sub Func3()
    Dim sngAnswer As Single
    Debug.Print "I am in Func3"
    sngAnswer = 5 / 0
    Debug.Print "I am still in Func3"
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.Read user choice when dealing with error
9.error handling by checking the Error code
10.EBEngine.Errors