如何避免警告“您将无法撤消此操作查询即将对链接表中的数据进行的更改”

Question

我编写了一个代码来调用 Access 表单中的按钮单击模块，当我单击 d 按钮时，我收到以下警报：

“您将无法撤消此操作查询即将对链接表中的数据进行的更改”

和

“您即将更新 X 行”。

按钮背后的代码是：

Private Sub UpdateRS_Click()
    Call UpdateModul.Update
End Sub

模块是：

Public Function Update()
DoCmd.RunSQL "Update tbl03 INNER JOIN tblMaster " & _
 "ON tbl03.KW = tblOnd_RS.KW " & _
 "SET tbl03.CAp = [tblMaster].[CAp] "
End Function

如何避免这些警报消息？ 我很感激任何帮助。

Answer 1

请参阅http://www.fmsinc.com/microsoftaccess/query/action-queries/SuppressWarningMessages.htm和http://www.utteraccess.com/wiki/index.php/RunSQL_vs_Execute 。

你可以用

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE ..."
DoCmd.SetWarnings True

但这有多个问题，例如错误可能会阻止DoCmd.SetWarnings True运行，从而导致灾难。

更好的是：

Dim db As DAO.Database
Set db = CurrentDb  
db.Execute "UPDATE ...", dbFailOnError