Using If statement

[fredk]

Hi -I have a simple database that looks up counties based on the zip code entered - Just one table that contains zip code and county.

I set up a macro that uses the set-value action - How do I also use the If Then statement? I only have New Jersey zip codes so if someone enters a zip code not on my list, I want to give the a message.

Do I create a procedure in the after update event of entry field on my form and if so what is the structure -

Thanks in advance for your assistance!!!

 

[KarMac21]

Here's the easiest solution I have for you:

Private Sub yourfield_AfterUpdate()
Dim strCounty as string

strCounty = Nz(DLookUp("County","ZipTable","Zip = " & [your zip field]),"None&quot

If strCounty = "None" then
msgBox "Invalid Zip Code","Data Error"
Else
'do something with your value
End If
End Sub

Hope this helps
Shane

 

[fredk]

I am going to try that right now - Thanks for your help Shane - I appreciate you taking the time to help me out!!!

Fred