VBA doesn't recognize @ sign

[Bob Dydd]

Hi Everybody

Is there any way to write a piece of code
something like this:

If Me.txtFrom = Like ""[@*]*""" then
do this
End if

If Me.txtFrom <> Like ""[@*]*""" then
do that
End if

The @ sign is a forbidden symbol

The idea is to trap where a user may not have entered a correct Email
address.

Thanks to all

Smiley Bob

[PC Datasheet]

Bob,

Try this instead:

If InStr([EmailAddress],"@") = 0 Then
MsgBox "Invalid Email Address"
End If

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com
"Bob Dydd" <sm*******@hotmail.com> wrote in message
news:9f********************************@4ax.com...

Hi Everybody

Is there any way to write a piece of code
something like this:

If Me.txtFrom = Like ""[@*]*""" then
do this
End if

If Me.txtFrom <> Like ""[@*]*""" then
do that
End if

The @ sign is a forbidden symbol

The idea is to trap where a user may not have entered a correct Email
address.

Thanks to all

Smiley Bob

[Bob Dydd]

Hi

Thanks for that.

It traps that error elegantly

Bob

On Wed, 21 Jul 2004 13:56:19 GMT, "PC Datasheet" <no****@nospam.spam>
wrote:

Bob,

Try this instead:

If InStr([EmailAddress],"@") = 0 Then
MsgBox "Invalid Email Address"
End If

[corey lawson]

Bob Dydd <sm*******@hotmail.com> wrote in
news:9f********************************@4ax.com:

Hi Everybody

Is there any way to write a piece of code
something like this:

If Me.txtFrom = Like ""[@*]*""" then
do this
End if

If Me.txtFrom <> Like ""[@*]*""" then
do that
End if

The @ sign is a forbidden symbol

The idea is to trap where a user may not have entered a correct Email
address.

Thanks to all

Smiley Bob

Or, add a reference to Microsoft VB Script Regular Expressions 5.5 (if you
have Win2K or XP, not a problem, otherwise, you need to download the
Windows Scripting Host stuff from Microsoft).

Public Function Find(target As String, source As String) As String
Dim rexp As New RegExp
Dim rxMatches As MatchCollection
Dim rxMatch As Match

rexp.Pattern = target
Set rxMatches = rexp.Execute(source)
For Each rxMatch In rxMatches
Debug.Print rxMatch.Value
Next rxMatch

End Function

[Bob Quintal]

Bob Dydd <sm*******@hotmail.com> wrote in
news:9f********************************@4ax.com:

Hi Everybody

Is there any way to write a piece of code
something like this:

If Me.txtFrom = Like ""[@*]*""" then
do this
End if

If Me.txtFrom <> Like ""[@*]*""" then
do that
End if

The @ sign is a forbidden symbol

The idea is to trap where a user may not have entered a
correct Email address.

Thanks to all

Smiley Bob

If nobody has answered you yet, the right way to write the code you
want is If Me.txtFrom Like "*@*" then
and If Me.txtFrom NOT Like "*@*" then
--
Bob Quintal

PA is y I've altered my email address.