Question

我有一个关于访问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上引用此代码，请注意Access通常在Sub被删除之前添加的单词Private：

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

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

在ACCESS中运行宏

1 个答案: