访问列表框非绑定列作为查询条件

Question

我试图根据绑定列以外的特定列中的列表框中的项的值筛选查询

这是我到目前为止所拥有的。

我有一个包含2列inv_id和prod_id的listbox is lst_MainList名称listbox is lst_MainList 。 inv_id是绑定列（第1列）List位于名为Projects的表单上

我正在尝试创建2个查询。

首先是基于inv_id过滤查询这很容易，因为inv_id是我的绑定列

为了获得第二列的值，我尝试创建一个函数

Public Function GetColumnValue(col As Integer, ByRef lst As Access.ListBox)
    GetColumnValue = lst.Column(col)
End Function

我们的想法是将列号和列表框名称传递给函数，函数将返回该列的值

功能似乎没问题。 问题是当我将此函数作为条件输入我的查询时

=GetColumnValue(2,[Forms]![Projects]![lst_MainList])

希望根据当前活动项的第2列过滤我的查询，我在查询运行时收到此错误。

This expression is typed incorrectly or is too complex

我知道我在这里的最后一个选项是添加一个绑定到列表框第2列的不可见文本框但我想尝试函数方法，因为它看起来更清洁和可重用

知道我的功能有什么问题吗？

Answer 1

这是因为，在查询中， [Forms]![Projects]![lst_MainList]将返回控件的Value属性，而不是对控件的引用。

你可能需要这样做：

Public Function GetColumnValue(col As Integer, FormName As String, ControlName As String)
    GetColumnValue = Forms(FormName).Controls(ControlName).Column(col)
End Function

接着：

=GetColumnValue(2,"Projects","lst_MainList")