Это базовая идея для того, что вы будете использовать для фильтрации во время выполнения. Один устанавливает фильтр, другой удаляет фильтр.
Private Sub cmdFilter_Click()
strFilter = InputBox("Please type an manufacturer ID:", "Filter Criteria")
Me.FilterOn = True
Me.Filter = "[manufacturer_id] = '" & strFilter & "'"
End Sub
Private Sub cmdRemFilter_Click()
Me.FilterOn = False
Me.Filter = ""
End Sub
Вы также можете сделать это, изменив свойство RecordSource вашей формы на событие кнопки. Примерно так:
Me.RecordSource = "SELECT * FROM Product WHERE manufacturer_id = [Please type a manufacturer ID:]"
Чтобы установить его во время разработки, вы можете просто указать условия в свойстве «Фильтр» формы или, что еще лучше, использовать условия в запросе, из которого построена форма.