フォーム＆コントロールプロパティ活用辞典-062 Filter/FilterOn

Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  Select Case Me!fraProperty
    Case 1
      '地域が「東北」のレコードにフィルタを設定
      Me.Filter = "地域 = '東北'"
      'フィルタを実行
      Me.FilterOn = True
    Case 2
      '地域が「関東」のレコードにフィルタを設定
      Me.Filter = "地域 = '関東'"
      'フィルタを実行
      Me.FilterOn = True
    Case 3
      'フィルタを解除
      Me.FilterOn = False
  End Select

End Sub


#062		Filter/FilterOn
Filter プロパティ・"FilterOn/フィルタ適用" プロパティ Filterプロパティは、フォームに対するレコードの抽出条件を文字列式で設定します。一方、"FilterOn/フィルタ適用"プロパティはその抽出を実行するかどうかを設定します。これをTrueにすることで直ちにFilterプロパティ値に基づく抽出処理が実行されます。またFalseにすると抽出が解除され、すべてのレコードが表示されます。フォーム Private Sub fraProperty_AfterUpdate() '[プロパティの設定]オプショングループの更新後処理 Select Case Me!fraProperty Case 1 '地域が「東北」のレコードにフィルタを設定 Me.Filter = "地域 = '東北'" 'フィルタを実行 Me.FilterOn = True Case 2 '地域が「関東」のレコードにフィルタを設定 Me.Filter = "地域 = '関東'" 'フィルタを実行 Me.FilterOn = True Case 3 'フィルタを解除 Me.FilterOn = False End Select End Sub 「地域」が"東北"であるレコードだけを抽出した場合 ※このとき画面下部の移動ボタンの右には、抽出されたレコード数＋「（フィルタ）」という文字が表示されます。「地域」が"関東"であるレコードだけを抽出した場合フィルタを解除すると、レコードソースに含まれるすべてのレコードが表示された状態に戻ります。
\| Index \| Prev \| Next \|