If Like then ElseIf

[Zeroanarchy]

Hey just a little stuck,

Can anyone help with this:

If pcktype Like "*Ambulance*" Then XV = "Ambulance"
ElseIf pcktype Like "*Car*" Then XV = "Car"
ElseIf ......

I am unable to get this to work due to Access not reconising the first If, I keep getting "ElseIf without If" Error.

Cheers

ZeroAnarchy
Experience is a wonderful thing. It enables you to recognize a mistake
when you make it again.

 

[wemeier]

When Access VBA sees the Then statement on the same line as the If statement it assumes that there is no Else and doesn't require an End If:

If a = b then c

Try moving the statement after each Then clause to a new line:

If pcktype Like "*Ambulance*" Then
XV = "Ambulance"
ElseIf pcktype Like "*Car*" Then
XV = "Car"
ElseIf ......

Remember an End If at the end of the entire If clause!

Cruising the Information Superhighway at the speed of light
[sub] (your mileage may vary)[/sub]

 

[randy700]

Depending on the number of ElseIf's you'll have, you might consider using a SELECT statement instead.

SELECT Case pcktype
    Case Like "*Ambulance*":
        XV = "Ambulance"
    Case Like "*Car*":
        XV = "Car"
End Select

Randy

 

[Zeroanarchy]

Isn't it interesting, I have written some really large programs in Access and I have worked on stacks of programs and still the most obvious things don't register at the time you are working on the code.

Thanks wemeier and randy700 for you help.

Cheers


ZeroAnarchy
Experience is a wonderful thing. It enables you to recognize a mistake
when you make it again.