Private Sub cmd_close_Click()
Dim MyID As Long
MyID = Me!id
    p = "proc_add_number @idpat=" & Me.id_pat _
        & " , @code = " & Me.code _
        & " , @idclin = '" & Me.id_clin _
        & " , @mark = " & Me.mark
        Call PROC("sproc_add_number", p, 0)
    If CurrentProject.AllForms("all_list").IsLoaded Then
         Forms![all_list]![all_list_subform].Form.Requery
         Forms![all_list]![all_list_subform].Form.Recordset.FindFirst "[id_pat] = " & MyID
    End If
    DoCmd.close acForm, "add_number"
End Sub

         [Forms]![all_list]![all_list_subform].[Form]![code].Requery
         [Forms]![all_list]![all_list_subform].[Form]![id_clin].Requery