Input masks are not sophisticated enough to do this. Email addresses
are simply too diverse.
Instead, use a Form to do the data entry, and use the textbox's
BeforeUpdate event to (roughly) check for validity. For example, you
could use
Private Sub txtEmail_BeforeUpdate(Cancel as Integer)
If Me!txtEmail & "" = "" Then Exit Sub ' ignore blank emails
If InStr(Me!txtEmail, ".") = 0 Then
Msgbox "Invalid email - must contain a period"
Cancel = True
End If
If InStr(Me!txtEmail, "@") = 0 Then
MsgBox "Invalid email - must contain an @ symbol"
Cancel = True
End If
End Sub
John W. Vinson[MVP]