スポンサーリンク
パラメータクエリー(アクションクエリー)に引数を渡してVBAで実行するサンプルプログラムです。
コピペでご利用ください。※ご利用は自己責任でお願いします。

パラメータクエリーのススメAccessのクエリーで抽出条件を直接書いている方へ、パラメータークエリーをおススメします。条件を直接記入していると条件が変わるたびにクエリーの修正が発生しミスを誘発します。思ったより簡単ですのでぜひパラメータークエリーに変更してみてください。...
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
''------------------------------------------------------------ ' 処理内容:パラメータクエリーに引数をセットして実行 ' 引数: ' 戻り値:なし '------------------------------------------------------------ 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 |
スポンサーリンク
スポンサーリンク