How to create an email input mask with access 2k

Hello I would like to create a Input mask with access 2k
for email address.
Thanks for your help
Ok123Asked:
Who is Participating?
 
shanesuebsahakarnCommented:
An input mask is not suitable for this. Use a validation rule instead.
0
 
kellyklnCommented:
Private Sub email_Exit(Cancel As Integer)
    Dim checks, checks2 As String
    If Not Emty(Me!Email) Then
        checks = InStr(2, Email, "@")
        checks2 = InStr(checks + 2, Email, ".")
        If checks = 0 Or checks2 = 0 Or checks2 = Len(Me!Email) Then
            MsgBox "Invalid email address. Please correct"
            Cancel = True
        End If
    End If
End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.