If/Else Problem 1

[rj51cxa]

I am trying to update a Yes/No field [fPetersPrize] based on an entry in ComboBox [TxtRank-Rating]. There are 32 entries in the underlying table for TxtRank-Rating of which 10 will make [fPetersPrize] true, the remainder will make it false.

I have placed the following code in the OnChange Event of the [TxtRank-Rating] but every time I run it I get the warning "Block If without End If". I have tried various combinations but end up with the same result.

If [TxtRank_Rating] = "A/S/LT" Then
[fPetersPrize] = True
If [TxtRank_Rating] = "AB" Then
[fPetersPrize] = True
If [TxtRank_Rating] = "MID" Then
[fPetersPrize] = True
Else
[fPetersPrize] = False
End If

I'm obviously coding it wrong and would appreciate some help with sorting it out.

Thanks a lot
John

 

[PHV]

If [TxtRank_Rating] = "A/S/LT" Then
[fPetersPrize] = True
[!]Else[/!]If [TxtRank_Rating] = "AB" Then
[fPetersPrize] = True
[!]Else[/!]If [TxtRank_Rating] = "MID" Then
[fPetersPrize] = True
Else
[fPetersPrize] = False
End If

Another way:
Select Case [TxtRank_Rating]
Case "A/S/LT", "AB", "MID"
[fPetersPrize] = True
Case Else
[fPetersPrize] = False
End Select

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[rj51cxa]

Thanks PHV,

That did it.

Best Regards
John