テーブルの特定のレコードを表示することができるフィルタ機能を
VBAで操作する事ができます。

　サンプルプロシージャでは、フォームを開くときに発生するイベント「Open」で
Filterプロパティを使ってフィルタを設定しています。

　フォームのレコードソースはテーブル「商品管理」で、
フィルタを設定していなければ全てのレコードが表示されますが、
フィルタを設定してフィールド「商品番号」が1000より大きいレコード
のみを表示するようにしています。

　実際にフィルタを実行してレコードを絞り込むには、FilterOnプロパティ
を使います。FilterOnプロパティにTrueを設定して、フィルタを適用します。

● サンプル　●

Private Sub Form_Open(Cancel As Integer)
    Me.Filter = "商品番号 > 1000"
    Me.FilterOn = True
End Sub

● 補足説明 ●

(1)フィルタを解除するには、FilterOnプロパティにFalseを設定します。

(2)Filterプロパティを使用すると、フィルタを保存し、後でそれを適用する
　 ことができます。フィルタは、フィルタを作成したオブジェクトと共に保存されます。

(3)コマンドボタンのクリック時のイベントにフィルタの切り替えを設定したり、
　 抽出条件を入力するようにするなど応用して下さい。