访问组合框值未显示

Question

我正在尝试创建一个包含 3 个组合框的表单，其中运行现有数据的报告。组合框将根据在下一级组合框中选择的数据向下过滤。

但是我遇到了问题，批号组合框没有填充它的列表

现在这是我的 VBA 脚本：

Private Sub Form_Load()
    Me.cboDate.RowSource = ""
    Me.cboBatchNo.RowSource = ""
End Sub

Private Sub cboBottleNo_AfterUpdate()
    Dim sDateSource As String

        sDateSource = "SELECT [tblNewCC].[Date] FROM [tblNewCC]" & _
        " WHERE [tblNewCC].[BottleNo] = " & Me.cboBottleNo.Value

        Me.cboDate.RowSource = sDateSource
        Me.cboDate.Requery
End Sub

Private Sub cboDate_AfterUpdate()
    Dim sBatchSource As String

        sBatchSource = "SELECT [tblBatchTotals].[BatchNo] FROM [tblBatchTotals] INNER JOIN [tblNewCC] ON [tblBatchTotals].[RunNo]=[tblNewCC].[RunNo]" & _
        " WHERE [tblNewCC].[BottleNo] = " & Me.cboBottleNo.Value & _
        " AND [tblNewCC].[Date] = " & Me.cboDate.Value

    Me.cboBatchNo.RowSource = sBatchSource
    Me.cboBatchNo.Requery
End Sub

据我所知，这在 vba 方面工作正常，因为我可以看到它替换了批号组合框的行源，并且在数据表视图中它给出了结果。

但是组合框没有在其列表中显示任何内容....

除非我进去进行更改并再次保存 sql 查询。

有什么线索吗？

Answer 1

sBatchSource 的最后一部分应该是 " AND [tblNewCC].[Date] = #" & Me.cboDate.Value & "#" 顺便说一句，'Date' 是一个糟糕的字段名称。它是 Access 中的保留字，最终会给您带来麻烦。这是一个有用的 link http://www.fontstuff.com/access/acctut15pfv.htm

访问组合框值未显示

access combobox values not showing

ms-access

vba

ms-access-2013