accessの検索フォームについて（複数条件）

質問

access初心者です。
本などを参考に検索フォームを作成しました。
１つの条件で検索することは出来たのですが、複数の条件を入力するとうまく検索出来ません。
全ての条件を満たすデータの抽出を行いたいと思います。
「あ」「い」「う」というテキストボックスを用意しています。

Private Sub コマンド14_Click()

If Not IsNull(Me.txt_あ) Then '
Me.Filter = "あ LIKE '*" & Me!txt_あ & "*'"

End If

If Not IsNull(Me.txt_い) Then '
Me.Filter = "い LIKE '*" & Me!txt_い & "*'"

End If

If Not IsNull(Me.txt_う) Then '
Me.Filter = "う LIKE '*" & Me!txt_う & "*'"

End If

Me.FilterOn = True

End Sub

よろしくお願いします。

回答No.1

mshr1962 · ベストアンサー

Private Sub コマンド14_Click()

Me.Filter = "あ LIKE '*" & Nz(Me!txt_あ,"*") & "*' And い LIKE '*" & Nz(Me!txt_い,"*") & "*' And う LIKE '*" & Nz(Me!txt_う,"*") & "*'"

Me.FilterOn = True

End Sub

お礼

早速のご回答ありがとうございました。
出来ました。