Как программно применить фильтр

[bs]

Как можно в Access программно применить фильтр?
Через Me.RecordSource не подходит.
Мне нужно именно сымитировать нажатие кнопки Применить фильтр, но только программно.

Заранее спасибо.

[amda]

а как ты будешь выполнять эту команду, если у тебя нет условия?
самый простой способ:

Me.Filter = "поле=" & strУсловие 'сначала формируешь строку фильтра,
Me.FilterOn = True 'а потом включаешь фильтр

[alibek]

Создай макрос, добавь в него команду "ПрименитьФильтр" и запусти макрос.