Since you want this to happen for multiple Controls that use Input Masks, I'd roll my own error message, using the Form_Error event, like this
Code:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 2279 Then 'Data entered is not appropriate for the Input Mask
Response = MsgBox("Data Entered Must Be Appropriate!", vbExclamation, "Inappropriate Entry")
Response = acDataErrContinue
Me.ActiveControl.SelStart = 0
Me.ActiveControl = Null
End If
End Sub
If need be, the message popped can be modified depending on which Control the error occurs on. Fi you need help doing that we can help there, too.
Linq ;0)>
The problem with making anything foolproof...is that fools are so darn ingenious!
All posts/responses based on Access 2003/2007