ник: djek
Как я понял из поставленной задачи, надо отображать доп. инфу из связанных таблиц к выбранному элементу в той же форме где идет выбор элементов.
Привожу пример своего решения аналогичной проблемы:
Private Sub kod_stoika_AfterUpdate()
Dim rst As ADODB.Recordset
Dim sql As String
If Not IsNull(Me!kod_stoika) Then
Set rst = New ADODB.Recordset
'выборка по интересующему элементу
sql = "...тут запрос на выборку необходимых для отражения полей... " & _
"WHERE ((spr_stoika.kod_stoika)= " & Me!kod_stoika & ");"
rst.Open sql, CurrentProject.Connection, adOpenStatic
'Заполнение полей отобранной инфой
If rst.RecordCount = 1 Then
Me.zavN = rst.Fields("zavodsk_N")
Me.tip = Form_TehActNew1.tipstoiky
Me.model = rst.Fields("model")
Me.godVip = rst.Fields("data_vipuska")
Me.ceh = rst.Fields("name_ceh")
Me.agregat = rst.Fields("name_agregat")
Else
If Not IsNull(Me.stancya) Then
MsgBox "стойка не выбрана"
End If
End If
rst.Close
Set rst = Nothing
End If
End Sub