アクセスで複数テキストボックスで検索

ACCESS 2010を使用しています。
一つのテキストボックスに対してキーワードを複数入力して、or条件で
かつ、テキストボックスを複数設置して、テキストボックス間はand条件で検索したいです。

例えば、テキスト型のフィールドが２フィールドあります。
「フィールドあ行」　には　
あ　
あい　
いうえ　　　　

のようなデータがあって、

「フィールドか行」　には
か
かき
きくけ

のようなデータがあるときに、

「テキストボックスあ行」　　に　　「あ　い」
「テキストボックスか行」　　に　　「か　き　く」
を入力して、検索ボタンを押すと、

「フィールドあ行」　が　「あ　or　い」　を含み、かつ
「フィールドか行」　が　「か　or　き　or　く」　を含むレコードを検索する

のようなコードをかきたいのですが、うまくいきません。教えていただけないでしょうか

No.3 ベストアンサー 回答者： psgrade 回答日時： 2020/06/25 18:10

No. 2です。

後半のコードで漏れが有りました。
下記で差し替えお願いします。
前半で作成した検索文字列に付加するという事です。

MyCriteria = MyCriteria & "(フィールド２ Like '*" & Replace(Me![Research2], " ", "*' Or フィールド２ Like '*") & "*')"

半角スペースの配置に留意してください。

この回答へのお礼

できました！大変助かります、ありがとうございます。

お礼日時：2020/06/25 23:23

No.2 回答者： psgrade 回答日時： 2020/06/24 14:50

「検索実行」ボタン(MySearch)を作成し、それぞれのテキストボックスの内容を元に、下記のような検索文字列を作成するプログラムを作ることが考えられます。

MyCriteria="（フィールド１ Like '*あ*' Or フィールド１ Like '*い*') And (フィールド2 Like '*か*' Or フィールド２ Like '*き*' Or フィールド２ Like '*く*')"
Me.Filter=MyCriteria
Me.FiterOn=True
具体的には下記のようになります。
MyResearchのクリック時プロシジャーに記載します。
全角スペースを半角に変換していますが、Replaceでも対応済かもしれません。

Private Sub MySearch_Click()
Dim MyCriteria As String, TempString As String

MyCriteria = ""
If Not IsNull(Me![Research1]) Then 'テキストボックス１の場合
TempString = Replace(Me![Research1], "　", " ") '全角スペースを半角に変換
MyCriteria = "(フィールド１ Like '*" & Replace(TempString, " ", "*' Or フィールド１ Like '*") & "*')"
End If

If Not IsNull(Me![Research2]) Then　’テキストボックス２の場合
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And " '前の検索文字列がある時は、Andを付加する。
End If
TempString = Replace(Me![Research2], "　", " ") '全角スペースを半角に変換
MyCriteria = "(フィールド２ Like '*" & Replace(Me![Research2], " ", "*' Or フィールド２ Like '*") & "*')"
End If

If MyCriteria <> "" Then
Me.Filter = MyCriteria
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub

参考にして下さい。

No.1 回答者： めぐみん_ 回答日時： 2020/06/21 06:35

Accessはどっ素人ですけど、普通に考えると

「フィールドあ行」

の方は、IN(Replace([テキストボックスあ行],"　”,","))

と IN を使う事で『カンマ区切りの文字のどれかを含む』になりそうな気もしますよ。（当然！憶測です）
「フィールドか行」の抽出条件も上と同行に記載すれば『AND』になりそうな気もしますし。（勿論！憶測です）

ダメでしたら他の回答をお待ちくださいませ。

この回答へのお礼

なかなかうまくできませんでしたが、ありがとうございます！

お礼日時：2020/06/25 23:32