请教高手：access环境下 DoCmd.RunSQL update语句执行错误如何捕获？

[lll_j]

开发环境：access
执行代码：

Function 宏2runsql_update(i, j) As String
On Error GoTo 宏2runsql_update_Err

SQL = "UPDATE 表1 SET 表1.准考证号 =" & i & " WHERE ((表1.考试编号=" & j & "))"
MsgBox SQL

DoCmd.RunSQL SQL

宏2runsql_update_Exit:
Exit Function

宏2runsql_update_Err:
宏2runsql_update = "SQL执行出错！"
Exit Function
End Function

在显示“SQL执行出错！”错误提示前系统就报出了下面这条错误信息（我做了适当的删减）：

“不能在更新查询中更新全部记录。。。。。不能更新1个记录是因为键值冲突。。。。。是否继续执行这个类型的查询操作。。。。”

请问：1、如何屏蔽或是捕获上面的错误提示
2、我想让程序发生此错误后就不再执行此查询操作，就好像我点击了上面错误提示窗口中的“否”按钮一样，应该如何编码
谢谢大家！

[OracleRoob]

DoCmd.SetWarnings False

[WWWWA]

1、用 ON ERROR命令；
2、DoCmd.SetWarnings False

[lll_j]

谢谢两位，Docmd.SetWarnings False 的确能屏蔽这种错误，问题1解决。
请问问题2有没有解决方法，如果用on error 具体应该怎样写，on error 捕捉不到这种错误--似乎默认执行了选择“是”的方向。有没有其他的方法？谢谢！

[OracleRoob]

除了On error 没有其他办法。

应该做好事前的数据检查，再执行追加SQL语句。

[WWWWA]

捕捉不到这种错误--似乎默认执行了选择“是”的方向
调试可以捕捉错误，示例：
On Error Resume Next
DoCmd.RunSQL "SELECT *"

[OracleRoob]

On Error Resume Next

表示遇到错误不做任何提示