[表示 : 全て 最新50 1-99 101- 201- 301- 2ch.scのread.cgiへ]
Update time : 01/06 22:39 / Filesize : 101 KB / Number-of Response : 346
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

スレ立てるまでもない質問はここで 163匹目

256 名前：デフォルトの名無しさん mailto:sage [2023/01/02(月) 14:04:21.59 ID:1wsplgZl0.net]
ACCESSのVBAで、下記のようなことってできないでしょうか？
アドバイス等頂けないでしょうか。。。

<やりたいこと>
下記コードにおいて、rs1で抽出したものの中から、さらに抽出してrs2に入れたいです。
https://i.imgur.com/S1mtPeL.png

<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




[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜101KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef