VBA Error - End If Without If Block on multi-line If statement

[netia1128]

I know this is rather basic, but I am trying to run some VBA Code to do the following:



If X Then

action 1

action 2

action 3

End If

My issue is that when I run my code it kicks back an error for "End If Without If Block". For the meantime I can throw the If clause in before each action, but ultimately I would like to make this work where there is one If and then multiple subsequent actions. Depite a few hours of googling, I still can't pinpoint my exact problem. Any thoughts on what I may be doing wrong?

The actual line of code I am running is here:

If NLG_UR_AddBasicFacilityInfo = -1 Then _

Do Cmd.OpenFor "NLG_Update_Basic_Facility_Info_Table", acFormAdd

[Forms]![NLG_Update_Basic_Facility_Info_Table]![txt_NLG_UBFIR_FacilityID].Value = NLG_UR_FacilityID

[Forms]![NLG_Update_Basic_Facility_Info_Table]![txt_NLG_UBFIR_UpdateDate].Value = NLG_UR_UpdateDate

[Forms]![NLG_Update_Basic_Facility_Info_Table]![hdr_NLG_UBFIR].Value = "Update Basic Facility Info for " _

& NLG_UR_StreetNo & " " & NLG_UR_Predirection & " " & NLG_UR_StreetName & " " & NLG)UR_StreetType & " " & NLG_UR_Unit

End If

I'm building my database on top of Access 2007 at the moment on a Window 7 PC. Please let me know if there is any further info I can provide.

Thanks!

[ItsMe]

Start counting your If's and match them with an End If. Also, look for code outside of a sub Procedure (check for End Sub, etc.)

EDIT: Never mind, you have a line continuation here

Then _

Try
Then

[Missinglinq]

In addition to ItsMe's advice, I assume that

DoCmd.OpenFor

is supposed to be

DoCmd.OpenForm

Also,

NLG)UR_StreetType

should be

NLG_UR_StreetType

Also, I'm assuming that you used a Wizard to create your Form and that

"NLG_Update_Basic_Facility_Info_Table"

actually is a Form, which is why its name sounds as if it were a Table name! Never have understood why the Wizards of Redmond chose to let this happen; having Table and Form with identical names is confusing, to say the least!

Welcome to AFN!

Linq ;0)>

[netia1128]

ItsMe and MissingLinq - thank you both for your advice! Taking the underscore off of the end of my THEN statement fixed the issue. Also, I've taken your advice to heart to not name forms and tables exactly the same. Much better (and actually functioning) script now. I appreciate the help!

Netia

[Missinglinq]

Glad we could help!

Linq ;0)>