【Access】スペースで区切った複数条件あいまい検索

Question

お世話になります。
WEB検索でよくあるようなスペースで区切ったあいまい検索（複数フィールド）をしたいです。
調べて下記コードで試してみましたがうまく行きません。

コマンドボタン：cmd_filter
テキストボックス：商品名検索
対象のフィールド：商品名　と　規格

Private Sub cmd_filter_Click()

    Dim strFilter As String

    strFilter = "*" & Replace(Me.商品名検索, " ", "* And *") & "*"
    strFilter = BuildCriteria("[商品名]&[規格]", dbText, strFilter)
    DoCmd.OpenForm "F売上サブフォーム", , , strFilterr
End Sub

上記を実行すると
「実行エラー'2431':
指定した式の構文が正しくありません。」
となり
strFilter = BuildCriteria("[商品名]&[規格]", dbText, strFilter)
の部分が黄色く反転しています。
どのようなコードにすれば宜しいでしょうか。

Comments

[hatena19]

Access のバージョンはなんでしょうか。
また、テキストボックス 商品名検索 には、どのような値を入力しましたか。

[tkyk.]

hatena19様
お世話になります。
Accessのバージョンは2003です。
商品名検索には「カートリッジ」などの文字です。
または「8099」など数値を入力する場合もあります。
宜しくお願い致します。

[hatena19]

2003 とはまた古いバージョンをお使いで。BuildCriteria は割と新しい関数なので、2003では実装されていないかったかも。
どちらにしてもセキュリティ面から早急に新しいバージョンに変更すべきかと。

[tkyk.]

hatena19様
すみません。
間違えました。
バージョンはAccess for office365 MSO 64ビットでした。

[hatena19]

そうですか。実際のコードと提示のものに違いはありませんか。当方のAccessではそのコードで構文エラーにはなりませんね。
新規にデータベースファイルを作成して、そこでシンプルなサンプルを作成して、そのコードを実行しても同じエラーになりますか。

[tkyk.]

新規にデータベースを作って同じコードで実行しましたがやはり同じエラーが出ます。
「商品名」というところがおかしいのでしょうか・・・
検索対象のフィールド名が「商品名」なので間違えてはないはずですが。

[tkyk.]

度々すみません。
上記のコードの「dbText」を「10」に変えたら無事に動きました。

ちなみに複数の検索ボックスにしたい場合はどのように繋げれば良いのでしょうか。
現在は「商品名」のみの検索ボックスですが、この他に「得意先名」の検索ボックスにも入力して絞り込み検索をしたいです。
宜しくお願い致します。

Answer 1

like検索がしたいのなら、likeが漏れていますよ

    strFilter = "like *" & Replace(Me.商品名検索, " ", "* And like *") & "*"
    strFilter = BuildCriteria("[商品名]&[規格]", 10, strFilter)

Comments

[hatena19]

BuildCriteria関数は、検索語に * が含まれていたら、自動で Like を付加してくれます。

[tkyk.]

sazi様
ありがとうございます！
like入れて無事に動作しました。

[sazi]

@hatena19さん
先にlike入れて確認していたので、気付きませんでした。
@tkyk.さん
likeは必要なさそうですので、無視して下さい。

[tkyk.]

sazi様
承知致しました。
like入れても無事に動きました。
ちなみにもうひとつお伺いしたいことがあるので別に質問たてます。
まとめて質問せず申し訳ありません。

Answer 2

修正依頼のコメントより

ちなみに複数の検索ボックスにしたい場合はどのように繋げれば良いのでしょうか。

現在は「商品名」のみの検索ボックスですが、この他に「得意先名」の検索ボックスにも入力して絞り込み検索をしたいです。

下記でどうでしょう。

Private Sub cmd_filter_Click()

    Dim strFilter As String
    If Me.商品名検索 <> "" Then
        strFilter = "*" & Replace(Me.商品名検索, " ", "* And *") & "*"
        strFilter = BuildCriteria("[商品名]&[規格]", dbText, strFilter)
    End If

    Dim strFilter1 As String
    If Me.得意先名検索 <> "" Then
        strFilter1 = "*" & Replace(Me.得意先名検索, " ", "* And *") & "*"
        strFilter1 = BuildCriteria("[得意先名]", 10, strFilter1)
        If strFilter <> "" Then strFilter = strFilter & " AND " 
        strFilter = strFilter & strFilter1
    End If

    DoCmd.OpenForm "F売上サブフォーム", , , strFilterr
End Sub

Comments

[tkyk.]

ありがとうございます！
無事に出来ました。
いつも助かります！