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でのテーブルのエクスポート定義

Access2007のテーブルをcsv保存したいのだが、結果ファイルにダブルコーテーションを付けたくない・・・。 ダブルクォーテーションつきであれば、例えば、 DoCmd.TransferText a …

no image

Accessのフォームでテキストボックスに入れた値を次回オープン時の既定値として自身に保存するには

ちょっとだけ苦労した。 次回もきっと使うことがあるだろうから、メモメモ。 現在の値を変数に入れておく(これをしておかないと、次の処理でデザインビューに切り替わるために入力した値も消える)。 フォームを …

no image

「3070 有効なフィールド名または式として認識できません」エラーで、困った

Accessで、クエリ単体での実行だとうまくいくのに、いざ、そのクエリをVBAコード内で実行すると、上記エラーが出る。 難問だった。 SQL文内でDISTINCTを使っているからかなーとか、LEFT …

no image

Accessでレポートを印刷したいのにフォームが印刷されるトラブル

現象:全てではなく特定のPCで、チェックリストを出力しようとすると、バックで開いているフォームがプリントされる。 毎回起きるトラブルではなく、うまく出るときもある。 最初の対策:以下のブログを参考に、 …

no image

AccessからMySQLを操作

WordPressに書いた記事は、MySQLに格納されている。 格納された大量の記事をまとめて修正したいときは、いちいち管理画面から修正するのは疲れる。 今までは、PhpMyAdminでSQLのUPD …