宏中的 ApplyFilter 如果为空则不过滤

Question

我有一个表格，我可以在其中记录预订，其内容如下：

PNR ¦ Date Booking Created ¦ Name of Customer
---------------------------------------------
1   ¦ 01/03/16             ¦ Marc N
2   ¦ 04/07/16             ¦ Sam D
3   ¦ 13/02/17             ¦ Max L

其中 PNR 是 ID 字段。 在表单的顶部，我有一个搜索栏，它使用一个简单的宏（连接到“点击”按钮）搜索并返回名称，比较搜索栏 LIKE [客户名称]。

我还有两个相邻的搜索栏，输入日期，并使用宏（也连接到“点击”按钮）找到 WHERE [DateFrom]

但是我不确定如何创建一个宏，其中它同时“ApplyFilter”两个。我最初从两个按钮脚本中复制了“Where”代码，并将它们都连接到一个按钮，当单击该按钮时，它会运行一个宏，它会在其中“应用过滤器”它们两者（使用 AND 分隔它们）。

但是这并不好用，好像我决定只搜索一个名字，它没有显示任何结果，因为 [DateFrom] 和 [DateTo] 搜索栏是空的，我将如何处理这种情况（最好在宏），以便即使我只是搜索没有日期限制的名称，它也会返回记录？

Answer 1

您必须编写 VBA 代码，以根据各种过滤器元素的内容生成过滤器。这是执行此操作的 VBA 代码示例：

Dim Filter As String
Filter = ""
If Nz(Me.fCustomerName)<>"" Then
    Filter = Filter & "CustomerName Like '" & Me.fCustomerName & "*' AND "
  End If
If IsDate(Me.DateFrom) Then
    Filter = Filter & "DateCreated >= #" & Me.DateFrom & "# AND "
  End If
If Len(Nz(Me.DateTo, "")) Then
    Filter = Filter & "DateCreated <= #" & Me.DateTo & "# AND "
  End If
If Filter <> "" Then
    Filter = Left(Filter, Len(Filter) - 5)
    Me.Filter = Filter
    Me.FilterOn = True
  Else
    Me.FilterOn = False
  End If
Me.Requery