I am now using for example:
Private Sub Button212_Click()
Me.Filter = "[CatDate] = date()"
Me.FilterOn = True
End Sub
Filter by some dates. This works fine, but is there any way I can now create another button which will filter by something else and it will include only those already...