Private Sub FilterForm()

Dim strFilter As String

strFilter = "True"

If [L] > "" Then strFilter = strFilter & " AND [L] Like '*" & LVybor & "*'"
If [N] > "" Then strFilter = strFilter & " AND [N] Like '*" & NVybor & "*'"
Me.Filter = strFilter
Me.FilterOn = True

End Sub

сделал форму где происходит фильтрация по нескольким спискам независимая, но проблема в том, что когда я скидываю один из фильтров, то мне VBA выдает ошибку, что в этом фильтре было значение. Как провписать в фильтре то, что если в списке нет значения, то нужно смотреть след. фильтры.

http://www.sql.ru/forum/1206778/filtraciya-po-spiskam