У меня есть форма таблицы данных frmDatasheet
, связанная с запросом с именем qryAll
. Форма таблицы данных является подчиненной формой frmMain
. В frmMain у меня есть поле со списком filterCombo
. filterCombo
позволяет frmDatasheet
отображать все записи, чьи entryDate
поля - только январь, февраль и март. Я использовал этот метод ранее с таблицей, и он работал нормально, но, похоже, не работает с запросом объединения.
Мой код выглядит следующим образом:
Private Sub filterCombo_AfterUpdate()
Dim strSQL As String
strSQL = "SELECT * FROM qryAll WHERE MONTH(entryDate) = 1 OR MONTH(entryDate) = 2 OR MONTH(entryDate) = 3"
'Task2 = "SELECT * FROM qryAll WHERE MONTH(entryDate) = 1 OR 2 OR 3"
If Me.filterCombo.Value = "First quarter(Q1)" Then
Me.frmDatasheet.Form.RecordSource = strSQL
Exit Sub
End If
End Sub