我正在尝试使用 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 查询中获得了预期结果,因此也没有什么问题。
我已经检查了好几次我所有的拼写,但据我所知,一切都是肉汁。
这是错误的:
Me.selListRS.RowSourceType = "Query/Table"
编辑如下:
Me.selListRS.RowSourceType = "Table/Query"