Question

我有一个追加查询，我想触发一个命令按钮点击。我的启动画面带有一个执行Close＆amp; amp;的命令按钮。打开命令。我想组合追加查询以在此单击事件期间执行。

启动画面的我的VBA

Option Compare Database

Private Sub SplCls_Click()
On Error GoTo Err_SplCls_Click

DoCmd.Close

stDocName = "Switchboard"
DoCmd.OpenForm stDocName

Exit_SplCls_Click:
Exit Sub

Err_SplCls_Click:
MsgBox Err.Description
Resume Exit_SplCls_Click

End Sub

我知道需要知道它需要介于DoCmd.Close＆amp; DoCmd.OpenForm。附加查询名为“qry_YOS”。对此段代码的任何指导都将不胜感激。

Answer 1

使用DAO数据库Excute方法运行追加查询。如果您希望在.Close和.OpenForm ...

之间进行此操作

DoCmd.Close ' close what?  If it works, fine.  '
CurrentDb.Execute "qry_YOS", dbFailonerror
stDocName = "Switchboard"
DoCmd.OpenForm stDocName

BTW，在代码模块的声明中总是包含Option Explict，如下所示：

Option Compare Database
Option Explicit

从VB Editor的主菜单中，选择Tools-＆gt; Options。然后在“选项”对话框的“编辑器”选项卡上，选中“需要变量声明”旁边的复选标记。该设置将确保Option Explict包含在所有新代码模块中。我强烈建议您手动将其添加到任何尚未拥有它的现有代码模块中。然后从VB编辑器的主菜单中选择Debug-＆gt; Compile并修复编译器抱怨的任何内容。希望这不会太多，但从长远来看，这是一项很好的投资。

作为没有Option Explicit的VBA开发人员的生活是不必要的复杂。只要总是用它来拯救自己的悲伤。您可以稍后感谢我。： - ）

MS-Access 2003从命令按钮单击触发追加查询

1 个答案: