Validating Email Addresses

[MarkWaddington]

Ok, I know this is probably simple, but what is the condition I would need to put in a macro in order to check that all entries in an "email" box on my form contain the "@" symbol?

Cheers,

Mark Waddington.

 

[MarkWaddington]

lol, (again) i've figured it out again by myself. I just added the following code to the AfterUpdate event:

If Not Me! Like "*@*" Or Not Me![Email] Like "*.*" Then
Me![Email] = Null
Me![Email].SetFocus
MsgBox ("Invalid e-mail address, all email addresses must contain the @ symbol and at least one full-stop&quot


Out of interest, does anyone know why the SetFocus command doesn't work as i've written it above? It still goes to the next field?

 

[WildHare]

An easier test might be:

IF Instr(Me!EMAIL,"@&quot = 0 then
Msgbox "Invalid Email address ...", vbOKOnly
ME!Email.SetFocus
Me!Email.Value = Null
Else
EndIF

Not sure why it didn't work the way you have it, but it may be due to the MsgBox being AFTER the Setfocus method.

Think about your order of events -

1) is there an error?
2) if yes, put up a message box
3) Bounce back to the field in error
4) Null it out

Your statements were in exactly the opposite sequence.

Jim
Me? Ambivalent? Well, yes and no....
Another free Access forum:

http://www.forumco.com/jmhare

More Access stuff at

http://www.jmhare.com/wildhare2.htm

 

[MarkWaddington]

Thanks for the reply.

I tried it both ways round, the SetFocus command just doesn't work! It still tabs to the next field along.

Anymore clues?

 

[stickers]

I know this is an old (ish) thread, but I am having exactly the same problem. I have tried everything - moving the code to the before update event and taking out the SetFocus method, but even then, after you click OK in the message box the focus still flips to the next field. I have tried putting in an OK/Cancel message box and it still happens no matter which button you click. I'm at my wits end!!!

Mark - did you ever get this problem sorted?

 

[sha76]

Hi,

I had this problem with the SetFocus method & found if I first SetFocus to another control & then back to the one I wanted it got round it.

Sharon