自动应答UpdateQuery对话框Access07

Question

每次表单加载时，我都有一个通过VBA运行的更新查询。无论何时运行查询，它都会询问您是否要更新记录。有没有办法自动回答是？

我忘了提到这是通过DoCmd.RunSQL实现的，其中where子句看起来像"UPDATE ItemList SET ItemList.Billed = 1 WHERE (((ItemList.ShipRef)=[Forms]![ItemList1]![SRCB]));"

Answer 1

最佳解决方案：使用DB.Execute，例如

Dim S As String

S = "UPDATE ItemList SET Billed = 1 WHERE ShipRef = " & [Forms]![ItemList1]![SRCB]
' or if ShipRef is Text:
S = "UPDATE ItemList SET Billed = 1 WHERE ShipRef = '" & [Forms]![ItemList1]![SRCB] & "'"

CurrentDb.Execute S

这不会要求确认。

有关DB.Execute与DoCmd.SetWarnings False和DoCmd.RunSQL的信息，请参阅Run Microsoft Access Action Queries in VBA and Hide Warnings without Using DoCmd.SetWarnings。