How can I check Multiple ID's

[cneill]

Hi,

Can you tel me where I am going wrong with this code

Private Sub

Dim SchemeID As String

SchemeID = Me.SchemeID

If SchemeID = 1 Then
...Do something
End If

End Sub

This works fine and the following does not

Private Sub

Dim SchemeID As String

SchemeID = Me.SchemeID

If SchemeID = 1 or 2 or 3 or 4 Then
...Do something
End If

End Sub

can anyone help me on this?
I want it to be able to check many ID's in a single if statement if possible.
Thanks Neill

 

[JoeAtWork]

You haven't told us what's "not working", and you have mixed pseudo-code with real code, so I can't tell if you've written bad code or not.

However, if this is from your real code:

If SchemeID = 1 or 2 or 3 or 4 Then

Then that's invalid. You would need:

If SchemeID = 1 or SchemeID = 2 or SchemeID = 3 or Scheme = 4 Then

or if it's always in a sequence like that, this would suffice

If SchemeID >= 1 And SchemeID <= 4 Then

I suggest you use Option Explicit in your VBA code environment so that invalid code like the first line is discovered quickly.

 

[MajP]

You can also look at a Select case statement

Select Case me.schemeID
Case 1
Bonus = salary * 0.1
Case 2, 3
Bonus = salary * 0.09
Case 4 To 6
Bonus = salary * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select

 

[cneill]

MajP

Select Case statement worked a treat, many thanks

Neill