ник: ГлазастыйМышь
повесить на обработчик кнопки? что-то вроде того
Private Sub Кнопка21_Click()
on error goto err_debug
me.Filter = "[Название_Фирмы] Like ""[А]*"""
me.FilterOn = true
exit_here:
exit sub
err_debug:
msgbox ("Есть ошибка")
resume exit_here
End Sub
|