фильтр с помощью поля со списком

Есть одна таблица "таблица CPA" с данными. В форме "Form_CPA" я применяю фильтр с помощью поля со списком"Выбор" к одному столбцу"Короткий номер". Поле со списком работает с помощью макроса "применитьфильтр" условие отбора написал [таблица CPA]![Короткий номер CPA]=[Формы]![Form_CPA]![Выбор].
Фильтр работает только один раз, если выбрать из списка другое значение фильтр не срабатывает. приходиться закрывать и открывать форму.
В Access я не хорош. Прошу помощи у вас кто знает.

tanil,
посмотрите это:

вот собственно что я делаю

к сожалению не смог скачать

выходит ошибка

С сервера получены одинаковые заголовки

ERR_RESPONSE_HEADERS_MULTIPLE_CONTENT_DISPOSITION
Скрыть подробности
Ответ сервера содержит дублирующиеся заголовки. Обычно так происходит, если неправильно настроен сайт или прокси-сервер. Исправить эту проблему может только администратор сайта или прокси-сервера.

tanil,
если еще актуально:
удалите все макросы и полеСоСписком "выбор" (уж больно большой будет список если номеров несколько тысяч)
поместите на форму поле (в него будете вводить образец поиска; после ввода каждого символа будет осуществляться поиск-сужаться диапазон-если хотите полное совпадение с образцом, то событие "после обновления" поля)

Private Sub Кнопка19_Click() ' показать все
DoCmd.ShowAllRecords
Me.Поле20 = ""
End Sub

Private Sub Поле20_Change() 'поле20 образец поиска
DoCmd.ApplyFilter , "[Короткий номер CPA] like'" & Me.Поле20.Text & "*'"
End Sub

Private Sub Поле20_GotFocus()
Me.Поле20.SelStart = Len(Me.Поле20.Text)
End Sub