Filterの使い方｜FilterOn｜複数条件の設定方法｜日付抽出｜解除方法 - Access VBA入門
フォームでFilterを使用するサンプルです。Filterの実行方法、Likeで複数条件を設定する方法、Betweenで期間を抽出する方法、Filterを解除する方法を掲載します。
Filterの実行方法と解除方法
下のような商品入荷一覧表のフォームを作成しました。
フォームフッターの商品コードのテキストボックスに、商品コードを入力し［抽出］ボタンをクリックすると、その商品コードが抽出され表示できます。
［抽出解除］ボタンでFilterを解除できます。
［抽出］と［抽出解除］ボタンのクリックイベントのVBAです。
- Filterプロパティに抽出条件を設定します。
- 文字列を抽出するには、「’」シングルクォーテーションで囲みます。
- FilterOnプロパティをTrueにすると実行できます。
- FilterOnプロパティをFalseにすると解除できます。
Private Sub コマンド14_Click()
Me.Filter = "商品コード ='" & Me!テキスト11 & "'"
Me.FilterOn = True
End Sub
Private Sub コマンド15_Click()
Me.FilterOn = False
End Sub
入力した商品コードで抽出した結果のフォームです。
［抽出解除］ボタンをクリックするとFilterが解除され、元の表示に戻ります。
Filter Likeであいまい抽出する
一部の文字列が含まれる商品名を抽出するVBAです。
・あいまい抽出するには「*」アスタリスクを使ったワイルドカードを使用します。
Private Sub コマンド14_Click()
Me.Filter = "商品名 Like '*" & Me!テキスト11 & "*'"
Me.FilterOn = True
End Sub
抽出結果のフォームです。
Filter Likeで、複数条件のあいまい抽出をする
入力した２つの商品名で抽出するVBAです。
・ORを使用し、入力された商品名のどちらかが含まれるレコードを抽出します。
Private Sub コマンド14_Click()
Me.Filter = "商品名 Like '*" & Me!テキスト11 & "*' or 商品名 Like '*" & Me!テキスト16 & "*'"
Me.FilterOn = True
End Sub
商品名に「焼きそば」か「みそ」が含まれるレコードが抽出できました。
日付の期間で抽出する
期間で抽出するVBAです。
- ・期間で抽出するには、Between Andを使用します。
- ・日付は「#」で囲みます。
Private Sub コマンド14_Click()
Me.Filter = "入荷日 Between #" & Me!テキスト11 & "# AND #" & Me!テキスト16 & "#"
Me.FilterOn = True
End Sub
入荷日の期間で抽出した結果です。
Home 
VBA入門