Private Sub ИзТаб1__AfterUpdate()
if nz(Me.ИзТаб1,"")="" then
Me.ИзТаб2_.RowSource = "SELECT Таблица2.Код, Таблица2.Поле2, Таблица2.ИзТаб1 FROM Таблица2 ORDER BY Таблица2.Поле2"
else
Me.ИзТаб2_.RowSource = "SELECT Таблица2.Код, Таблица2.Поле2, Таблица2.ИзТаб1 FROM Таблица2 WHERE (((Таблица2.ИзТаб1)=Forms!Форма1![подчиненная форма Таблица3].form!ИзТаб1_)) ORDER BY Таблица2.Поле2"
End if
End Sub
Private Sub form_current()
call ИзТаб1__AfterUpdate()
end Sub
|