ms-access - 在 ACCESS 中运行宏

Question

我有一个关于 access 2000 或 2003 的问题，我需要制作一个宏来打开表单并自动单击运行查询的按钮，我该怎么做，可能有一些例子可以帮助我做到这一点？有什么建议么 ？我的想法是运行这样的东西：

Sub Refreshfiledata()
m  = MsgBox("Are you sure you want to run this macro ?.", vbYesNo)
If m = 6 Then
Application.DisplayAlerts = False
    SendKeys "{Enter}"
     Application.DisplayAlerts = True
      MsgBox "Done"
  End If
 End Sub

Answer 1

Sendkeys 几乎不能解决任何问题。

你可以把这样的东西放在一个模块中：

Sub OpenAForm()
    DoCmd.OpenForm "Form1"
    Forms!Form1.cmdClick_Click
End Sub

这将引用 form1 上的此代码，请注意PrivateAccess 通常在 Sub 之前添加的单词已被删除：

Sub cmdClick_Click()
    ''For a query to display data
    DoCmd.OpenQuery "Query1"
    ''For a query to change data
    CurrentDB.Execute "Query1", dbFailOnError
End Sub

您必须更改代码以适合您的设置。