Accessのパラメータは クエリのみならず、SQL文字列でも できるとは。。。

以下のリンクが参考になった。

パラメータの設定方法がわかりません。パラメータの設定を行ってい… – Yahoo!知恵袋

以下は、自分の業務で作成したコード。

[code]
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim qd As DAO.QueryDef
Set dbs = CurrentDb
strSQL = "SELECT count(合計111) AS RecCnt, sum(合計111) AS RecSum FROM 入金日と支払方法での抽出;"
Set qd = dbs.CreateQueryDef("", strSQL)
With qd
.Parameters("[Forms]![入金日と支払方法での抽出]![lst支払方法]") = [Forms]![入金日と支払方法での抽出]![lst支払方法]
.Parameters("[Forms]![入金日と支払方法での抽出]![txt開始日]") = [Forms]![入金日と支払方法での抽出]![txt開始日]
.Parameters("[Forms]![入金日と支払方法での抽出]![txt終了日]") = [Forms]![入金日と支払方法での抽出]![txt終了日]
End With
Set rst = qd.OpenRecordset
Me.txtクエリ結果合計.Value = Format(rst!RecCnt, "#,##0") & "件 / " & Format(rst!RecSum, "#,##0") & "円"
[/code]