[過去ﾛｸﾞ] スレ立てるまでもない質問はここで 163匹目 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

263(1): (ﾜｯﾁｮｲ 9a01-+uJR) 2023/01/02(月)16:44 ID:1k7qyNCA0(5/6) AAS
>>261
よく分からんけどfor文で条件式組み立てるだけじゃないの？
Dim C As Scripting.Dictionary
C.Add "フィールド1", "A1"
C.Add "フィールド2", "B1"
C.Add "フィールド3", "C1"
...
Dim W As String
W = "1 = 1"
Dim F As Variant
For Each F In C.Keys
W = W & " AND [" & F & "] = '" & C(F) "'"
Next
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [Tテーブル] WHERE " & W, dbOpenDynaset)

---

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

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

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

---

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

---

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

---

ぬこの手 ぬこTOP 0.031s