MS Access VBA：用记录集填充表单ListBox失败问题求助

你的代码核心冲突点在于RowSourceType设置为"Query/Table"时，Access会忽略Recordset属性的绑定，这个模式下Access仅识别RowSource指定的查询、表名或SQL语句。结合你确认记录集有数据的前提，给出两种可行修复方案：

方案一：切换RowSourceType为"Recordset"直接绑定记录集 #

修改RowSourceType的设置，让列表框支持直接绑定记录集对象：

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 = "Recordset" ' 改为支持记录集的类型
    Me.selListRS.RowSource = ""

    Set Me.selListRS.Recordset = rsLinks
    
    ' 清理资源（可选但推荐）
    rsLinks.Close
    Set rsLinks = Nothing
End Sub

方案二：直接用SQL语句作为RowSource（保持Query/Table模式） #

既然已经生成了正确的SQL语句，无需手动打开记录集，直接将SQL赋值给RowSource即可：

Private Sub Form_Load()
    linkedOrders = linkedOrderList

    qGetLinks = "SELECT *Various fields from table* FROM *Table* WHERE *Conditioned_field* IN(" & linkedOrders & ")"

    Me.selListRS.RowSourceType = "Query/Table"
    Me.selListRS.RowSource = qGetLinks ' 直接绑定SQL语句
    Me.selListRS.Requery ' 强制刷新列表框（可选）
End Sub

额外检查项 #

• 确认linkedOrders的格式符合SQL语法：如果是字符串类型的字段，每个值需要用单引号包裹（比如'ORD001','ORD002'）；数值类型直接用逗号分隔即可。
• 检查列表框的ColumnCount属性是否与查询返回的字段数量一致，列数不足会导致内容无法正常显示。

内容的提问来源于stack exchange，提问作者AlexSahlin