Public Function Form_Requery()
    Dim iddoc&, rs As ADODB.Recordset
    
    Set rs = Me!sub_list.Form.Recordset.Clone
    rs.Bookmark = Me!sub_list.Form.Recordset.Bookmark
    iddoc = rs!id_doc
    Me!sub_list.Requery
    Set rs = Me!sub_list.Form.Recordset.Clone
    Do While rs.State And adStateFetching
        DoEvents
    Loop
    rs.Find "id_doc =" & CStr(iddoc), , ,  1      'запись найдена точно 
    If rs.EOF Then
        rs.MoveFirst
    End If
    Me!sub_list.Form.Bookmark = rs.Bookmark
    rs.Close
    Set rs = Nothing
End Function