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
よろしくお願いします。
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
お礼
早速のご回答ありがとうございました。 出来ました。