ms-access - 如何从数据库查询中填充组合框？

Question

我想用 Access 中的查询结果填充组合框。我只是不知道该怎么做。据我了解，首先必须创建一个记录集，将查询结果读入记录集，然后将记录集写入组合框的行源属性。它是否正确？有没有我可以遵循的简单示例？我还没有在任何其他线程中找到一个。

这是我目前的尝试:

    Dim RS As Recordset
    Dim myDB As Database

    Set RS = myDB.OpenRecordset("SourcesNotDisposed", dbOpenDynaset)
    Do While Not RS.EOF
    With Me.cmbSN
        RowSource.AddItem
    End With
    Loop

使用此代码，我在 RowSource 行收到“需要对象”错误。 cmbSN 具有数据属性: 行源类型 = 表/查询 绑定(bind)列 = 0 仅限于列表 = 是 允许值列表编辑 = 是 继承值列表 = 是 仅显示行源 = 否

查询只有一个可见的列，名为“序列号”

提前致谢

Answer 1

感谢大家的建议。我已经解决并找到了一个非常简单的解决方案。将组合框的 Row Source Type 属性设置为 Table/Query 后，我需要做的就是将 Row Source 属性设置为有效的 SQL 字符串。例如:

strSQL = "SELECT Sources.[Serial Number] FROM Sources " & _
         "WHERE (((Sources.Nuclide)='Cf-252') " & _
         "AND ((Sources.[Location / Status])<>'Disposed')) " & _
         "ORDER BY Sources.[Serial Number];"
Me.cmbItem.RowSource = strSQL
Me.cmbItem.Requery