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 выдает ошибку, что в этом фильтре было значение. Как провписать в фильтре то, что если в списке нет значения, то нужно смотреть след. фильтры.

ПЕНСИОНЕРКА,

ПЕНСИОНЕРКА,
у меня списки работают, я переделал все как было написано в прошлой теме, подвязал списки к фильтру, но есть проблема если я: к примеру выбираю 4 фильтра, а потом один из них хочу сбросить, то вылетает вот такая ошибка