Skip to main content

AccessTr.neT


Satır Silince Yeni Satır Ekleniyor

Satır Silince Yeni Satır Ekleniyor

#1
Merhaba,

Sayın sledgeab'ın desteği ile bir şeyler yapmaya çalışıyorum başından beride kendisi yardımcı olduğu için sanırım yine kendisinin çözeceği bir konu olacak.
Ekte paylaştığım örnekte alt formda hesaplanan bir alanın toplamını üst formda bir alana hesaplatıp yazdırıyoruz.
örneğin en alt formda MİKTAR bir üstündeki formda bağlı satırın SEVK Toplamı alanına Sql komutu ile tabloya yazdırarak kayıt ediliyor.
Aynı şekilde orta formdaki TUTAR alanı en üst formda TAHMİNİ TOPLAM MALİYET alanına yazdırılıyor.
Son olarak Aşağıdaki çözülmüş konuda bir satır silindiğinde tekrar hesaplama yapılmasını çözmüştük.

https://accesstr.net/konu-alt-formda-sat...atmak.html

Şu an şöyle bir sorunum var satır silindikten sonra ilgili alanlar hesaplanıp ilgili alanlara kayıt ediliyor ama silinen satır yerine bir boş satır ekleniyor. En alt formda da, üst formda da bu böyle bu hafta bu işi bitirmem gerekiyor yardımcı olabilirseniz çok sevinirim.
Saygılarımla,
.rar Örnek2.rar (Dosya Boyutu: 238,32 KB | İndirme Sayısı: 3)
Cevapla
#2
Merhaba,

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 


Visual Basic Code
call SEVKHESAP


kodu yerine


Visual Basic Code
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
Maalesef durum değişmedi diğer hesaplamalar ile lakası yok onları kaldırarak daha önce denedim.
Şimdi çıkacağım kızım rahatsızlandı saat 21 gibi dönmüş olurum sanırım.
Cevapla
#4
Geçmiş olsun.

Eklediğiniz Sub SEVKHESAP() kodunu değiştirmeyeceksiniz. Sadece silme onayı sonrasında olayına bu sub yerine sadece veri güncelleyen kodu kullanacaksınız.
.rar Örnek2_sld.rar (Dosya Boyutu: 231,95 KB | İndirme Sayısı: 4)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
Teşekkür ederim, hızlıca kontrol ettim sanırım haklısınız ama şimdilik konuyu taşımazsanız sevinirim tam kontrol ettiğimde tekrar dönüş yapacağım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da