SelectCase Error

[JustPunkin]

I've got this bit of code that is giving me a hard time.

If IsNull(Me.txtCustomer.Value) Then
    strCustomer = "Like '*'"
Else
    selectcase Me.frmCustName.Value
        Case 1
            strCustomer = "Like '" & Me.txtCustomer.Value & "*'"
        Case 2
            strCustomer = "Like '*" & Me.txtCustomer.Value & "*'"
        Case 3
            strCustomer = "Like '*" & Me.txtCustomer.Value & "'"
        Case 4
            strCustomer = "= '" & Me.txtCustomer.Value & "'"
    End Select
End If

I knew I would have issues when "selectcase" did not format itself as a function (I think that's the right word).

Any ideas why?

 

[boblarson]

Put a space between the two words. It is SELECT CASE with a space.

 

[JustPunkin]

Thanks. That was quick and easy.