Kodları aşağıdakilerle değiştirerek deneyiniz.
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]=' & [SIP_ID]) WHERE (((ORD_LINE.SIP_LINE_ID)=[Formlar]![ORD_MAIN_FORM]![ORD_LINE_FORM].[Form]![SIP_LINE_ID]));"
DoCmd.SetWarnings True
Ayrıca, sorunuza cevap yazan celoycenin cevabı ile ilgili de yorum yazınız.