(14/11/2016, 12:49)ozanakkaya yazdı:

(14/11/2016, 11:35)shalala yazdı: SEVK_TOPLAMI alanına Sql update komutu ile kayıt etmek istiyorum. Bir şekilde Dsum  ile bir yere toplatıp sonra Sql Update ile tabloya yazmam gerekiyor

Ana formdaki ORD_SHIP isimli alt formda bulunan SEVK_MIKTAR metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyerek 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_ID)= Formlar![ORD_MAIN_FORM]![SIP_ID]));"

DoCmd.SetWarnings True

Sayın Ozanakkaya çok teşekkür ederim sanırım baya yaklaştık ama olmadı.
Bu hali ile formdaki SIP_LINE_ID si aynı olanların hepsine yazıyor dolayısı ile hatalı işlem oluyor benim yapmak istediğim ORD_SHIP tablsundaki SIP_LINE_ID si aynı olanları toplayıp ORD_LINE tablosundaki SIP_LINE_ID si aynı olan satıra yazdırmak. Tabi sadece formda işlem yaptıklarımız için. Ben aşağdaıki gibi yazdım ama olmadı tabi.
,DoCmd.SetWarnings False
Dim Sql As String

'(Me.TOPLAA ORD_SHIP_FORM UN ALTINDA BİR TEXBOX OLABİLİR GİBİ DENEDİM AMA OLMADI)
Me.TOPLAA = Nz(DSum("[SEVK_MIKTAR]", "ORD_SHIP", "[SIP_LINE_ID]= Forms![ORD_SHIP_FORM]![LINE_ID]"), 0)
sql = "UPDATE ORD_LINE SET SEVK_TOPLAMI = ORD_SHIP_FORM.TOPLAA WHERE SIP_LINE_ID = Forms!ORD_SHIP_FORM.SIP_LINE_ID"
DoCmd.RunSQL sql
Form_ORD_SHIP_FORM.Requery