无法在连续表单上设置 ComboBox.RowSource

Question

我在设置表单上某个组合框的行源时遇到问题（被视为连续表单，尽管我在单表单模式下似乎也遇到了一些问题）。

该组合框绑定到一个名为 supplierID 的字段，旨在向用户显示某个项目的所有可能供应商的列表。我用于组合框的行源是：

SELECT DISTINCT Suppliers.name, Suppliers.supplierID
FROM Suppliers
INNER JOIN PartsSuppliers ON Suppliers.supplierID=PartsSuppliers.supplierID 
WHERE PartsSuppliers.partID = partID;

当我在查询设计器中查看此查询时（使用硬编码的partID），它工作正常 - 它为所选项目选择所有可能的供应商，并且不'不显示任何其他项目。但是，当我查看组合框中的项目时，它显示了 PartsSuppliers 表中存在的所有供应商（该表只有两列，将零件映射到可能的零件）他们的供应商）。

我还尝试在 OnFocus 事件中使用一些 VBA 设置组合框的 RowSource（对 partID 值进行硬编码），但它似乎从未更改 RowSource。我使用的 VBA 代码是：

Private Sub supplierID_GotFocus()
    Dim query As String

    query = "SELECT DISTINCT Suppliers.name, PartsSuppliers.supplierID "
    query = query & "FROM Suppliers INNER JOIN PartsSuppliers ON Suppliers.supplierID = PartsSuppliers.supplierID "
    query = query & "WHERE (((PartsSuppliers.partID)=" & partID & "));"

    supplierDropDown.RowSource = query
    supplierDropDown.Requery
End Sub

我还尝试在 RecordSet 中打开该查询，然后将该 RecordSet 设置为组合框的 RecordSet，但这也不起作用。

我做错了什么，或者我应该寻找其他方法来做出正确的下拉菜单？

注意我已经看到 组合框的自定义行源在 Access 中以连续形式，但接受的解决方案对我来说也不起作用。

Answer 1

使用 OnEnter 和 OnExit 事件更改您的 RowSource。

Private Sub supplierID_Enter()
    supplierDropDown.RowSource = _
        "SELECT DISTINCT Suppliers.name, PartsSuppliers.supplierID " & _
        "FROM Suppliers INNER JOIN PartsSuppliers ON Suppliers.supplierID = PartsSuppliers.supplierID " & _
        "WHERE PartsSuppliers.partID = " & partID & ";"
End Sub

Private Sub supplierID_Exit()
    supplierDropDown.RowSource = _
        "SELECT DISTINCT Suppliers.name, PartsSuppliers.supplierID " & _
        "FROM Suppliers INNER JOIN PartsSuppliers ON Suppliers.supplierID = PartsSuppliers.supplierID;"
End Sub

Answer 2

一旦组合项目受到限制，我一直在努力解决如何避免数据表中留下的“空白”，并且很长一段时间找不到任何直接的选项......直到现在！

将所有可用选项保留在组合框中，但使用 OnCurrent 添加临时验证规则，可以完美地实现这一目的。

希望这可以防止有人像我一样长时间用头撞桌子。