powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / выпадающий список
9 сообщений из 9, страница 1 из 1
выпадающий список
    #32436353
A.Klimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте,
Как добавить в выпадающий список,
который используется для поиска данных (формат поля - дата)
Все пустые (Is Null)
Все непустые (Is Not Null).
Help Me!!!!
...
Рейтинг: 0 / 0
выпадающий список
    #32436360
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
select null, 'Пустые'
union
select 0, 'не Пустые'
union
select 1, 'Изящные'
union
select 2, 'Кривые'
...
Рейтинг: 0 / 0
выпадающий список
    #32436366
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Но для проверки на Null / Not Null придется писать код. Просто сравнивать данные со значением списка не получится.
...
Рейтинг: 0 / 0
выпадающий список
    #32436378
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если забить значение
-1 для нул
-2 для не нул

можно сделать запрос


select .... from ..... where (form!Форма!контрол = -1 and полезапроса is null)
or (form!Форма!контрол = -2 and полезапроса is not null)
or (form!Форма!контрол = полезапроса )
...
Рейтинг: 0 / 0
выпадающий список
    #32436584
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть еще такой прикольный вариант:

Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Form_Open(Cancel As Integer)
  With Me.Combo0
    .RowSourceType =  "Value List" 
    .RowSource =  "(All);"  & .RowSource
  End With
End Sub
...
Рейтинг: 0 / 0
выпадающий список
    #32436600
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
2 SergeySV:

И если RowSourceType было Table/Query, то получится список такого вида:

(All);SELECT A.F1, A.F2 FROM A WHERE F3=0
...
Рейтинг: 0 / 0
выпадающий список
    #32436727
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Согласен, для универсальности следует дополнить код например так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 Dim s As String, i As Long
 
 With Me.Combo0
    s =  "(All)" 
    For i =  0  To .ListCount -  1 
      s = s &  ";"  & .ItemData(i)
    Next i
    .RowSourceType =  "Value List" 
    .RowSource = s
  End With
...
Рейтинг: 0 / 0
выпадающий список
    #32436748
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А еще неплохо бы количество колонок соблюсти. :^)
...
Рейтинг: 0 / 0
выпадающий список
    #32436774
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто как то у меня был комбокс и датами и пунктом Все, и я так не смог отсортировать этот union запрос так, чтобы было: Все;31/12/03;30.12.03; и т.д.

получалось либо:
Все;......;30.12.03;31/12/03
либо
31/12/03;30.12.03;.....;Все
пришлось по ходу прибавлять

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


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