如何使用Forn_onError事件避免默认的访问错误？

Question

使用下面的代码时，会弹出我的自定义消息。但在此之后，尽管我的回复声明，ACCESS的默认消息也出现了。不知道我在这里做错了什么。

我的代码：

Private Sub Form_OnError....
   If DataErr = 3162 then
      MsgBox"ABC"
      Response = acDataErrContinue
   End if
End sub

Answer 1

访问在如何取消事件方面有点不一致。

要取消这些类型的错误消息，请使用DoCmd.CancelEvent。

Private Sub Form_Error(DataErr As Integer, Response As Integer)
   If DataErr = 3162 then
      MsgBox"ABC"
      DoCmd.CancelEvent
   End if
End sub