1

我有一个附加查询，我想通过单击命令按钮来触发。我的初始屏幕带有一个执行关闭和打开命令的命令按钮。我想在这个点击事件期间结合附加查询来执行。

我用于启动画面的 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 和 DoCmd.OpenForm 之间进行。附加查询被命名为“qry_YOS” 任何关于这段代码的指导将不胜感激。

4

1 回答 1

2

使用 DAO 数据库Excute方法运行追加查询。如果您希望在.Close和之间发生这种情况.OpenForm...

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

顺便说一句，始终包含Option Explict在您的代码模块的声明中，如下所示：

Option Compare Database
Option Explicit

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

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

于 2012-12-18T19:19:22.137 回答