Private Sub Form_Current()
On Error GoTo Err_Form_Current


Forms!frm_LS_HEAD.lbl_FIO.Caption = DLookup("ФИО", "sql_lichnyi_sostav_PS", "ID_lichnyi_sostav = CInt(" & Me!ID_lichnyi_sostav & ")")
'Forms!frm_LS_HEAD.lbl_vz.Caption = DLookup("Naimenovanie_zvaniya", "sql_Voinskoe_Zvanie_ALL", "ID_lichnyi_sostav = CInt(" & Me!ID_lichnyi_sostav & ")")
    
With Me.Parent.frm_SUB_obrazovanie.Form
    .Filter = "ID_lichnyi_sostav=" & Me.ID_lichnyi_sostav
    .FilterOn = True
End With

With Me.Parent.frm_SUB_LS_HEAD_Disciplina.Form
    .Filter = "ID_lichnyi_sostav=" & Me.ID_lichnyi_sostav
    .FilterOn = True
End With
'
     Exit Sub
Err_Form_Current:
    Exit Sub
End Sub

Private Sub btn_new_z_obrazovanie_Click()

If MsgBox("Вы желаете добавить новую запись в форму 'Образование' для сотрудника " & DLookup("ФИО", "sql_lichnyi_sostav_PS", "ID_lichnyi_sostav = " & Forms![frm_LS_HEAD]![frm_SUB_lichnyi_sostav_PS]!ID_lichnyi_sostav) & " ?", vbYesNo + vbQuestion, "Образование") = vbYes Then

DoCmd.SetWarnings False

    Text = "INSERT INTO tbl_obrazovanie(ID_lichnyi_sostav)" _
    & " VALUES('" & Forms![frm_LS_HEAD]![frm_SUB_lichnyi_sostav_PS]!ID_lichnyi_sostav & "');"

    DoCmd.RunSQL Text

DoCmd.SetWarnings True

Forms![frm_LS_HEAD]![frm_SUB_obrazovanie].Form.RecordSource = "SELECT * FROM tbl_obrazovanie"
Forms![frm_LS_HEAD]![frm_SUB_obrazovanie].Form.Requery

End If

End Sub