Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Dutch Shultz
Спасибо,я сделал так(мне надо было не 1 поле а записи отфильтровать по полю):

сделал как в приложенном примере,процедуру по полям поиска такую

Private Sub пост_Change()
Me.[Поставщик].Requery
Me.Refresh
Me.Filter = "[Поставщик] like '" & Trim([пост]) & "*'"
Me.FilterOn = True
Me.пост.SelStart = Len(Me!пост.Text)
End Sub

Работает,но есть 2 НО:
1.если текстовые поля в форме,то работает(см. форму Глав),а если поля-поля со списком,т.е. Поставщик,Сотрудник и Товар уже будет кодом,а не текстовым значением,не работает(см.форму Главная), а
Me.Filter = "[Поставщик].Column(1) like '" & Trim([пост]) & "*'"
не работает. Как на фильтре это можно исправить?

2.как можно "заморозить"фильтр, т.е. следующий поиск будет не из всех записей,а уже выбранных в первом фильтре - как у меня в форме Глав-я фильтрую сотрудников, а когда хочу по тним отфильтровать товары, то товары фильтруются не по уже выбранным сотрудникам,а по всем.

Заранее спасибо.


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.