※ ChatGPTを利用し、要約された質問です（原文：accessvba 複数条件でFilterをしたい）
Access VBAで複数条件でFilterをする方法
このQ&Aのポイント
Access VBAを使用して、複数の条件を組み合わせてFilterを行いたいです。
将来的には3つの非連結テキストボックスを使用し、ID、フィールド1、フィールド2の3つの条件を組み合わせてFilterを行いたいです。
現在のVBAコードでは、IDのフィルタリングは正常に動作していますが、フィールド1とフィールド2を組み合わせた条件を追加するとエラーが発生します。どのように修正すればよいでしょうか？
accessvba 複数条件でFilterをしたい
テーブル１
---------------------------------------
ID フィールド1 フィールド2
1 あ A
2 い B
3 う C
4 え D
5 お E
---------------------------------------
を作成し、そのテーブルをもとに、帳票フォームを作成しました。
そのフォームに非連結のテキストボックス
ID_テキスト
フィールド1_テキスト
フィールド2_テキスト
3つを設置しました。
行いたい事をクエリ（ＳＱＬ文）で例えると、
---------------------------------------
SELECT テーブル1.ID, テーブル1.フィールド1, テーブル1.フィールド2
FROM テーブル1
WHERE (((テーブル1.ID) Like "*" & Forms!テーブル1!ID_テキスト & "*") And ((テーブル1.フィールド1) Like "*" & Forms!テーブル1!フィールド1_テキスト & "*") And ((テーブル1.フィールド2) Like "*" & Forms!テーブル1!フィールド2_テキスト & "*"));
---------------------------------------
なのですが、
これをクエリを作成せずに、ＶＢＡで行いたいです。
各非連結のテキストボックスには、
更新後処理：[イベント プロシージャ]
としています。
---------------------------------------
Private Sub ID_テキスト_AfterUpdate()
Me.Form.Filter = _
"ID like '" & "*" & Me.ID_テキスト.Value & "*" & "'"
Me.Form.FilterOn = True
End Sub
---------------------------------------
は、問題なくできるのですが、
Private Sub ID_テキスト_AfterUpdate()
Me.Form.Filter = _
"ID like '" & "*" & Me.ID_テキスト.Value & "*" & "'" and & _
"フィールド1 like '" & "*" & Me.フィールド1_テキスト.Value & "*" & "'"
Me.Form.FilterOn = True
End Sub
にすると、エラーになります。
andの繋げ方が良くないと思うのですが、どうすればいいでしょうか？
最終的には、
Private Sub ID_テキスト_AfterUpdate()
Me.Form.Filter = _
"ID like '" & "*" & Me.ID_テキスト.Value & "*" & "'"
"フィールド1 like '" & "*" & Me.フィールド1_テキスト.Value & "*" & "'"
"フィールド2 like '" & "*" & Me.フィールド2_テキスト.Value & "*" & "'"
Me.Form.FilterOn = True
End Sub
のような感じにしたいです。
ご回答よろしくお願いします。
お礼
Me.Form.Filter = _ "ID like '" & "*" & Me.ID_テキスト.Value & "*" & "' and " _ & "フィールド1 like '" & "*" & Me.フィールド1_テキスト.Value & "*" & "' and " _ & "フィールド2 like '" & "*" & Me.フィールド2_テキスト.Value & "*" & "'" Me.Form.FilterOn = True できました！！！！ ありがとうございました。