如何在访问中单击按钮的形式运行查询和模块？

Question

我有两个保存的查询和一个模块， 我想让它们以一个单击按钮的形式运行它们。

我尝试了一个简单的代码：

Private Sub Button1_Click()

CurrentDb.Execute "q1"
CurrentDb.Execute "q2"
CurrentDb.Execute "modul1"
MsgBox ("finish!")




End Sub

有人能帮助我吗？

谢谢！

Answer 1

试试这个：

DoCmd.OpenQuery "q1"
DoCmd.OpenQuery "q2"
DoCmd.OpenModule "modul1"