Загрузка данных в комбинированный список из SQL в VBA - PullRequest
Новая
       49

Загрузка данных в комбинированный список из SQL в VBA

0 голосов
/ 23 апреля 2019

У меня есть форма, которая является одним списком.Я хочу, чтобы мой выпадающий список отображал данные из кода VBA (я не хочу использовать создатель запроса, потому что в будущем мне нужно сделать больше вещей в VBA).Этот код работает, но только для одной записи из моей базы данных.Нужна ли мне петля или что-то?

Я показываю свой код в этом разделе - он работает, но не совсем так, как я хочу работать. 

Dim rst As Dao.Recordset
Dim strSql As String

strSql = "SELECT KartyProjektow.KP_krotkaNazwaProjektu From KartyProjektow"
Set rst = CurrentDb.OpenRecordset(strSql)

przypisanie = rst!KP_krotkaNazwaProjektu

rst.Close
Set rst = Nothing
Kombi5.RowSource = przypisanie

В конечном итоге я получаю выпадающий список, где я могу видеть полные имена, которые я хочувидеть.

1 Ответ

0 голосов
/ 23 апреля 2019

Просто назначьте SQL: 

Dim strSql As String

strSql = "SELECT KartyProjektow.KP_krotkaNazwaProjektu From KartyProjektow"
Kombi5.RowSource = strSql
...