23/01/02 14:04:21.59 1wsplgZl0.net
ACCESSのVBAで、下記のようなことってできないでしょうか？
アドバイス等頂けないでしょうか。。。
<やりたいこと>
下記コードにおいて、rs1で抽出したものの中から、さらに抽出してrs2に入れたいです。
URLﾘﾝｸ(i.imgur.com)
<VBAコード(画像内と同じ)>
Sub test()
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Set db = CurrentDb
Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM [Tテーブル] WHERE [フィールド1] = 'A1'", dbOpenDynaset)
Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM rs1 WHERE [フィールド2] = 'B1'", dbOpenDynaset)
Debug.Print rs2("フィールド2") & rs2("フィールド3")
End Sub