Solved

How to create an email input mask with access 2k

Posted on 2004-09-25
4
5,648 Views
Last Modified: 2012-05-05
Hello I would like to create a Input mask with access 2k
for email address.
Thanks for your help
0
Comment
Question by:Ok123
4 Comments
 
LVL 41

Accepted Solution

by:
shanesuebsahakarn earned 50 total points
ID: 12153299
An input mask is not suitable for this. Use a validation rule instead.
0
 

Expert Comment

by:kellykln
ID: 24268138
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

SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question