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

  With Me
    Select Case !fraProperty
      Case 1
        'フィルタの使用を許可する
        .AllowFilters = True
      Case 2
        'フィルタの使用を許可しない
        .AllowFilters = False
    End Select
  End With

End Sub