ник: Дядя Федор
Фильтр формируй строкой!
Сегодня нет поду рукой акса. Работающий Пример привести не смогу.
Ну типа:
Сделай процедуру SetFilter;
EE на событие обновление всех= фильтров
Public Sub SetFilter()
Dim FiltrStr As String
FiltrStr=""
If Me.ФилПоОстнач<>"" then
Select Case Me.ФилПоОстнач
Case 1:
Case 2:
FiltrStr = FiltrStr & " AND [Колнанечало]>0"
Case 3:
FiltrStr = FiltrStr & " AND [Колнанечало]=0"
Case 4:
FiltrStr = FiltrStr & " AND [Колнанечало]<0"
End Select
end if
If me.СЛЕДУЮЩИЙ_СПИСОК <>"" then
Select Case Me.СЛЕДУЮЩИЙ_СПИСОК
Case 1:
Case 2:
FiltrStr = FiltrStr & " AND Условие"
Case 3:
...
Case 4:
...
End Select
end if
'Так же другие списки
'В конце:
If FiltrStr<>"" then
'Обрезаем лидирующий " AND "
FiltrStr=mid(FiltrStr,6)
Forms("Товары").ПФзапТовары.Form.Filter = FiltrStr
end if
Forms("Товары").ПФзапТовары.Form.FilterOn = (FiltrStr<>"")
End Sub
Как-то так.
Можно и в запрос. Но писать больше. :)