Return to code section and loop before giving up on an error.

[laurenq uantrell]

I'm trying to figure out why I can't loop through a function
(myFunctionXYZ) after an error. The problem is that I can loop from the
error once back into the code section of myFunctionXYZ, but on the
second error the error is reported by the function that called
myFunctionXYZ, Function DooDah.

Example:

Function DooDah()
on Error goto ErrorRoutine

'run some very sexy unrelated code here

call myFunctionXYZ

ExitErrorRoutin e:
Exit Function
ErrorRoutine:
MsgBox "Not what I FREAKING want!",vbCritic al,"I'm So Screwed"
Resume ExitErrorRoutin e
Exit Function

Function myFunctionXYZ()
on Error goto ErrorRoutine

Dim myLoopCount as Integer

RetryThisBlaste dCode:

myLoopCount = myLoopCount + 1
'''blah blah blah this code returns an error and I'm gonna _
try it 10 times before giving up.

ExitErrorRoutin e:
Exit Function
ErrorRoutine:
If err.number = 123 then
If myLoopCount < 11 Then
GoTo RetryThisBlaste dCode
Else
msgBox "Too Bad.",vbCritica l,"Failed after 10 attempts"
End If
Else
msgBox "Some unknown Error.",vbCriti cal,"Lousy Code Writing"
End If
Resume ExitErrorRoutin e
Exit Function
What happens is it gets back from the error to RetryThisBlaste dCode
only one time, then instead of trying 10 times as I want and returning
the error:

"Too Bad.",vbCritica l,"Failed after 10 attempts"

instead it returns the error:

"Not what I FREAKING want!",vbCritic al,"I'm So Screwed"

I'm hoping somebody can help. Thanks.
lq

[laurenq uantrell]

I found the answer:

I need instead the following:

If myLoopCount < 11 Then
RESUME RetryThisBlaste dCode
laurenq uantrell wrote:

I'm trying to figure out why I can't loop through a function
(myFunctionXYZ) after an error. The problem is that I can loop from the error once back into the code section of myFunctionXYZ, but on the
second error the error is reported by the function that called
myFunctionXYZ, Function DooDah.

Example:

Function DooDah()
on Error goto ErrorRoutine

'run some very sexy unrelated code here

call myFunctionXYZ

ExitErrorRoutin e:
Exit Function
ErrorRoutine:
MsgBox "Not what I FREAKING want!",vbCritic al,"I'm So Screwed"
Resume ExitErrorRoutin e
Exit Function

Function myFunctionXYZ()
on Error goto ErrorRoutine

Dim myLoopCount as Integer

RetryThisBlaste dCode:

myLoopCount = myLoopCount + 1
'''blah blah blah this code returns an error and I'm gonna _
try it 10 times before giving up.

ExitErrorRoutin e:
Exit Function
ErrorRoutine:
If err.number = 123 then
If myLoopCount < 11 Then
GoTo RetryThisBlaste dCode
Else
msgBox "Too Bad.",vbCritica l,"Failed after 10 attempts"
End If
Else
msgBox "Some unknown Error.",vbCriti cal,"Lousy Code Writing"
End If
Resume ExitErrorRoutin e
Exit Function
What happens is it gets back from the error to RetryThisBlaste dCode
only one time, then instead of trying 10 times as I want and returning the error:

"Too Bad.",vbCritica l,"Failed after 10 attempts"

instead it returns the error:

"Not what I FREAKING want!",vbCritic al,"I'm So Screwed"

I'm hoping somebody can help. Thanks.
lq