パラメータクエリーに引数を渡してVBAで実行する

2025年4月13日

当ページのリンクには広告が含まれています。

URLをコピーしました！

パラメータクエリー（アクションクエリー）に引数を渡してＶＢＡで実行するサンプルプログラムです。

コピペでご利用ください。※ご利用は自己責任でお願いします。

アズビーパートナーズ | 業務効率…

Accessのパラメータークエリーを使う Accessのクエリーで抽出条件を直接書いている方へ、パラメータークエリーをおススメします。条件を直接記入していると条件が変わるたびにクエリーの修正が発生しミスを誘発…

''------------------------------------------------------------
'   処理内容:パラメータクエリーに引数をセットして実行
'   引数:
'   戻り値:なし
'------------------------------------------------------------
Private Sub RunParamQry()

    Dim strsql          As String
    Dim myDb            As Database
    Dim myQdef          As QueryDef
    Dim strFormName     As String
    
    On Error GoTo Err_Exit
    
    '警告OFF
    DoCmd.SetWarnings False
    
    Set myDb = CurrentDb
    
    '引数に定義済みのクエリーの名前を指定
    Set myQdef = myDb.QueryDefs("Qryname")
    
    With myQdef
        'パラメータ(ID)に値をセット
        .Parameters("ID") = 123
        'アクションクエリーを実行
        .Execute
    End With
    
    'クエリー定義の開放
    Set myQdef = Nothing: Close
    
    '警告ON
    DoCmd.SetWarnings True

End Sub

アズビーパートナーズ | 業務効率…

アクションクエリで処理した件数（レコード数）を取得する方法 Accessでアクションクエリを実行する方法はいくつかあります。直接クエリを実行する方法・VBAからSQLコ

よかったらシェアしてね！