accessのＤＡＯの質問です。
access2003を使用しています。
テーブルの読込で「Set rs2 = db.OpenRecordset("テーブル名")」のように、
テーブルを一件ずつ読込むのは成功しました。
しかし、今ここに自分で作成したクエリをいれたいのですが、色々調べたところ
クエリをテーブルの様に一件一件読込んで使用するには、
パラーメーターというのを設定しないといけないということが分かりました。
そして下記のように書きましたが、エラーが出てきてしまいます。
「Q_１件ずつ読込みたいクエリ」にはちゃんと「伝票日付」という項目があります。
なのに、「実行時エラー3265 このコレクションには項目がありません。」
と出てきてしまいます。
原因は何でしょうか？
ちなみに
「Q_１件ずつ読込みたいクエリ」には「伝票日付」という項目に
between [Forms]![フォーム画面]![抽出基準日_始] and [Forms]![フォーム画面]![抽出基準日_終]
という抽出条件が入っています。
なので、ここにパラーメータークエリを入れようとエラーが発生している処理を書いています。
よろしくお願いします。
ベストアンサー
-
井戸端さん
満足125pt
パラメータ１つに値は１つよ。
qd.Parameters("抽出基準日_始") = pr1 qd.Parameters("抽出基準日_終") = pr2「伝票日付」という項目に
between [Forms]![フォーム画面]![抽出基準日_始] and [Forms]![フォーム画面]![抽出基準日_終]betweenやandのようなSQL文はすでに「Q_１件ずつ読込みたいクエリ」に書かれてるんだから必要なパラメータは抽出基準日_始と抽出基準日_終の２つってことよ。
between 抽出基準日_始 and 抽出基準日_終
-
その他の回答
-
syo777
ソースは以下の通りです。
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim qd As DAO.QueryDef
Dim pr1 As Date
Dim pr2 As Date
Set db = CurrentDb
Set qd = db.QueryDefs("Q_１件ずつ読込みたいクエリ")
pr1 = [Forms]![フォーム画面]![抽出基準日_始]
pr2 = [Forms]![フォーム画面]![抽出基準日_終]
qd.Parameters("伝票日付").Value = "Between " & pr1 & " And " & pr2 ←ここでエラーが発生
Set rs1 = qd.OpenRecordset
Set rs2 = db.OpenRecordset("テーブル名")
Do Until rs1.EOF
rs2.AddNew
rs2!表示順 = rs1!表示順
rs2.Update
rs1.MoveNext
Loop
- その他の回答を読む
この質問へのコメント
質問の情報
- 登録日時
- 2014-05-12 19:45:35
- 終了日時
- 2014-05-12 23:11:19
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
ビビディ・バビディ・ブティックでの質問です 6年生の小学生です 今度ビビディ・バビディ・ブティックを体…
匿名質問者
1
-
Sideshowと言うサイトからホットトイズの6分の1スケールフィギュアを購入しようかなと思ってます。そこで質…匿名質問者
-
高校生です。好きなyoutuberがいるのですがアンチが多いです。見てて不快なのですが自分では開示請求などが…
iroha10152
-
【東京ディズニーランドに行きたくても行けない】中学生のとき父親に「ディズニーランドに行きたい」と言っ…匿名質問者1
-
これらは、猫の嫌う匂いらしい。蠅、蚊、ゴキブリ は、これらを嫌わないのだろうか ●柑橘類の匂い …匿名質問者2