如何避免警告“您將無法撤消此操作查詢即將對鏈接表中的數據進行的更改”

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