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

2025年4月13日

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

URLをコピーしました！

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

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

アズビーパートナーズ

パラメータクエリーのススメ | アズビーパートナーズ Microsoft Officeの簡易データベースシステムMicrosoft 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

アズビーパートナーズ