将名称添加到日期范围搜索。微软访问 VBA

Question

因此，我正在 MS Access 中为工作创建一个缺陷数据库，并且正在处理一个搜索表单以查找特定日期之间的特定员工缺陷。我已经使用按钮进行日期范围搜索，但我还没有想出如何将我的 EmployeeNameBox 添加到筛选结果中。这就是我的。

Private Sub Searchbtn_Click()
    Me.Filter = "[DayMonthYear] BETWEEN #" & Me.Date1Filt & "# AND #" & Me.Date2Filt & "#"
    Me.FilterOn = True
End Sub

非常适合我想要的日期范围，但我还需要添加员工姓名。任何帮助将不胜感激。

Answer 1

假设您的 EmployeeNameBox 在搜索时总是会被填充，您只需要将它添加到您的过滤器中。我发现将过滤器存储在变量中，然后在最后将其分配给 Me.Filter 更容易。所以像：

Private Sub Searchbtn_Click()
    Dim sFilter as String

    sFilter = _
            "[DayMonthYear] BETWEEN " & _
                "#" & Me.Date1Filt & "# AND " & _
                "#" & Me.Date2Filt & "# " & _
            " AND [EmployeeName] = """ & Me.EmployeeNameBox & """"

    Me.Filter = sFilter
    Me.FilterOn = True
End Sub

将名称添加到日期范围搜索。微软访问 VBA

Adding Name to Date Range Search. MS Access VBA

database

ms-access

vba

ms-access-2016