DAOの質問です｡ access2000を使用しています｡以下の通りﾌﾟﾛｸﾞﾗﾑがあります｡ Sub makuro() Dim db As DAO.Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Rec…

DAOの質問です｡
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")を
どのように書けばよろしいのでしょうか？
よろしくお願いします｡

■ OpenRecordsetﾒｿｯﾄﾞ： DAOﾘﾌｧﾚﾝｽ - DAO入門講座
http://www.accessclub.jp/dao/OpenRecordset.html

Set recordset = object.OpenRecordset {(source), type, options, lockedits}

OpenRecordset ﾒｿｯﾄﾞの第1引数(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の1つめの項目の値を表示
 rs1.MoveNext
 Loop
 
 Set db = Nothing
 Set rs1 = Nothing
 Set rs2 = Nothing
End Sub