By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
454,968 Members | 1,295 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 454,968 IT Pros & Developers. It's quick & easy.

Return error to initial function

TheSmileyCoder
Expert Mod 100+
P: 2,321
Im having some issues with Error handling or maybe the understanding thereoff. Say I have a function TopFunction which calls a function MiddleFunction 10 times which again calls a function LowFunction 10 times.


Now If LowFunction throws a fatal error and I have no error handling, access is "reset" so to speak. All variable values are wiped from memory, and code execution is stopped (or possibly paused with debug options if its a development version).

However if I do have error handling and catch a unexpected error (One I did not anticipate and therefore basicly don't know how to handle) I want to quit the LowFunction, BUT I also want to quit MiddleFunction and TopFunction from proceeding. Simply exiting the LowFunction just makes middlefunction proceed with the next function call of LowFunction.



Not exactly sure these are the right words to describe it, but its the best I can do. How should I propagate the error back up through MiddleFunction and TopFunction?

OR
If you feel im barking up the wrong tree, please explain how you guys handle this.
Dec 15 '11 #1
Share this Question
Share on Google+
5 Replies


NeoPa
Expert Mod 15k+
P: 31,709
I suspect when you say function, you really mean procedure. The trick is to ensure the procedure is a function procedure, and have a return value that indicates an error.

When a lower-level function returns a value indicating an error has occurred then you have a choice of returning an error indicator straightaway, or throwing an exception (Raise) yourself to trigger the error-handling at the current level (which itself, would presumably handle returning an error value as well as anything else necessary to handle errors for that procedure).

Does that help?
Dec 15 '11 #2

TheSmileyCoder
Expert Mod 100+
P: 2,321
Thank you for your reply.

Yea, I was thinking along those lines, but was wondering if there was something more efficient.

My concern is that it means (As I understand it) that after each run of LowFunction I would need to have an IF statement to check whether or not it threw an error, adding extra overhead to my code. If that is the only way to go about it, then so be it, I was just hoping there might be a more efficient setup. I do realise that in alot of cases its a very very slight overhead, but still. I want to do it the Right/Best Practice way, and being self-taught I sometimes wonder if I am doing that.

Another thing I noticed is that if MiddleFunction has an errorhandler, but LowFunction does not, then the error is handled (or attempted to be handled) in MiddleFunction. I was wondering if I could use that somehow. The issue with this approach is that LowFunction might be reused in many places, and I might desire it to have error handling some times, and not other times (in which I want the higher level function to handle it).

P.s.
Its not necessary to have it be a function. You could do it with a sub as well (Example below)
Expand|Select|Wrap|Line Numbers
  1. Private sub MiddleFunction()
  2.   Dim errNo as long
  3.   LowFunction errNo 
  4.   If ErrNo then
  5.     Err.Raise ErrNo
  6.   End if
  7.   Exit sub
  8. End Sub
  9.  
  10.  
  11. Private Sub LowFunction(errNo as long)
  12. On Error goto ErrHandler
  13.   'Code here
  14.  
  15.  
  16. exit Sub
  17. ErrHandler:
  18.   errNo=Err.Nr
  19.   Exit Sub
  20. End Sub
Dec 15 '11 #3

NeoPa
Expert Mod 15k+
P: 31,709
It is possible to use a Sub procedure as you say. I would certainly consider declaring it explicitly as ByRef in that case though.

An alternative I hinted at, when it is required for the higher level function to handle the error instead, would be to Raise the same error after ensuring error handling had been disabled. A higher level error handler will always pick up errors in lower levels when they occur without any active error handler therein.

Otherwise, error handling does appear to be a little clumsy in VBA. Not as sophisticated as many parts of the syntax for sure.
Dec 16 '11 #4

ADezii
Expert 5K+
P: 8,679
@TheSmileyCoder:
Sorry about coming in a little late, but I found your scenario very interesting, and a challenge to resolve. Give a series of Nested Functions(3), calling each other multiple times, you can actually control as to whether the Top Level or Bottom Level Function controls Error Handling.
  1. Enable Error Handling in the Top Level Function:
    Expand|Select|Wrap|Line Numbers
    1. Public Function TopFunction()
    2. On Error GoTo Err_TopFunction
    3.  
    4. Dim bytCtr As Byte
    5.  
    6. 'Call Middle Function 3 Times
    7. For bytCtr = 1 To 3
    8.   Debug.Print "Top: " & Format$(bytCtr, "00")
    9.     MiddleFunction
    10. Next
    11.  
    12. Exit_TopFunction:
    13.   Exit Function
    14.  
    15. Err_TopFunction:
    16.   MsgBox Err.Description, vbExclamation, "ERROR Somewhere"
    17.     Resume Exit_TopFunction
    18. End Function
  2. Do not enable Error Handling in the Middle Level Function:
    Expand|Select|Wrap|Line Numbers
    1. Public Function MiddleFunction()
    2. Dim bytCtr2 As Byte
    3.  
    4. 'Call Low Function 3 Times
    5. For bytCtr2 = 1 To 3
    6.   Debug.Print "  |-- Middle: " & Format$(bytCtr2, "00")
    7.     LowFunction
    8. Next
    9. End Function
  3. Enable Error Handling in the Low Level Function, in conjunction with the #If...Then...#Else Directive:
    Expand|Select|Wrap|Line Numbers
    1. Public Function LowFunction()
    2. #If HANDLE_LOW_ERRORS Then
    3.   On Error GoTo Err_LowFunction
    4. #End If
    5.  
    6. Dim bytCtr3 As Byte
    7.  
    8. 'Call Low Function 3 Times
    9. For bytCtr3 = 1 To 3
    10.   If bytCtr3 = 3 Then Err.Raise 13
    11.     Debug.Print "      |-- Low: " & Format$(bytCtr3, "00")
    12. Next
    13.  
    14. Exit_LowFunction:
    15.   Exit Function
    16.  
    17. Err_LowFunction:
    18.   MsgBox Err.Description, vbExclamation, "Error in LowFunction()"
    19.     Resume Exit_LowFunction
    20. End Function
  4. Declare a Conditional Compilation Constant that will control which Level Function (Top/Bottom) will handle Errors:
    Expand|Select|Wrap|Line Numbers
    1. 'Top Level Function will handle Errors
    2. #Const HANDLE_LOW_ERRORS = False
    3.  
    4. 'Bottom Level Function will handle Errors
    5. '#Const HANDLE_LOW_ERRORS = True
    6.  
  5. With HANDLE_LOW_ERRORS = False, the Error will travel up the Stack, and be handled by the Top Level Handler. A Single Error Message will be generated.
  6. With HANDLE_LOW_ERRORS = True, the Error will be handled by the Bottom Level Handler. Multiple Error Messages will be generated.
  7. Debug.Print Statements are for Testing Purposes only.
  8. Code has been tested, and appears to be fully operational.
Dec 18 '11 #5

NeoPa
Expert Mod 15k+
P: 31,709
That's a good illustration of what the Context-Sensitive Help system has to say on the matter.
Dec 19 '11 #6

Post your reply

Sign in to post your reply or Sign up for a free account.