Access VBA 入門講座フォームよりフィルタでレコードを抽出する

フォームよりフィルタでレコードを抽出する

フォームにフィルタを設定するにはFormオブジェクトのFilterプロパティとFilterOnプロパティを使用します。Filterプロパティで抽出条件を設定しFilterOnプロパティにTrueを設定することによりフィルタを実行します。


Form.Filter = 抽出条件

Form.FilterOn = True

フォームのフィルタを解除する場合にはFormオブジェクトのFilterOnプロパティにFalseを設定することによりフィルタを解除します。


Form.FilterOn = False

以下の例では氏名が"武"で始まるレコードを抽出します。


Private Sub 抽出_Click()

    Me.Filter = "氏名 Like '武*'"

    Me.FilterOn = True

End Sub

以下の例では生年月日が2001/01/01以前のレコードを抽出します。


Private Sub 抽出_Click()

    Me.Filter = "生年月日 < #2000/01/01#"

    Me.FilterOn = True

End Sub