Silme işleminden sonra çalışacak kodda hesaplama işlemi olduğu için yeni kayıt ekliyor.
Alt formun silme onayı sonrasında olayındaki
call SEVKHESAP
kodu yerine
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE ORD_LINE INNER JOIN ORD_SHIP ON ORD_LINE.SIP_LINE_ID = ORD_SHIP.SIP_LINE_ID SET ORD_LINE.SEVK_TOPLAMI = Dsum ('SEVK_MIKTAR','ORD_SHIP','[SIP_LINE_ID]=' & [Formlar]![ORD_MAIN_FORM]![mtn_geciciid]) WHERE (((ORD_LINE.SIP_LINE_ID)=[Formlar]![ORD_MAIN_FORM]![mtn_geciciid]));"
DoCmd.RunSQL "UPDATE ORD_LINE SET KALAN_MIKTAR = (SIP_MIKTAR - SEVK_TOPLAMI) WHERE SIP_ID = Forms!ORD_MAIN_FORM.SIP_ID"
DoCmd.SetWarnings True
Kodunu kullanarak deneyiniz. Ayrıca silindiğinde olayına eklenen kodu tamamen iptal edin.