ник: ГлазастыйМышь
и что мешает привесить подобный код на обработку изменения поля
пусть есть поле [Нужное поле], вводишь туда чего надо найти а рядом кнопку RunFilter и на кнопку след код.
Private Sub RunFilter_Click()
on error goto err_debug
me.Filter = "[Название_Фирмы] Like ""*" & [Нужное поле] & "*""
me.FilterOn = true
exit_here:
exit sub
err_debug:
msgbox ("Есть ошибка")
resume exit_here
End Sub
|
Ну или повесить на обновление самого поля
Private Sub Нужное_поле_UfterUpdate()
|