powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Список для перехода и фильтр
7 сообщений из 7, страница 1 из 1
Список для перехода и фильтр
    #32207589
Sergey Ermakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Для поиска записей собрал в форме вкладку.. Пользователь вводит туда, что хочет, и все записи фильтруются на предмет введенной строки.. Для этого дела приспособлен макрос "применить фильтр", который получает выражение фильтра из поля формы..

Внимание, вопрос.. :)
Можно ли как-то стандартное "поле со спиком" доработать, чтобы в нем выводился не весь список записей текущей формы, а только те записи, что в данный момент отобранны?

Я подумал, что можно в "источнике строк" указать условием отбора "like [такое-то поле]", может быть есть более грамотные решения?
...
Рейтинг: 0 / 0
Список для перехода и фильтр
    #32207680
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну первое убирай всякие макросы. они только голову мутят.

ну дак примени фильтр и полю со списком
...
Рейтинг: 0 / 0
Список для перехода и фильтр
    #32208598
Sergey Ermakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Макросы и не нужны..
Я попробовал вот что: установил в "условии отбора" данных для построения списка ссылку на поле, содержащее строку, по которой работает фильтр..
Это, конечно, неприятное решение..

когда эта строка оказывается пустой, список получается пустым;

набор "данных" строится только при первом обращении к полю со списком, и затем не обновляется..

Отсюда вопросы:


как заставить поле со списком работать не с фильтрами, а с отобранными записями? (теми самыми, по которым можно перемещаться стрелками "следующая/предыдущая" и т.п.)

как производить обновление начинки "поля со списком" при изменении набора данных?
...
Рейтинг: 0 / 0
Список для перехода и фильтр
    #32215983
Sergey Ermakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Неужели никаких идей? :(
...
Рейтинг: 0 / 0
Список для перехода и фильтр
    #32216158
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну а почему нельзя на AfterUpdate поля, в к-ое вколачивается значение, повесить изменение RowSource для поля со списком? И все буит в поряде, кажися... И никаких фильтров.
...
Рейтинг: 0 / 0
Список для перехода и фильтр
    #32217230
Bagda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот вам решение проблемы

Private Sub Combo1_AfterUpdate()
If Not IsNull(Me.Combo1.Value) Then
Me.Combo2.RowSource = Me.Combo1.Value
End If
Me.Combo2.Requery
End Sub
...
Рейтинг: 0 / 0
Список для перехода и фильтр
    #32241999
Sergey Ermakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за идеи..

Сделал вот так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Ïîëå43_AfterUpdate()

Me.Filter =  "[Êàòåãîðèÿ]="  + Me.Ïîëå 43 .Value
Me.FilterOn = True

Req =  "SELECT ÇàïðîñÂñåõÆóðíàëîâ.*, ÇàïðîñÂñåõÆóðíàëîâ.Êàòåãîðèÿ"  +  " FROM ÇàïðîñÂñåõÆóðíàëîâ"  +  " WHERE (((ÇàïðîñÂñåõÆóðíàëîâ.Êàòåãîðèÿ)="  + Me.Ïîëå 43 .Value +  "));" 
Me.Ïîëå 28 .RowSource = Req
Me.Ïîëå 28 .Requery

End Sub


Решение "в лоб".. Кракозяблами получились локализованные названия составленного мною запроса (из-за локализованных названий полей)..
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Список для перехода и фильтр
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]