ник: natputina
в итоге добавила там пару строчек
Private Sub Form_load()
Me.RecordSource = "SELECT Должность, Фамилия, Имя, Отчество, Дата рож-ния, № телефона, Образование, Последнее место работы, Дата заполнение анкеты,Примечание FROM Dolzhnosti WHERE (Forms![Фильтр в форме по полю со списком]!ПолеСоСписком28='0' Or Должность=Forms![Фильтр в форме по полю со списком]!ПолеСоСписком28);"
End Sub
Private Sub ПолеСоСписком28_AfterUpdate()
Me.Requery
End Sub
После чего когда заходишь в форму и выбираешь должность выходит ошибка.