اول یک روتین برای آپدیت سابفرم بنویسین:

SUB Update_Subform(meghdar AS VARIANT)

WITH ME.Tbl_2_subform.FORM.RECORDSET

    .MOVEFIRST

    DO WHILE NOT .EOF

        .EDIT

        !Num2=meghdar

        .UPDATE

        .MOVENEXT

    LOOP

END WITH

END SUB