Access VBA中主键冲突（Primary Key Violation）触发警告但无法触发错误处理的问题咨询

这个问题的核心原因是DoCmd.RunSQL默认会弹出Access自带的操作提示和错误警告框，这些系统级的对话框会先于你的VBA错误捕获逻辑触发，导致你的On Error代码根本没机会执行。而且默认警告弹完后，RunSQL会返回“操作已取消”的状态，不会向VBA抛出错误，所以你的成功MsgBox依然会继续执行。

两种可行的解决方案 #

方案1：关闭Access默认警告并恢复（兼容原有RunSQL写法）

通过DoCmd.SetWarnings False关闭系统默认警告，让错误直接传递给VBA的错误捕获机制，同时必须在所有退出路径恢复警告状态：

Dim strSQL As String
strSQL = [INSERT STATEMENT]

' 关闭Access默认警告，确保错误能被VBA捕获
DoCmd.SetWarnings False

On Error GoTo Duplicate:
DoCmd.RunSQL (strSQL)
MsgBox "Ticket Completed!", vbOKOnly, "Success!"

JumpShip:
' 必须恢复默认警告，否则后续操作会失去系统提示
DoCmd.SetWarnings True
Exit Sub

Duplicate:
Select Case Err.Number
    Case 3022
        MsgBox "This ticket has already been completed!", vbOKOnly, "Error!"
    Case Else
        MsgBox "An unexpected error occurred: " & Err.Description, vbCritical, "Error"
End Select
Resume JumpShip

方案2：使用CurrentDb.Execute替代DoCmd.RunSQL（更推荐）

CurrentDb.Execute方法默认不会弹出任何系统警告，并且会直接向VBA抛出执行错误，不需要修改全局警告状态，安全性更高：

Dim strSQL As String
strSQL = [INSERT STATEMENT]

On Error GoTo Duplicate:
' 使用dbFailOnError参数确保执行失败时抛出VBA错误
CurrentDb.Execute strSQL, dbFailOnError
MsgBox "Ticket Completed!", vbOKOnly, "Success!"

JumpShip:
Exit Sub

Duplicate:
Select Case Err.Number
    Case 3022
        MsgBox "This ticket has already been completed!", vbOKOnly, "Error!"
    Case Else
        MsgBox "An unexpected error occurred: " & Err.Description, vbCritical, "Error"
End Select
Resume JumpShip

关键说明 #

1. 为什么原代码失效？
   当主键重复时，Access先弹出自带的“1 record was not appended...”警告，用户确认后，DoCmd.RunSQL并没有向VBA抛出错误，而是直接结束执行流程，导致你的错误处理代码被跳过，成功提示框继续运行。
2. 关于关闭默认警告的优先级：
   虽然你提到这个需求优先级较低，但它是让错误捕获逻辑生效的必要条件——没有关闭系统警告，VBA根本拿不到错误信号。方案2不需要修改警告状态，是更优的选择。

内容的提问来源于stack exchange，提问作者BSoD'n'Syntaxes