我正在尝试使用 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查询中获取预期结果。这是错误的:
Me.selListRS.RowSourceType = "Query/Table"
编辑如下:
Me.selListRS.RowSourceType = "Table/Query"