请教！如何自定义设置了掩码的错误提示？

sxgaobo

就是这个提示，如何改变成自己的语言！

poly

改变语言好象不关掩码的事哦，你是不是说的输入法啊

sxgaobo

我的意思是，当出错时将提示的内容该成自己的话，如：你在此字段中输入的内容有误......

andymark

那就自定义规则代替掩码

andymark

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const INPUTMASK_VIOLATION = 2279
   Dim Msg As String
   If DataErr = INPUTMASK_VIOLATION Then
      Select Case Screen.ActiveControl.Name
         Case "phone"
            Beep
            MsgBox "The phone number you entered is invalid!"
         Case "SSN"
            Beep
            MsgBox "The SSN you entered is invalid!"
         Case "Zip"
            Beep
            MsgBox "The ZIP code you entered is invalid!"
         Case Else
            Beep
            Msg = "An input mask violation occurred in control "
            MsgBox Msg & Screen.ActiveControl.Name & "!"
      End Select
      Response = acDataErrContinue
   End If

End Sub

130050007

good