Microsoft Access 掲示板

Microsoft Access 掲示板

リストフォームの絞り込み / 1

4 コメント
views
4 フォロー
1
hatena 2021/02/17 (水) 23:41:33

「別のコンボボックス」の名前を「cbo項目検索」、対象フィールド名を「項目」と仮定して。

Sub SetFilter()
   Dim stFilter As String
   
   If Me.cbo内外検索 <> "" Then
       stFilter = " And [内外]=[cbo内外検索]"
   End If
   If Me.cbo項目検索 <> "" Then
       stFilter = stFilter & " And [項目]=[cbo項目検索]"
   End If

   DoCmd.ApplyFilter , Mid(strFilter, 6)
End Sub

Private Sub cbo内外検索_AfterUpdate()
    SetFilter
End Sub

Private Sub cbo項目検索_AfterUpdate()
    SetFilter
End Sub
通報 ...
  • 2
    風 2021/02/18 (木) 08:41:57 9099b@e2de4 >> 1

    早速のご回答ありがとうございます。
    試す前に再度質問してしまい申し訳ないのですが、
    この、Sub SetFilter()を使えば

    ①例えば項目を先に選択した状態で、結果を表示した状態で内外を選択しても有効でしょうか？
    ②実際はもっと選択肢が多い状態ですが、教えていただいた内容で適当な順番で選択肢分増やしていけば大丈夫でしょうか？

    以上よろしくお願いいたします。