Sql MS Access 2003通过单击命令按钮触发追加查询

我有一个附加查询，我想通过单击命令按钮触发它。我的闪屏上有一个执行关闭和打开命令的命令按钮。我想在这个单击事件期间合并要执行的追加查询

我的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

---

我知道enoug需要介于DoCmd.Close和DoCmd.OpenForm之间。追加查询名为“qry_-YOS”，非常感谢对这段代码的任何指导。

使用DAO数据库

Excute

方法运行追加查询。如果您希望在

.Close

和

.OpenForm

之间发生这种情况

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

顺便说一句，在代码模块的声明中始终包含

选项Explict

，如下所示：

Option Compare Database
Option Explicit

从VB编辑器的主菜单中，选择工具->选项。然后在“选项”对话框的“编辑器”选项卡上，在“需要变量声明”旁边打上复选标记。该设置将确保所有新代码模块中都包含

选项Explict

。我强烈建议您手动将其添加到任何现有的代码模块中，而这些模块还没有。然后从VB编辑器的主菜单中选择Debug->Compile，并修复编译器抱怨的任何问题。希望这不会太多，但从长远来看，这是一项不错的投资

---

作为一名VBA开发人员，如果没有显式的

选项

，生活会变得非常复杂。总是用它来减轻自己的悲伤。以后你可以谢谢我。：-）

谢谢你，汉斯！我感谢你的指导！