记录集未填充列表框 - MS Access VBA

问题描述 投票:0回答:1

我正在尝试使用 MS Access 中的 VBA 填充表单中的列表框。 我之前已经这样做过多次并且从未遇到过问题,但现在列表框没有被填充。

这是我的代码:

Private Sub Form_Load()
    linkedOrders = linkedOrderList

    qGetLinks = "SELECT *Various fields from table* FROM *Table* WHERE *Conditioned_field* IN(" & linkedOrders & ")"
    Set rsLinks = CurrentDb.OpenRecordset(qGetLinks, dbOpenDynaset, dbSeeChanges)

    Me.selListRS.RowSourceType = "Query/Table"
    Me.selListRS.RowSource = ""

    Set Me.selListRS.Recordset = rsLinks
End Sub

请注意,“linkedOrderList”是一个全局变量,在加载表单时会正确填充。

我已经尝试用谷歌搜索这个问题,但由于我像往常一样使用完全相同的代码(除了变量名称),我似乎找不到任何解决方案,而且我已经快无计可施了。

我使用断点运行了代码,以确保所有变量和记录集都按预期填充,并且没有发现任何问题。 RS“rsLinks”从我的 SQL 查询中获得了预期结果,因此也没有什么问题。

我已经检查了好几次我所有的拼写,但据我所知,一切都是肉汁。

vba t-sql ms-access listbox recordset
1个回答
0
投票

这是错误的:

Me.selListRS.RowSourceType = "Query/Table"

编辑如下:

Me.selListRS.RowSourceType = "Table/Query"
© www.soinside.com 2019 - 2024. All rights reserved.