自动应答 UpdateQuery 对话框 Access07
Auto-Answer UpdateQuery dialog Access07
每次加载表单时，我都会通过 VBA 更新查询 运行。每当查询 运行 时，它都会询问您是否要更新记录。有没有办法自动回答是？
我忘了说这是通过 DoCmd.RunSQL 实现的，where 子句看起来像 "UPDATE ItemList SET ItemList.Billed = 1 WHERE (((ItemList.ShipRef)=[Forms]![ItemList1]![SRCB]));"
最佳解决方案：使用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。
每次加载表单时，我都会通过 VBA 更新查询 运行。每当查询 运行 时，它都会询问您是否要更新记录。有没有办法自动回答是？
我忘了说这是通过 DoCmd.RunSQL 实现的，where 子句看起来像 "UPDATE ItemList SET ItemList.Billed = 1 WHERE (((ItemList.ShipRef)=[Forms]![ItemList1]![SRCB]));"
最佳解决方案：使用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。