Извлечение данных из вложенной таблицы

[Александр26091982]

Добрый день. Подскажите имеется форма с вложенной таблицей, например послужной сотрудника, каким образом можно извлечь запись о последней должности и поместить ее на основную форму? Спасибо

[Eugene-LS]

Сообщение от Александр26091982

... каким образом можно извлечь запись о последней должности и поместить ее на основную форму?

В вашем случае можно примерно так:

Private Sub Form_Current()
'  ... извлечь запись о последней должности и поместить ее на основную форму ...
'---------------------------------------------------------------------------------------------------
Dim vVal, sVal As String
On Error GoTo Form_Current_Err
    sVal = "Код = '" & Nz(Me.Код, "0") & "'" 'Текст!
    vVal = DMax("[(№)]", "Послужной", sVal)
    
    If IsNull(vVal) = False Then
        sVal = "[(№)] = " & vVal 'Ищем ...
        vVal = DLookup("Должность", "Послужной", sVal)
    Else
        vVal = "n/d"
    End If
    
    Me.Поле11 = vVal 'Заполняем поле  ....

Form_Current_End:
    Exit Sub

Form_Current_Err:
    MsgBox "Error " & Err.Number & _
        " (" & Err.Description & ") in Sub : Form_Current - Form_Сотрудник.", _
        vbCritical, "Error!"
    Err.Clear
    Resume Form_Current_End
End Sub