0

アクセス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
4

1 に答える 1

2

Sendkeysはほとんど何の解決策でもありません。

次のようなものをモジュールに入れることができます。

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

Privateこれはform1のこのコードを参照しますが、Subが削除される前にAccessが通常追加する単語に注意してください。

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

設定に合わせてコードを変更する必要があります。

于 2013-02-04T10:35:35.790 に答える