Rats!

[MikeB]

Oh man,
I've been working for hours on this and I never hit save.

So I wrote something that put the program in a loop and when I ran it
that was it, I had to kill the entire Access window.

Lost everything.

I couldn't find a way to interrupt a program that was in a tights
loop running in Debug mode. Did I miss something?

My problem came with error handling.

I had (more or less) the following code:

Sub SubFunc()
on Error GoTo ErrorHandler
for each pty in Object
do stuff
next pty
ErrorHandler:
print error mesage
Resume <=====


that Resume was the killer.
I tried Resume Next but got an error.

How should I have coded it to handle the error and skip on to the next
element in the Object collection?

Thanks.

 

[Roger Carlson]

Usually holding <ctrl>+<Break> will interrupt code execution. This will
also break *some* queries.

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

 

[Dirk Goldgar]

Oh man,
I've been working for hours on this and I never hit save.

So I wrote something that put the program in a loop and when I ran it
that was it, I had to kill the entire Access window.

Lost everything.

I couldn't find a way to interrupt a program that was in a tights
loop running in Debug mode. Did I miss something?

My problem came with error handling.

I had (more or less) the following code:

Sub SubFunc()
on Error GoTo ErrorHandler
for each pty in Object
do stuff
next pty
ErrorHandler:
print error mesage
Resume <=====


that Resume was the killer.
I tried Resume Next but got an error.

How should I have coded it to handle the error and skip on to the next
element in the Object collection?

Ctrl+Break usually breaks into code.

If you want your loop to resume at the next iteration of the loop, you need
to label the statement you want to resume at, and name that label when you
Resume. Like this:

Sub SubFunc()

On Error GoTo ErrorHandler

For Each pty In Object
' do stuff
Next_Loop:
Next pty

Exit Sub

ErrorHandler:
' print error mesage
Resume Next_Loop

End Sub