Can you stop vba code from running after a DoCmd.Close?

[Craggy]

I have a rather complicated routine in VBA that performs many checks.

One of the checks will close the window doen using DoCmd.Close, but unfortunately the code tries to continue after this point and causes an error because it is trying to access data on the form I have just closed.

is there a way to tell VBA to DoCmd.Close and then stop running the current subroutine?

I tried End Sub but that causes an error too.

[JKing]

What error are you receiving?

Post a snippet of the offending code if you can.

[Craggy]

What error are you receiving?

Post a snippet of the offending code if you can.

Well the error being received is due to the code continuing and attempting to perform actions based on the form that I have just closed.

Basically after some calculations I want the routine to close the form and stop if a condition is met. if not it will then continue and go to another record.

obviously I dont want the code to continue after the form closes since it is going to try and open a new record on a form that is no longer open.


I know i can work arround this by adding another condition to the logic after the "close" check but this seems a little unecesary if there is a way to prematurely perform an End Sub.



here is the section of the code causing the problem:

Me.goto = DLookup("[answer links to]", "answer", "[answer id] = list2")
Me.quit = DLookup("[answer ends]", "answer", "[answer id] = list2")
 
'check to see if this is the last question
 
If Me.goto = 83 Then
MsgBox "Questionnaire complete"
DoCmd.Close
End If
If Me.Questionlinks = 83 Then
MsgBox "Questionnaire complete"
DoCmd.Close
End If
 
'after checks have been made and data saved open new question
 
If Me.multiple = 0 Then
 
'if its a select one question then...

[JKing]

I guess there are two approaches you could take. One would be to use an else block.

If Me.goto = 83 And Me.QuestionLinks = 83 Then
    Docmd.Close
Else
'The rest of your code
End If
 

Or you could try the Exit Sub command.

If Me.goto = 83 Then
Docmd.Close
Exit Sub
End If
 

[Craggy]

Thanks!

Exit Sub is exactly what i was looking for.

I could have worked arround it with Else blocks but i think it would have become unecesarily complex (there are many other sections after this piece of code.)

thanks again.