複数フィルタ設定

ホームズAさんから、コメントを頂いたので、私のやっている複数項目のフィルターをご紹介します。

ホームズAさんのされようとしているフィルター処理のお役に立つかは判りませんが？

こんな検索項目を設定し、
検索項目が入力されているか判定しながら、SQL文を繋いでいき、出来あがったSQLでフィルター処理をしています。

”AND”で繋いでいくので、最初の"1=1"が肝です。

【SQL文】←【VBA記述】に変更します。（13.04.11）

　　StrSQL = "1 = 1"
   
    If IsNull(Me.txt_件名) = False Then
        StrSQL = StrSQL & " AND 件名 like '*" & Trim(Me.txt_件名) & "*'"
    End If
   
    If IsNull(Me.txt_品名) = False Then
        StrSQL = StrSQL & " AND 品名 like '*" & Trim(Me.txt_品名) & "*'"
    End If
   
    If IsNull(Me.txt_科目) = False Then
        StrSQL = StrSQL & " AND 科目 like '*" & Trim(Me.txt_科目) & "*'"
    End If
   
    If IsNull(Me.txt_店名) = False Then
        StrSQL = StrSQL & " AND 購入場所 like '*" & Trim(Me.txt_店名) & "*'"
    End If
   
    If Me.Ch_金額 = True Then
        StrSQL = StrSQL & " AND 金額 >100000"
    End If
   
    If IsNull(Me.nen) = False Then
        If IsNull(Me.tuki) = False Then
            StrSQL = StrSQL & " AND 日付 > #" & DateAdd("d", -1, Format(Me.nen & "/" & Me.tuki & "/01", "yyyy/mm/dd")) & "# And 日付< #" & DateAdd("ｍ", 1, Format(Me.nen & "/" & Me.tuki & "/01", "yyyy/mm/dd")) & "#"
        Else
            StrSQL = StrSQL & " AND 日付 > #" & DateAdd("d", -1, Format(Me.nen & "/01/01", "yyyy/mm/dd")) & "# And 日付< #" & DateAdd("yyyy", 1, Format(Me.nen & "/01/01", "yyyy/mm/dd")) & "#"
        End If
    Else
        If IsNull(Me.tuki) = False Then
            StrSQL = StrSQL & " AND 日付 Like '*/" & Me.tuki & "/*'"
        End If
    End If
   
    Me.Filter = StrSQL
   
    Me.FilterOn = True