[過去ﾛｸﾞ] スレ立てるまでもない質問はここで 163匹目 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

256(1): (ﾜｯﾁｮｲ 8abd-/EFQ) 2023/01/02(月)14:04 ID:1wsplgZl0(1/3) AAS
ACCESSのVBAで、下記のようなことってできないでしょうか？
アドバイス等頂けないでしょうか。。。

<やりたいこと>
下記コードにおいて、rs1で抽出したものの中から、さらに抽出してrs2に入れたいです。
画像ﾘﾝｸ


<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

---

261(1): (ﾜｯﾁｮｲ 8abd-/EFQ) 2023/01/02(月)14:40 ID:1wsplgZl0(2/3) AAS
>>260
返信ありがとうｔございます。

後出しで申し訳ないですが、
rs1、rs2の２つならそれで良さげですが、複数個あってfor文とかで回そうとしたときに、その記載だとスマートに書けず。。。
※rs2はrs1の中から、rs3はrs2の中から、・・・みたいな。
　（実際にはさらに条件判定も入って、条件満たしていないときは飛ばすみたいな感じの予定です。）
なので、いったんrs1みたいに変数に格納して、それを使えたらなと思ってます。

---

264: (ﾜｯﾁｮｲ 8abd-/EFQ) 2023/01/02(月)17:12 ID:1wsplgZl0(3/3) AAS
>>262
ありがとうございます。

Filterっていうのがあるんですね。
なんかうまく使えそうな気がするので使ってみます。
（なぜかCurrentDb.OpenRecordsetだとうまく機能しなかったのですが、ADODB.Recordsetにしたらうまくできました。）

>>263
既に複雑なループや条件判定の状況だと複雑化しそうで、、、
（コーディングうまい人だと、うまく扱えるのだとは思うのですが）
ただ、これはこれで勉強になりました。（またFilterでうまくコード組めなかったときには使わせて頂くかもです）
ありがとうございました。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.039s