从VBA中的SQL将数据加载到组合框

Question

我的表格是一个组合框。我想在我的组合框中显示来自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

最终结果是使用组合框，在其中可以看到我想看到的完整名称。

Answer 1

只需分配SQL：

Dim strSql As String

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