Else without if

[Wiz47]

It seems to me that my syntax is correct. Why the error?

Compile error: Else without if

Private Sub Command3_Click()
Dim strForm As String

If Me.CboForm = "Form 1" Then strForm = "Form1"
Else
strForm = "Form2"
End If

DoCmd.OpenForm strForm
End Sub

 

[plog]

Yeah, I hate VBA, its so finicky about spacing for no reason. Try this:

Private Sub Command3_Click()
Dim strForm As String

If Me.CboForm = "Form 1" Then strForm = "Form1" Else strForm = "Form2"

DoCmd.OpenForm strForm
End Sub

 

[mdlueck]

Change your code to the following and retest....

Private Sub Command3_Click()

Dim strForm As String

If Me.CboForm = "Form 1" Then
  strForm = "Form1"
Else
  strForm = "Form2"
End If

DoCmd.OpenForm strForm

End Sub

 

[mdlueck]

Yeah, I hate VBA, its so finicky for no reason.

It is not "no reason".

The OP had tried to put the THEN operation right behind THEN. It belongs on the next line.

No need to do a knee-jerk reaction and revert to even uglier code!

 

[nanscombe]

Uglier but equally correct syntax wise.

If...Then...Else Statement (Visual Basic)

' Multiple-line syntax:
If condition [ Then ]
  [ statements ]
[ ElseIf elseifcondition [ Then ]
  [ elseifstatements ] ]
[ Else
  [ elsestatements ] ]
End If

' Single-line syntax:
If condition Then [ statements ] [ Else [ elsestatements ] ]

 

[Wiz47]

It is not "no reason".

The OP had tried to put the THEN operation right behind THEN. It belongs on the next line.

No need to do a knee-jerk reaction and revert to even uglier code!

You're correct. I needed to block it out properly. That's what happens when you work on code all night. Thanks.

 

[Wiz47]

Thanks to all in the thread. I just had it blocked out incorrectly.

 

[mdlueck]

You are very welcome, Wiz47.

 

[plog]

The OP had tried to put the THEN operation right behind THEN. It belongs on the next line.

I stand by my accusation. White space is white space is white space. If the next characters are 'THEN' (no matter how far down the page they are), it needs to be processed correctly.

I also submit that my code suggestion isn't ugly, in fact its the cleanest, correct version offered:

If Me.CboForm = "Form 1" Then strForm = "Form1" Else strForm = "Form2"