Compile Error

[Guest]

I have a problem when compiling my database the code that has a problem is

Private Sub Combo18_Change()

If [SessionID] = 14 Then [Combo22] = 2
Else: [Combo22] = 1
End If

End Sub

it says else without If, I have tried splitting it into two if statements
and then get End If without If, has anybody any suggestions

thanks

Phil

 

[Keith Wilby]

I have a problem when compiling my database the code that has a problem is

Private Sub Combo18_Change()

If [SessionID] = 14 Then [Combo22] = 2
Else: [Combo22] = 1
End If

End Sub

it says else without If, I have tried splitting it into two if statements
and then get End If without If, has anybody any suggestions

thanks

Phil

This is an example of the syntax you need:

If SomeCondition = Something Then
Do something
Else
Do something else
End If

Keith
www.keithwilby.com

 

[missinglinq via AccessMonster.com]

Keith's exactly right! You can use

If [SessionID] = 14 Then [Combo22] = 2

by itself with everything on one line AND without a corresponding End If,
but if you want to use an Else you have to move what follows Then onto the
next line AND use the End If

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000

Message posted via AccessMonster.com

 

[Guest]

Thank you both, I changed changed them to the next line and compile completed

tahnks

PHil