覆盖多个条件的 DoCmd.AppltFilter

Question

我有一个带有 2 个过滤器的 MS.Access 表单，一个使用文本框在日期之间进行过滤

DoCmd.ApplyFilter , "[Start Date] Between #" & Format([AVstrtdt], "yyyy\/mm\/dd") & "# And #" & Format([AVEnDt], "yyyy\/mm\/dd") & "#"

其他过滤器使用组合框按部门..

DoCmd.ApplyFilter "", "[OpDescription]=" & ([CmbBxDepart]) & ""

两者都可以完美地单独工作，但它们会相互覆盖 IE 日期范围会覆盖部门过滤器或部门过滤器会覆盖日期过滤器，因此我一直在尝试使用 Or 函数将它们作为一个过滤器粘在一起

但不断收到类型不匹配错误...

Private Sub ApplyDtFilt_Click()

DoCmd.ApplyFilter , "[Start Date] Between #" & Format([AVstrtdt], "yyyy\/mm\/dd") & "# And #" & Format([AVEnDt], "yyyy\/mm\/dd") & "#" Or "", "[OpDescription]=" & ([CmbBxDepart]) & ""

End Sub

我已经搜索并找到了类似的帖子，但我似乎找不到问题所在...有什么想法吗？ 在我看来还不错..

谢谢..

Answer 1

使用一个表达式 - 作为 SQL 中的 WHERE 子句：

DoCmd.ApplyFilter , "([Start Date] Between #" & Format([AVstrtdt], "yyyy\/mm\/dd") & "# And #" & Format([AVEnDt], "yyyy\/mm\/dd") & "#) Or ([OpDescription]=" & [CmbBxDepart] & ")"

或者，设置表单的Filter属性：

Dim Filter As String

Filter = "([Start Date] Between #" & Format([AVstrtdt], "yyyy\/mm\/dd") & "# And #" & Format([AVEnDt], "yyyy\/mm\/dd") & "#) Or ([OpDescription]=" & [CmbBxDepart] & ")"
Me.Filter = Filter
Me.FilterOn = True