Call Hesapla
ile değiştir,
Aynı formun silme onayı sonrasında olayına
Call Hesapla
Kodu ekle,
Option compare database
kodunun altına aşağıdaki kodu ekle
Sub Hesapla()
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.SetWarnings True
End Sub