MS-訪問 - 如何

Question

在MS-訪問我一個消息框出現

查詢的執行過程中運行，運行多個查詢一個宏，在警告消息框自動選擇是「你是即將運行更新..........你確定要運行這個查詢嗎？「

我該如何自動選擇所有這些情況，以便在沒有人爲干預的情況下運行宏。

Answer 1

您可以關閉暫時的警告是這樣的：

DoCmd.SetWarnings = False 
DoCmd.RunSQL ... 
DoCmd.SetWarnings = True 

Answer 2

它通常最好使用在這樣的情況下執行，以捕獲錯誤：

Dim db As Database, qdf As QueryDef, strSQL As String 

Set db = CurrentDb 
Set qdf = db.QueryDefs("Query17") 
qdf.Execute dbFailOnError 
Debug.Print qdf.RecordsAffected 

或者

strSQL="UPDATE SomeTable SET SomeField=10" 
db.Execute strSQL, dbFailOnError 
Debug.Print db.RecordsAffected 

使用dbFailOnError和錯誤陷阱捕獲錯誤或多或少是必需的，並且有一個數字其他有用的方面Execute Statement

Answer 3

爲避免每次執行任意SQL時必須編寫@Remou代碼，您可以使用my SQLRun function, which is designed as a dropin replacement for DoCmd.RunSQL並避免出現所有問題。