Добавление имени в поиск по диапазону дат. MS Access 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