[Iska]

paul_8, сделайте ещё базу в формате 2003-го. Тоже посмотрю.

Я обычно делал динамический фильтр, который накладывался на записи присоединённого запроса при любых изменениях в поле Edit.

[paul_8]

Прикрепил базу access 2003

[Iska]

Добавьте такую процедуру:

Код:

Private Sub Поле1_Change()
    Dim strFilter As String
    
    If IsNull(Me![Поле1].Text) Or IsEmpty(Me![Поле1].Text) Then
        DoCmd.ShowAllRecords
    Else
        strFilter = "[Кодовое слово товара] Like '" & Me![Поле1].Text & "*'"
        
        DoCmd.ApplyFilter , strFilter
    End If
    
    Me![Поле1].SetFocus
    Me![Поле1].SelStart = Len(Me![Поле1].Text)
End Sub

в модуль формы. Кнопка «Применить_фильтр» не нужна. Если Вам потребен будет поиск не с начала поля, а по включению, в середине слов — добавьте «*» и в начало фильтра:

Код:

        strFilter = "[Кодовое слово товара] Like '*" & Me![Поле1].Text & "*'"

P.S. paul_8, только объясните — зачем Вы добавили в источник данных формы одну и ту же таблицу дважды?

[paul_8]

Спасибо! Спешил просто.. Еще вопрос: можно ли сделать фильтр без написания VBA кода?

[Iska]

Еще вопрос: можно ли сделать фильтр без написания VBA кода? »

Ваш вопрос не понятен. Поясните.

Фильтр не имеет отношения к коду. Он реализуется средствами самой СУБД и, в данном случае, технологии Microsoft Jet.

[paul_8]

Код: Private Sub Поле1_Change() Dim strFilter As String If IsNull(Me![Поле1].Text) Or IsEmpty(Me![Поле1].Text) Then DoCmd.ShowAllRecords Else strFilter = "[Кодовое слово товара] Like '" & Me![Поле1].Text & "*'" DoCmd.ApplyFilter , strFilter End If Me![Поле1].SetFocus Me![Поле1].SelStart = Len(Me![Поле1].Text) End Sub »

Имел в виду без этого кода

[Iska]

Фильтр на этапе разработки доступен в свойствах формы.