draftyПо техническим причинам пока не могу опубликовать кодНу раз не можете...Вот обработка события "нажатие кнопки".При этом из списка с мультивыбором,в зависимости от выбора,формируется строка WHERE для запроса [gruMyDate],используемая при его открытии:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub cmbGru_Click()
Dim i, mydate
For Each i In Me.list.ItemsSelected
mydate = mydate & "," & Format(Me.Список4.ItemData(i), "\#mm\/dd\/yy\#")
Next
If mydate = Empty Then
CurrentDb.QueryDefs("gruMyDate").SQL = "SELECT * FROM таблица1"
Else
CurrentDb.QueryDefs("gruMyDate").SQL = "SELECT * FROM таблица1 WHERE дата IN(" & Mid(mydate, 2) & ")"
End If
DoCmd.OpenQuery "gruMyDate"
End Sub
для поляСоСписком как-то так:
1.
2.
3.
4.
DoCmd.ApplyFilter , "дата=" & Format(Me.cmd, "\#mm\/dd\/yy\#")
'если поле имеет тип дата\время
DoCmd.ApplyFilter , "поле=" & Me.cmd 'если число
DoCmd.ApplyFilter , "поле='" & Me.cmd & "'" 'если текст.Аналогично и в cmbGru_Click() при определении mydate
