- 263 名前：デフォルトの名無しさん mailto:sage [2023/01/02(月) 16:44:54.81 ID:1k7qyNCA0.net]
- >>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)
