Validating Email Address in VBA

[Phil1]

I'm trying to validate an entered email address in a text Box.

The VBA code i'm using is:

If (Not IsNull(EdEmail.Value)) And ((Not EdEmail.Value Like "?*@?*.*?") Or (Not EdEmail.Value Like "*?.?*@?*.*?") Or (EdEmail.Value Like "*[!0-9a-z@._+-;, ]*")) Then
msgbox "Invalid email"
end If


.....


No matter what I enter it gives the error.

Can anyone help?

Thanks.

[June7]

Google: Access VBA valid email address

Does this help http://www.geeksengine.com/article/v...email-vba.html

[Phil1]

Hi June7.

Thanks for your reply.

If I followed this tutorial and gave the database to someone else, would they also need to do the same thing in the menu?

I'd prefer it if gave it to someone, all they'd need to do is open it and away they go.

Thanks.

[June7]

Sorry, I did not thoroughly read that link, only saw that pattern matching and that looked applicable. I have never used the Regular Expression functionality, wasn't even aware of it.

Yes, with that code the user would have to set library reference. There may be other ways to write code so library reference not needed. Review: http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

Otherwise, Google for other ideas: Access VBA validate email address

Maybe this one http://www.vbaexpress.com/kb/getarticle.php?kb_id=281

[Phil1]

Thanks June7, I appreciate your thoughts on this.

I've tried googling and returned varied results, even found the reference you suggested first. I like to keep things simple myself, and to me a simple LIKE query seems like it should do the trick but for some reason my code above thinks anything is wrong.
So long as I have it correct, that '*' means 'any string - any length' then I can't see why its going wrong.

I'll be looking at it again tonight.

Thanks again,