AccessVBA検索フォームについて

Question

前提・実現したいこと

accessで検索フォームを作っています。
すべて含むもしくは一部含むような検索フォームです。

発生している問題・エラーメッセージ

商品コード開始と終了の部分がエラーが起きてしまい、いくつか調べてためしてみたましたが、解決しません。
やりたいことは商品コードはテキスト型で数字のみです。（頭に0がつくため）
検索できるようクエリを作ってそれをもとに検索しています。
要望として「商品コード開始」と「商品コード終了」の項目には「商品コード開始」のみに入力されていても検索ができるように
または「商品コード開始」と「商品コード終了」を入れるとその範囲内のコードが表示されるようにしたいです。いくら調べて、考えても解決できませんでした。

追記：商品コードの開始と終了は解決しました。ありがとうございます。ただ年月度を入れると検索ができなくなってしまったのですが、
この場合年月度はテキスト型なので同じようにしたのでは間違いになるのでしょうか。
会社の要望としては年月度だけでの検索もできるようにしたいし、年月度と商品コード、担当者などをいれても検索が動くようにしてほしいということなのですが、別に作ったほうが良いのでしょうか？それとも年月度はあきらめてもらうほうがいいのでしょうか。
ちなみに元となっているテーブルはCSVからデータを読み込む関係ですべてテキスト型になっています。

該当のソースコード

 If Not IsNull(Me.開始年月度) And Not IsNull(Me.終了年月度) Then
strFilter = " AND 年月度 >= '" & Me.開始年月度 & "' AND 年月度 <= '" & Me.終了年月度 & "'"
ElseIf Not IsNull(Me.開始年月度) Then
strFilter = " AND 年月度 = '" & Me.開始年月度 & "'"
End If

    If Not IsNull(Me.tx請求先名) Then
        strFilter = strFilter & " AND 請求先名 Like '*" & Me.tx請求先名 & "*'"
    End If
     
    If Not IsNull(Me.得意先名) Then
        strFilter = strFilter & " AND 得意先名1 Like '*" & Me.得意先名 & "*'"
    End If
     
   If Not IsNull(Me.商品コード開始) And Not IsNull(Me.商品コード終了) Then
strFilter = " AND 商品ｺｰﾄﾞ >= '" & Me.商品コード開始 & "' AND 商品ｺｰﾄﾞ <= '" & Me.商品コード終了 & "'"
ElseIf Not IsNull(Me.商品コード開始) Then
strFilter = " AND 商品ｺｰﾄﾞ = '" & Me.商品コード開始 & "'"
End If
     

    If Not IsNull(Me.tx商品名) Then
        strFilter = strFilter & " AND 商品名 Like '*" & Me.tx商品名 & "*'"
    End If
     
     If Not IsNull(Me.tx担当者名) Then
        strFilter = strFilter & " AND 担当者名 Like '*" & Me.tx担当者名 & "*'"
    End If
   
     
    Me.Filter = Mid(strFilter, 6)
    If strFilter = "" Then
        Me.FilterOn = False
    Else
        Me.FilterOn = True
    End If
End Sub

試したこと

between以外に
If Not IsNull(Me.商品コード開始) And IsNull(Me.商品コード終了) Then
strFilter = " AND 商品ｺｰﾄﾞ >= #" & Me.商品コード開始 & "# AND 商品ｺｰﾄﾞ <= #" & Me.商品コード終了 & "#"
End If
も試してみました←こちらの件は解決しました。

Comments

[sousuke]

商品コードの桁数はすべて同じ桁数ですか？

[sazi]

その商品コードが含まれるテーブルにその商品コードが有効な期間（開始～終了）があるという事では無いですか？
「条件で有効な期間を指定して、該当する商品コードをピックアップする」のがやりたい事ではないですか？

[yazu-0809]

sousukeさま、商品コードの桁数は今のところ同じで7桁です。今後増える可能性はあるかもですが、
とりあえず扱う商品の数では足りています。
saziさま、おっしゃる通りのこともできるようにしたいというのが要望です。
年月度の検索だけでも可能でしたし、担当者などの検索はできたのですが、商品コード検索を入れると年月は動かなくなりました。もしかしてもう1つフォーム作ったほうがいいのでしょうか？

[sazi]

入力項目を#で囲っていたので日付項目なのかと思っていました。
質問としては、商品コードをそのコードの範囲で検索する仕様という事でいいのですね。
範囲で検索するという事は商品コードは体系化されているのだと推測します。
こういう場合は範囲ではなくlikeで例えば上４桁で検索するなどの方が目的にあっていると思うのですが、どうでしょうか。

[yazu-0809]

saziさま:確かにlikeの作り方もありますね。日付の部分を#でくくっていたのは、コードを見ていたら、間違っていたと思いました。ただ日付のところは上4桁だと2020/07の表記なので、難しいのかなと思っていまして・・今回の質問については解決しましたので、別のフォームを作るときには改めてlikeでもチャレンジしてみます。ありがとうございました。

[sousuke]

商品コードの桁数が増えたら「コード開始、コード終了」のロジックが破綻（少なくともわかりにくくなる）するのは考慮しておいたほうがいいです。元の7桁コードもすべて増やして全商品コードの桁数を揃えるならオッケーです。

Answer 1

やりたいことは商品コードはテキスト型で数字のみです。（頭に0がつくため）

# で囲むのは日付/時刻型の場合です。テキスト型の場合は、'（単引用符）で囲んでください。
あと Ifの条件式も間違ってます。

If Not IsNull(Me.商品コード開始) And Not IsNull(Me.商品コード終了) Then
    strFilter = strFilter & " AND 商品ｺｰﾄﾞ >= '" & Me.商品コード開始 & "' AND 商品ｺｰﾄﾞ <= '" & Me.商品コード終了 & "'"
End If

Between を使うなら、

     If Not IsNull(Me.商品コード開始) And Not IsNull(Me.商品コード終了) Then
        strFilter =  strFilter & " AND 商品ｺｰﾄﾞ Between '" &  Me.商品コード開始 & "' And '" & Me.商品コード終了 & "'"
    End If

あと、蛇足ですか、フィールド名は「商品ｺｰﾄﾞ」とコードが半角になってますが、正しいですか。
できれば、テキストボックスの方は「商品コード開始」と全角になってますが。
全角に統一しておいた方がトラブルがないと思います。

追記

要望として「商品コード開始」と「商品コード終了」の項目には「商品コード開始」のみに入力されていても検索ができるように

または「商品コード開始」と「商品コード終了」を入れるとその範囲内のコードが表示されるようにしたいです。

上記の部分を見落としてました。下記のようにしてください。

```vba
If Not IsNull(Me.商品コード開始) And Not IsNull(Me.商品コード終了) Then
    strFilter = strFilter & " AND 商品ｺｰﾄﾞ >= '" & Me.商品コード開始 & "' AND 商品ｺｰﾄﾞ <= '" & Me.商品コード終了 & "'"
ElseIf Not IsNull(Me.商品コード開始) Then
    strFilter = strFilter & " AND 商品ｺｰﾄﾞ = '" & Me.商品コード開始 & "'"
End If

Comments

[yazu-0809]

ありがとうございます。コードの検索はできるようになりました。
ただそうすると、年月度を入れて商品コードを検索することができなくなってしまいました。
今回の場合、年月度を入れて商品コードを検索することもできるようになり、一方商品コードだけでの検索もできるようにしたいというのが会社の要望なのですが、可能なのでしょうか？

[hatena19]

回答のコードが間違っていたので修正しましたので、ご確認ください。

[yazu-0809]

ありがとうございます。年月度もテキスト型だったので、同じコードで変えたところすべてうまくいきました。本当に助かりました。