[решено] [access] макрокоманда "ПрименитьФильтр"

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

[access] макрокоманда "ПрименитьФильтр"

Помогите пожалуйста, не получается применить фильтр при нажатии на button. Просто за статическим условием легко, но нужно чтобы фильтрация производилась из поля edit.. В единственной форме базы есть кнопка "фильтр" и поле возле нее. Помогите разобраться

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

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

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

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

Код:

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, только объясните — зачем Вы добавили в источник данных формы одну и ту же таблицу дважды?

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

Цитата:

Цитата paul_8

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

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

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

Цитата:

Цитата 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 »

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

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