Hello I'm trying to verify Zip Code for TX. I want to set the range from 73 to 79. If the ZipCode doesn't fall into that range then it will alert the user of their mistake. Any tips on how to set the range from 73 to 79? I'm very new to VBA and is just learning. Below is what I have so far.

Private Sub Postal_Code_BeforeUpdate(Cancel As Integer)
If IsNull([Postal Code]) Then
strMsg = "You must enter a Zip Code"
strTitle = "Zip Code Required"
MsgBox strMsg, vbOKOnly, strTitle
Cancel = True

Else
If Me.State = "TX" Then
strFirstTwo = Left([Postal Code], 2)
strMsg = "Wrong Zip Code"
strTitle = "Zip Code Error"
MsgBox strMsg, vbOKOnly, strTitle
End If
End If

I would take the Left() in a CInt() and make the string an Integer instead. So:

Dim iFirstTwo as Integer

If Me.State = "TX" Then
   iFirstTwo = Left(CInt([PostalCode]), 2)
   If iFirstTwo < 73 Or iFirstTwo = > 79 Then
     strMsg = "Wrong Zip Code"
     strTitle = "Zip Code Error"
     MsgBox strMsg, vbOKOnly, strTitle
   End If
End If

Or you may want to do this since you are already typing the variable:

iFirstTwo = Left([PostalCode], 2)

Did that work?



mmcdonal