Looking Up the Call Stack for a Previous Error Handler : 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 
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
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.