• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 5687
  • Last Modified:

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
0
Ok123
Asked:
Ok123
1 Solution
 
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.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now