email validation msgbox YES/NO

[albertc30]

Hi all.

I want to validate a textbox to confirm email has been entered correctly.

I remember this being an issue in the past and it seems it still is.

I have been using the code bellow and was feeling that, I don't want the OK message if the email is okay but rather want a user message asking if the entered email (display email on message) is correct? YES (Continue) NO (returns to email field.)

[COLOR=#333333]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)[/COLOR]
[COLOR=#333333]With CreateObject("vbscript.regexp")[/COLOR]
[COLOR=#333333]'.Pattern = "^[\w-\.]+@([\w-]+\.)+[A-Za-z]{2,4}$"[/COLOR]
[COLOR=#333333].Pattern = "^[\w-\.]+@[\w-]+\.+[A-Za-z]{2,4}$"[/COLOR]
[COLOR=#333333]If .test(TextBox1.Value) Then[/COLOR]
[COLOR=#333333]MsgBox "OK"[/COLOR]
[COLOR=#333333]Else[/COLOR]
[COLOR=#333333]MsgBox "No good"[/COLOR]
[COLOR=#333333]Cancel = True[/COLOR]
[COLOR=#333333]End If[/COLOR]
[COLOR=#333333]End With[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

Again, much appreciated for all your time and help.

Cheers

 

[Worf]

Hi

' DP1 is a text box
Private Sub DP1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim s$
With CreateObject("vbscript.regexp")
    .Pattern = _
    "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
    If .Test(DP1) Then
        s = "OK"
    Else
        s = "no good"
    End If
End With
Select Case MsgBox("I think this email is " & s & _
", would you like to continue?", vbYesNo, DP1)
    Case Is = vbYes
    Case Is = vbNo
        Cancel = True
End Select
End Sub

 

[albertc30]

Hi all, Brazil.

Your code works great.

Having said this, I was wondering, rather than placing any validation at all, after exiting the textbox, user be presented with a msg asking something like "Is "show entered email here" correct?

Then user can check the entered email and click yes or no.

Much appreciated for your time my amigo.

Viva o Brazil!

Cheers.

 

[Worf]

Hi Albert

Are you in Virginia or East Anglia?

Private Sub DP1_Exit(ByVal Cancel As MSForms.ReturnBoolean)


If MsgBox("Is this email correct?", 4, DP1) = 7 Then Cancel = 1


End Sub