Медленно работает код при закрытии окна. Замечено, что задержка происходит из-за обновления формы
Forms![all_list]![all_list_subform].Form.Requery

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.Requery, чтобы только конкретные поля в записи обновились бы.

Хотелось заменить на

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

Но никаких изменений не происходит.

https://www.sql.ru/forum/1308969/obnovlenie-formy-access-sql