If, Then, Else

  • Thread starter Thread starter Ann
  • Start date Start date
A

Ann

Hi,

I'm a bit confused and hope someone can help. I'm just learning code and
can't figure out why I keep getting an compile error; Else Without If on the
following code. Thanks in advance.

Private Sub Command930_Click()
On Error GoTo Err_Command930_Click

Dim stDocName As String
Dim stLinkCriteria As String

If SSN.Value = -1 And ysnName.Value = -1 _
And Recipient_of_PHI = "Entity" Or Recipient_of_PHI = "Person" Then _
stDocName = "frmAction1-5"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "frmAction5"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Exit_Command930_Click:
Exit Sub

Err_Command930_Click:
MsgBox Err.Description
Resume Exit_Command930_Click

End Sub
 
Ann said:
Hi,

I'm a bit confused and hope someone can help. I'm just learning code and
can't figure out why I keep getting an compile error; Else Without If on
the
following code. Thanks in advance.

Private Sub Command930_Click()
On Error GoTo Err_Command930_Click

Dim stDocName As String
Dim stLinkCriteria As String

If SSN.Value = -1 And ysnName.Value = -1 _
And Recipient_of_PHI = "Entity" Or Recipient_of_PHI = "Person" Then _
stDocName = "frmAction1-5"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "frmAction5"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Exit_Command930_Click:
Exit Sub

Err_Command930_Click:
MsgBox Err.Description
Resume Exit_Command930_Click

End Sub
Click to expand...


I believe it's because you have a line-continuation character after the
keyword Then:
And Recipient_of_PHI = "Entity" Or Recipient_of_PHI = "Person" Then _
Click to expand...

It should just be

And Recipient_of_PHI = "Entity" Or Recipient_of_PHI = "Person" Then


For a block If, the statements that follow the If are not continuations of
the If statement.
 
That was it! Thank you.

Dirk Goldgar said:
I believe it's because you have a line-continuation character after the
keyword Then:


It should just be

And Recipient_of_PHI = "Entity" Or Recipient_of_PHI = "Person" Then


For a block If, the statements that follow the If are not continuations of
the If statement.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)
Click to expand...
 
Hi,

I'm a bit confused and hope someone can help. I'm just learning code and
can't figure out why I keep getting an compile error; Else Without If on the
following code. Thanks in advance.

Private Sub Command930_Click()
On Error GoTo Err_Command930_Click

Dim stDocName As String
Dim stLinkCriteria As String

If SSN.Value = -1 And ysnName.Value = -1 _
And Recipient_of_PHI = "Entity" Or Recipient_of_PHI = "Person" Then _
stDocName = "frmAction1-5"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "frmAction5"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Exit_Command930_Click:
Exit Sub

Err_Command930_Click:
MsgBox Err.Description
Resume Exit_Command930_Click

End Sub
Click to expand...

You need to remove the underscore line continuation character after the Then.

The If statement has two syntaxes: the more common

If <Condition> Then
<statements if true>
Else
<statements if false>
End If

and the "one line if"

If <Condition> Then <statement if true>

Your lines

If SSN.Value = -1 And ysnName.Value = -1 _
And Recipient_of_PHI = "Entity" Or Recipient_of_PHI = "Person" Then _
stDocName = "frmAction1-5"

are being read as a single line - since you have the line continuation
characters; the line

stDocName = "frmAction1-5"

is the end of the entire IF block, as far as Access is concerned, so when you
get to the ELSE further down, it's not seen as being part of an IF block.
 
Back
Top