• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 5685
  • 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

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

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