vba - Access VBA 如何根据多选列表框中的选择过滤记录集？

Question

我正在尝试使用 OpenForm 函数根据多选列表框中的选择进行过滤。什么是正确的语法，或者有更好的方法吗？例如，让我们说：

列表框有 Ken、Mike 和 Sandy 选项。

Car 有 Car1、Car2 和 Car 3 选项。所有汽车都由该列表框中的 1 个或多个人拥有。

如果选择了列表框中的某个人，我想打开一个包含所选人员拥有的汽车的表单。

谢谢！

Answer 1

好的所以我想出了一种方法：

1. 创建一个字符串来保存一个查询
2. 使用 For 循环根据所选的每个项目填充字符串
3. 将该字符串作为过滤器放入 OpenForm 命令中。

这是我习惯使用的具体代码。我在原始帖子中的示例使用了 Cars and People，但我的实际上下文不同：Estimators 和 Division of Work 是过滤器。如果您是有同样问题的人，请告诉我是否有任何问题！因为在不了解我到底想要完成什么的情况下可能会感到困惑。

Dim strQuery As String
Dim varItem As Variant
'query filtering for estimators and division list box selections
strQuery = ""
If Me.EstimatorList.ItemsSelected.Count + Me.DivisionList.ItemsSelected.Count > 0 Then
    For Each varItem In Me.EstimatorList.ItemsSelected
        strQuery = strQuery + "[EstimatorID]=" & varItem + 1 & " OR "
    Next varItem
    If Me.EstimatorList.ItemsSelected.Count > 0 And Me.DivisionList.ItemsSelected.Count > 0 Then
        strQuery = Left(strQuery, Len(strQuery) - 4)
        strQuery = strQuery + " AND "
    End If
    For Each varItem In Me.DivisionList.ItemsSelected
        strQuery = strQuery + "[DivisionID]=" & varItem + 1 & " OR "
    Next varItem
    strQuery = Left(strQuery, Len(strQuery) - 4)
End If

Answer 2

使用 JOIN 函数获得更干净、更安全的代码

当您发现自己使用“、”“AND”“OR”等分隔符重复构建增量 SQL 字符串时，可以方便地集中生成数组数据，然后使用 VBA Join(array, delimiter) 函数。

如果感兴趣的键位于数组中，则用户从多选列表框中选择为表单过滤器属性构建 SQL WHERE 片段可能如下所示：

Private Sub lbYear_AfterUpdate()
    Dim strFilter As String

    Dim selction As Variant
    selction = ListboxSelectionArray(lbYear, lbYear.BoundColumn)

    If Not IsEmpty(selction) Then
        strFilter = "[Year] IN (" & Join(selction, ",") & ")"
    End If

    Me.Filter = strFilter
    If Not Me.FilterOn Then Me.FilterOn = True 
End Sub

从选定的 lisbok 行中选择任何列数据的通用函数可能如下所示：

'Returns array of single column data of selected listbox rows
'Column index 1..n
'If no items selected array will be vbEmpty
Function ListboxSelectionArray(lisbox As ListBox, Optional columnindex As Integer = 1) As Variant
    With lisbox
        If .ItemsSelected.Count > 0 Then
            Dim str() As String: ReDim str(.ItemsSelected.Count - 1)
            Dim j As Integer
            For j = 0 To .ItemsSelected.Count - 1
                str(j) = CStr(.Column(columnindex - 1, .ItemsSelected(j)))
            Next
            ListboxSelectionArray = str
        Else
            ListboxSelectionArray = vbEmpty
        End If
    End With
End Function

应用程序库和编码中的一些数组构建器可以使 VB.NET 看起来更像