ник: kot_k_k
воткни в дебагер посмотри чему й тебя равно
Me.subFrm.Form.Filter
поймешь где ошибка
п.с. " ПромБаза.Прз = False " And " ПромБаза.Преп = 1 " получаем
" ПромБаза.Прз = False ПромБаза.Преп = 1 "
а нужно " ПромБаза.Прз = False And ПромБаза.Преп = 1 " - найди 2 отличия