VBA Validation Code

[Wenhow52]

Hi - I just need to know how to validate alphanumberic code in MS Access. I can validate numeric information (zip codes), but I can't seem to get the correct code to validate alphanumeric (Canada postal codes). Code in red is what does not work.

'Verify Edmonton Postal Codes

If Not IsNull(City) And Not IsNull(PostalCode) Then
PostalCodeFirstTwo = Val(Left(PostalCode, 2))
Select Case City
Case "Edmonton"
If Not (PostalCodeFirstTwo Like "T5" Or PostalCodeFirstTwo Like "T6") Then
MsgBox "Edmonton Postal Codes should begin with T5 or T6"
GoTo CommonProcessing
End If[/u][/u] End Select
End If

Exit Sub

CommonProcessing:
DoCmd.CancelEvent
Me.Undo
PostalCode.SetFocus

End Sub

[kadghar]

I don't see the red part, but i'll assume you're having trouble with the LIKE statement. Remember LIKE will help you with special characters (like * or ?) but wont do with capital and non capital letters. For that, you should use UCASE. Perhaps this can be a solution:

If Not IsNull(City) And Not IsNull(PostalCode) Then
    Select Case City
        Case "Edmonton"
            If Not (UCase(PostalCode) Like "T5*" Or UCase(PostalCode) Like "T6*") Then
                MsgBox "Edmonton Postal Codes should begin with T5 or T6"
                GoTo CommonProcessing
            End If
    End Select
End If

HTH