Alt Formda Satır Silindiğinde Yeniden Hesaplatmak

Alt Formda Satır Silindiğinde Yeniden Hesaplatmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Formda Satır Silindiğinde Yeniden Hesaplatmak (/konu-alt-formda-satir-silindiginde-yeniden-hesaplatmak.html)

Alt Formda Satır Silindiğinde Yeniden Hesaplatmak - shalala - 16/11/2016

Merhabalar,

Ekte paylaştığım örnekte sayın sledgeab'ın desteği ile alt formda toplamı alınan alan değerini üst formun tablosuna yazdırıyorum.
Alt formda satırı sildiğim de tekrar hesaplama yapılmadığı için üst formun tablosuna kayıt edilen değer güncellenmiyor.
Altta toplanan alan SEVK_MIKTAR üst formda toplamın yazıldığı alan SEVK_TOPLAMI yardımcı olmanızı rica ederim.

Cvp: Alt Formda Satır Silindiğinde Yeniden Hesaplatmak - ozanakkaya - 17/11/2016

ORD_SHIP_FORM isimli formdaki Sevk miktarı metin kutusunun güncelleştirme sonrasında olayındaki kodu

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

Cvp: Alt Formda Satır Silindiğinde Yeniden Hesaplatmak - shalala - 17/11/2016

Çok teşekkür ederim konu çözülmüştür.