ник: ars_bs
как открыть из подчиненной формы незнаю но можно попробовать вытащить значение поля КодПациента на главную форму и далее запускать
либо попробуй Select case
но это глюк наверно прописывать каждую форму, хотя если форм не много то можно и так
на открытие отчета
Dim FormName As String
FormName = Screen.ActiveForm.Name
Select Case FormName
Case "Доктора"
Me.RecordSource = "SELECT доктора.kod, доктора.хирург FROM доктора WHERE (((доктора.хирург)='" & Forms![доктора]![хирург] & "'));"
Case "Доктора1"
Me.RecordSource = "SELECT доктора.kod, доктора.хирург FROM доктора WHERE (((доктора.хирург)='" & Forms![доктора1]![доктора2].Form![хирург] & "'));"
End Select
