End If without block if

[P-chu via AccessMonster.com]

A little assistance. Getting an error end if without block if. This is
based on the selection of the account number assigned to a particular set of
3 states. So if the combo box selection for AcctNum is 20, then I want the
combo box of the state Name to equal that number assigned to it.

Private Sub cbxAcctNum_AfterUpdate()

If Me!cbxAcctNum = "20" Then Me!cbxName = "Maryland"
If Me!cbxAcctNum = "35" Then Me!cbxName = "Illinois"
If Me!cbxAcctNum = "40" Then Me!cbxName = "Texas"


End If
End If
End If

End Sub

Thank you.

 

[Albert D. Kallal]

the syntax is:

a)

if <condition> then one line

or

b)

if <condition> then
as many lines of code
end if

You syntax is of type a...and thus you do NOT need the end if's...
Private Sub cbxAcctNum_AfterUpdate()

iIf Me!cbxAcctNum = "20" Then Me!cbxName = "Maryland"
If Me!cbxAcctNum = "35" Then Me!cbxName = "Illinois"
If Me!cbxAcctNum = "40" Then Me!cbxName = "Texas"

End Sub

Try the above...it should compile.....

 

[P-chu via AccessMonster.com]

Thank you, it worked perfectly.

the syntax is:

a)

if <condition> then one line

or

b)

if <condition> then
as many lines of code
end if

You syntax is of type a...and thus you do NOT need the end if's...
Private Sub cbxAcctNum_AfterUpdate()

iIf Me!cbxAcctNum = "20" Then Me!cbxName = "Maryland"
If Me!cbxAcctNum = "35" Then Me!cbxName = "Illinois"
If Me!cbxAcctNum = "40" Then Me!cbxName = "Texas"

End Sub

Try the above...it should compile.....