使用 MS Access VBA 使用记录集填充表单中的列表框

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

我正在尝试使用 MS Access 中的 VBA 填充表单中的

listbox

listbox
未填充。

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
是一个全局变量,在加载表单时正确填充。

我使用断点运行代码以确保填充所有变量和记录集。

记录集

rsLinks
从我的SQL查询中获取预期结果。
我还检查了几次拼写。

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

这是错误的:

Me.selListRS.RowSourceType = "Query/Table"

编辑如下:

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