Microsoft Access - 根据一个字段的复选框过滤表单

Question

我有一个表格，其中列出了农民和他们拥有的所有牲畜（如果农民有多种牲畜，它们会列在单独的记录中）。 我想要做的是允许用户过滤表单，以便他们只能看到拥有某些类型牲畜的农民，具体取决于他们检查的内容。 我希望他们能够 select 多头牲畜（我想出了如何使用一种类型进行过滤，但仅此而已）用户单击一个按钮来运行过滤器。 我知道这可以做到，但我不知道怎么做。 我一直在寻找答案，但运气不佳。

这是一个例子：

鲍勃有牲畜 A

鲍勃有牲畜 B

莎莉有牲畜 A

莎莉有牲畜 C

吉米有家畜 C

吉米有牲畜 D

如果用户单击 Livestock A 的复选框，然后单击“过滤器”按钮，则只会显示 Bob 和 Sally 的信息。 如果用户单击 Livestock A 和 C 的复选框，则会出现上述所有农民。

这些是我正在使用的三个主要对象：（注意，运算符与农民相同）

• lstLivestockTypes - 列出不同的牲畜
  

• qryPlansLivestockOperator - 将所有农民和他们在农场中拥有的不同牲畜聚集在一起（如上所述，如果农民有多种牲畜类型，则它们在单独的记录中）

• frmPlansLivestockOperator - 我想查看过滤结果的表单（表单的记录源是 qryPlansLivestockOperator）。

作为我想要的示例，如果用户单击 Beef Cows and Horses，然后单击“搜索”按钮，则只有拥有 Beef Cows and Horses 的农民才会出现在表单上。
我会继续研究解决方案，但如果有人可以提供帮助，将不胜感激！

Answer 1

我认为拉动拥有所有选定牲畜的操作员的唯一方法是在通用模块中使用 VBA 自定义 function。 此代码假定每个操作员对于每种牲畜类型只能有一个关联记录。

Function HasAll(intID As Integer) As Boolean
Dim varItem As Variant, strL As String
'loop through listbox selection to build string list
With Forms!Misc.lbxLivestock
    For Each varItem In .ItemsSelected
        If Not IsNull(varItem) Then
            strL = strL & .Column(0, varItem) & ","
        End If
    Next
    If .ItemsSelected.Count = DCount("*", "OperatorsLivestock", "OperatorID = " & intID & " AND LivestockTypeID IN(" & strL & ")") Then HasAll = True
End With
End Function

然后从查询中调用此 function：

SELECT lstOperators.*, HasAll([OperatorID]) AS ToReport
FROM lstOperators;

现在，要么在该计算字段下应用=True的条件，要么将其作为更详细的过程的一部分来构建多个条件来过滤表单或报告。