Ну, точно как уже говорилось. Дела длукапа
Образуйте для обоих списков процедуры После обновления (AfterUpdate). На них код
Private Sub ПолеСоСписком31_AfterUpdate()
Me.Поле33 = znach
End Sub
Private Sub пспСубьект_AfterUpdate()
Me.Поле33 = znach
End Sub
Function znach()
Dim t, r
r = Me.пспСубьект
t = "[" & Me.ПолеСоСписком31 & "]"
znach = DLookup(t, "[Таблица РПД №3]", "[Код субъекта]=" & r)
End Function