RunSQLメソッドでアクションクエリを実行

Access VBAではDoCmd.RunSQLメソッドでSQLが実行できます。

前回取得方法を紹介したアクションクエリのSQLを
引数として使用してDoCmd.RunSQLメソッドを実行してみます。

Sub RunSQLでクエリ実行()
    '確認メッセージを非表示にする
    DoCmd.SetWarnings False
    
    '追加クエリを実行する
    DoCmd.RunSQL CurrentDb.QueryDefs("クエリAdd").SQL
    
    ' 確認メッセージを表示する
    DoCmd.SetWarnings True
End Sub

上記により、前々回に行なった
DoCmd.OpenQuery “クエリAdd”
と同じことができます。