访问VBA - 取消表单错误事件？

Question

我为我的一个字段设置了此代码（输入掩码违规）：

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Const INPUTMASK_VIOLATION = 2279
      If DataErr = INPUTMASK_VIOLATION Then
         MsgBox "You didn't fill the data correctly !", vbCritical
         Response = acDataErrContinue
      End If

End Sub

现在，在同一表格上我有撤消按钮。当我违反输入掩码并单击“撤消”按钮时，此Inputmask_Violation Msgbox会不断弹出。我不允许我取消脏数据，直到我在字段中正确填充数据。

单击“撤消”按钮时取消此选项的任何选项？

我的撤消按钮代码：

If Me.Dirty Then Me.Undo

Answer 1

看起来这样做不行，我尝试了不同的变种。输入掩码违规是一个运行时错误，因此它发生在每个VBA事件之前。