フォームにフィルタを設定するには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