MS Access

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

投稿日:

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

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

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

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") & "円"

-MS Access

執筆者:

関連記事

no image

フォームを直接Accessで印刷プレビューし、閉じるときのイベントで処理をしたい

困ったこと: 前提として、自分とこのシステムは、フォームを直接Accessで印刷プレビューして、そのまま印刷できるように作ってある。 しかし、リボンに印刷プレビューを閉じるボタンがある一方で、フォーム …

no image

access覚書

複雑な親子フォームを作る際、テーブル設定でインデックスを2つのフィールドとも「はい (重複あり)」にすることで、親のコンボボックスに子が連動するようになった。 Excelでコピーした表データをテーブル …

もう何度もAccessの集計クエリの作成をミスって怒られている

私が悪い。反省。 自戒のメモ。 Accessの集計クエリに条件を加えたい場合、その条件をどこに書くかによって結果が全く違ってくる。 それをわかってはいるのだが・・・最大やら演算やら、細かいことを同時に …

no image

「抽出条件 フォーム access not in クエリ」とか「forms access in 抽出条件 複数」とかでググっても出てこなかったので、メモ

Accessでフォームからクエリに抽出条件をパラメータで渡すやり方が分からなくて、数時間苦労。 このタイトルがGoogleの肥やしになって、このサイトに来てくれる人が増えれば。。。 要するに私がやりた …

no image

Accessで、見積書のような「サブフォームつきフォームを丸々コピー」する方法・・・見つけるのに、四苦八苦。

最初、複雑でかつ読み取り専用のクエリを元にしたフォームをコピーしようとしていたために、 acCmdPasteAppendのラインで「コマンドまたはアクション”追加貼り付け”は無効です」のエラーが出て、 …