' ставим код на Load формы
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
Поле со списком - два запроса
В поле со списком вставляются данные из запроса, но ноебходимо помимо этого вставить в конце ещё некоторые данные с другого запроса. Как это можно сделать?
Цитата:
Originally posted by jumperFF
В поле со списком вставляются данные из запроса, но ноебходимо помимо этого вставить в конце ещё некоторые данные с другого запроса. Как это можно сделать?
В поле со списком вставляются данные из запроса, но ноебходимо помимо этого вставить в конце ещё некоторые данные с другого запроса. Как это можно сделать?
Самый простой способ, если есть возможность, объединить запросы через Union и заполнять список из получившегося запроса
Цитата:
Originally posted by mhaturov
Самый простой способ, если есть возможность, объединить запросы через Union и заполнять список из получившегося запроса
Самый простой способ, если есть возможность, объединить запросы через Union и заполнять список из получившегося запроса
UNION самы простой способ,
но бывает что он не срабатывает: у меня надо было показать список из дат и плюс пункт "Все", делал это через UNION, но столкнулся с проблемой: мне надо было отсортировать список так: "Все", даты начиная с самой новой и далее вниз. Посколько сортировка применятся для всего UNION запроса, то "Все" оказывались либо снизу, либр сверху но потом шли самые ранние даты.
Возможны еще два варианта:
2. Написать свою callback функцию для ListBox.
3. Динамически изменить имп списка после его заполнения и дополнить его, например:
Код: