ник: kot_k_k
можно:
1. ставим проверку на поле "отдел" формы, если оно равно пусто (Nz(форма!Отдел,0)=0) то нужно изменить строку SQL убрав из нее
AND ((ПромБаза.ПСП)='" & [Forms]![frmПром]![ПолеСоСписком21] & "')
2. при запуске по умолчанию в Поле31 - вывод на экран False - полсе обнеовления поля Отдел -
Me.Поле31.Visible=True