【Access】売上日　〇〇日～〇〇日の抽出VBA

お世になります。
連日の質問すみません。
またまとめて質問せず申し訳ありません。
もうひとつだけお伺いしたいことがあります。

昨日教えていただいた検索フォームに売上日（〇年〇月〇日以上～〇年〇月〇日以下）の検索ボックスを追加したいのですが下記コードでうまく動作しません。
売上日以外は動作するのですが、売上日だけに何か入力するとエラーが出ます。

Private Sub cmd_filter_Click()

    Dim strFilter As String
    If Me.商品名検索 <> "" Then
        strFilter = "*" & Replace(Me.商品名検索, " ", "* And *") & "*"
        strFilter = BuildCriteria("[商品名]&[規格]", 10, strFilter)
        Me.cmd_filter.SetFocus
    End If
    
    If Me.得意先名検索 <> "" Then
        strFilter1 = "*" & Replace(Me.得意先検索, " ", "* And *") & "*"
        strFilter1 = BuildCriteria("[得意先名]", 10, strFilter1)
        If strFilter <> "" Then strFilter = strFilter & " AND "
        strFilter = strFilter & strFilter1
        Me.cmd_filter.SetFocus
    End If
    
   
    If Me.売上日1検索 <> "" Then
        strFilter = strFilter & _
                    " AND ([売上日] >= #" & Format(Me![売上日1検索], "yyyy/mm/dd") & "#)"
    Me.[売上日2検索].SetFocus
    End If

    If Me.売上日2検索 <> "" Then
        strFilter = strFilter & _
                    " AND ([売上日] <= #" & Format(Me![売上日2検索], "yyyy/mm/dd") & "#)"
    Me.cmd_filter.SetFocus
    End If

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

hatena19

2020/04/19 09:05

エラーメッセージはなんでしょうか。また、どの行でエラーになりますか。

行動規範の内容に同意します

回答1件

ベストアンサー

とりあえず無駄な処理を省き、リファクタリングしてみました。下記のコードでどうなりますか。

vba
1Private Sub cmd_filter_Click()
2
3    Dim strFilter As String
4    Dim strFilter1 As String
5
6    If Me.商品名検索 <> "" Then
7        strFilter1 = "*" & Replace(Me.商品名検索, " ", "* And *") & "*"
8        strFilter1 = BuildCriteria("[商品名]&[規格]", 10, strFilter1)
9        strFilter = " AND " & strFilter1
10    End If
11
12    If Me.得意先名検索 <> "" Then
13        strFilter1 = "*" & Replace(Me.得意先検索, " ", "* And *") & "*"
14        strFilter1 = BuildCriteria("[得意先名]", 10, strFilter1)
15        strFilter = strFilter & " AND " &  strFilter1
16    End If
17
18
19    If IsDate(Me.売上日1検索) Then
20        strFilter = strFilter & _
21                    " AND ([売上日] >= #" & Format(Me![売上日1検索], "yyyy/mm/dd") & "#)"
22    End If
23
24    If IsDate(Me.売上日2検索) Then
25        strFilter = strFilter & _
26                    " AND ([売上日] <= #" & Format(Me![売上日2検索], "yyyy/mm/dd") & "#)"
27    End If
28
29    strFilter = Mid(strFilter , 5) '先頭の" AND "を削除
30
31    DoCmd.OpenForm "F売上サブフォーム", , , strFilter
32
33End Sub