В форме есть поле поиска. Необходимо сделать так, чтобы при вводе слова, при добавлении каждого следующего символа накладывался фильтр, который отбирал бы все записи, которые начинаются с введенных символов.
Я для свойства поля поиска "Изменение" написал процедуру, которая применяет фильтр к форме. И он работает нормально.
Проблема в том, что при каждом нажатии данные в поле поиска полностью выделяются и когда вносится следующий символ - все затирается и остается только последний введенный символ.
Кто делал подобный фильтр - подскажите пожалуйста решение проблемы.

Поле поиска в тойже фоме.

Я сделал как ты посоветовал.
Фильтрует как надо. Но символ все равно остается в поле поиска только один, т.к. при получении фокуса выделяется все содержимое поля. Если щелкать мышью в конец поля и добавлять след. символ, то проблем никаких, фильтрует правильно.

Вот что я прописал для свойства поля поиска "Изменение":

Private Sub П_Change()
st = Me.П.Text
Me.RecordSource = "SELECT * FROM Клиент WHERE [Фирма] Like '" & st & "*'"
Me.П.SetFocus
End Sub

Выложи,будь добр, хотелось бы сделать.
Заранее спасибо.

За советы спасибо, я сделал таки этот фильтр.