Else with out End If Error not clear.

[TopCerv]

I am trying to run the following code on a form that requires dates for execution. If the dates are absent I wanted the code to display a MsgBox indicating dates required, then abort. Keep getting the error "Else without If". Any ideas?

If IsNull(Me.BDate.Value) Then GoTo ABORT
 Else
 GoTo Run
 End If
 
Sub Run()
DoCmd.SetWarnings False
DoCmd.RunMacro "Jaimee Report Exports"
DoCmd.SetWarnings True
 
Sub ABORT()
MsgBox "Need to Apply Dates"
End Sub

[Luk3r]

You have to put "GoTo ABORT" on a new line. If you don't, your If statement thinks it is closed.

If IsNull(Me.BDate.Value) Then
  GoTo ABORT
Else
  GoTo Run
End If
 
Sub Run()
  DoCmd.SetWarnings False
  DoCmd.RunMacro "Jaimee Report Exports"
  DoCmd.SetWarnings True
End Sub
 
Sub ABORT()
  MsgBox "Need to Apply Dates"
End Sub 

[zmbd]

Please see the trouble shooting section:
https://bytes.com/topic/access/answe...on#post3803251

If you follow the advice provided there you will locate and eliminate a good deal of these types of errors
:)

[TopCerv]

Luk3r
Thanks for the response. In Access VBA I cannot run the code as you indicate. I get a compile error that ID's the RUN subroutine. When I place the End Sub as indicated it generates a break in the code so the Labels are not recognized. Also if I run this way it says it expects an END SUB after the End if.

Any thoughts?

Thanks

[jforbes]

Follow both Luk3r and zmbd's advice and then in your code, change GoTo to Call.

[zmbd]

TopCerv
Why don't you post your actual code?

I was suspecting that you posted snippets of your code in the original post as the way it is there it will give you an invalid outside of procedure in the If-Then, amongst other issues!

Luk3r gave you a very nice re-work of the code you posted. However, the opening IF-Then still will NOT work outside of a procedure. I can only surmise that Luk3r was also of the impression that you were providing only a small section of your actual code.

Jforbes is right on the mark with the Call -- Keep in mind that this is VBA and not BASIC - same language different dialect :)
GOTO are now generally used only with the ON ERROR. GOTO and GOSUB have really fallen out of favor, especially in VBA and .NET etc...in fact GoSub was depreciated quite a long time ago.

I've pointed you to the general troubleshooting lead-in. There are more sections in our Insights articles, see the link at the bottom of this page.

Until and unless you can do the basic troubleshooting and post your actual code there really isn't much more we can honestly do for you.... except poke in the dark.