syo777回答ポイント 100pt

ＤＡＯの質問です。

access2000を使用しています。
以下の通りプログラムがあります。

Sub makuro()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset

Set db = CurrentDb
Set rs1 = db.OpenRecordset("テーブルA")
Set rs2 = db.OpenRecordset("テーブルB")

Do Until rs1.EOF
　　　　処理
rs1.MoveNext
Loop

Set db = Nothing
Set rs1 = Nothing
Set rs2 = Nothing
End Sub

今これを、テーブルA（テーブル）ではなくクエリを入れることは可能でしょうか？
もし可能ならどのように、Set rs1 = db.OpenRecordset("テーブルA")を
どのように書けばよろしいのでしょうか？
よろしくお願いします。

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ログインして回答する

ベストアンサー

cx202012/02/23 20:22:20
満足100pt
■ OpenRecordsetメソッド： DAOリファレンス - DAO入門講座
http://www.accessclub.jp/dao/OpenRecordset.html

Set recordset = object.OpenRecordset {(source), type, options, lockedits}
OpenRecordset メソッドの第１引数（source）には、
- テーブル名
- クエリ名
- SQL文
のいずれかを指定することができます。
今これを、テーブルA（テーブル）ではなくクエリを入れることは可能でしょうか？
「クエリ」が「SQL文」のことを意味しているのでしたら、
```
Set rs1 = db.OpenRecordset("SELECT * FROM テーブルA")
```
のように記述するだけです。
```
Sub makuro()
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
    
    Set db = CurrentDb
    Set rs1 = db.OpenRecordset("SELECT * FROM テーブルA")
    Set rs2 = db.OpenRecordset("テーブルB")
    
    Do Until rs1.EOF
        Debug.Print rs1(0) ' テーブルAの１つめの項目の値を表示
        rs1.MoveNext
    Loop
    
    Set db = Nothing
    Set rs1 = Nothing
    Set rs2 = Nothing
End Sub
```
スター
- 3件のコメントを見る
- syo777 2012/02/25 16:47:24
  
  クエリを作成してそれを読み込みたいのですが、
  Set rs1 = db.OpenRecordset("クエリ１")
  といれて実行すると、
  実行時エラー3061
  パラメータが少なすぎます。２を指定してください。
  と出て、うまく動きません・・・。
  
  クエリなのですが、フォーム上で日付を入れて、その日付のデータを
  抽出範囲として抜いたクエリになっているのですが、
  そもそもクエリは抽出条件を入れたものに関しては、インプットのデータとして
  使えないということでしょうか？
  実験的に抽出条件を何も触っていないクエリは
  Set rs1 = db.OpenRecordset("クエリ１")
  の書き方で、うまく動いたようです・・・
  何かうまい方法はありますでしょうか？
  
  スター
- cx20 2012/02/25 19:24:34
  条件指定をクエリの引数として使う場合は「パラメータクエリ」を用います。
  ■ パラメータ付クエリーの実行（DAO-MDB）
  http://homepage2.nifty.com/inform/vbdb/dao_paramquery.htm
  以下、サンプルです。
  Dim db As DAO.Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim qd As DAO.QueryDef Set db = CurrentDb Set qd = db.QueryDefs("クエリ1") qd.Parameters("開始日").Value = "2012/01/25" qd.Parameters("終了日").Value = "2012/02/25" Set rs1 = qd.OpenRecordset
  
  スター
- syo777 2012/02/29 20:17:56
  
  丁寧なご回答ありがとうございました＾＾
  
  スター

ＤＡＯの質問です。

ベストアンサー

cx202012/02/23 20:22:20
満足100pt

syo777 2012/02/25 16:47:24

cx20 2012/02/25 19:24:34

syo777 2012/02/29 20:17:56

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

ＤＡＯの質問です。

ベストアンサー

cx202012/02/23 20:22:20 満足100pt

syo777 2012/02/25 16:47:24

cx20 2012/02/25 19:24:34

syo777 2012/02/29 20:17:56

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

cx202012/02/23 20:22:20
満足100pt