在ACCESS中運行宏

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上的代碼，請注意，之前子已被刪除的訪問通常這個詞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 

你將不得不改變代碼來適應你的設置。