Arkadaşlar ekte gönderdiğim Üyeler adındaki formu incelerseniz buradaki aidatları bazen yanlış topladığını göreceksiniz. Vb. de yanlış bir şeymi yazdım. Bu toplamayı yapmanın başka yönü varmı. Bana yardımcı olursanız çok sevinirim. Sayğı ve sevğilerimle.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Formda Toplama hatası
- Konbuyu başlatan musba2924
- Başlangıç tarihi
Sn. musba2924musba2924' Alıntı:Arkadaşlar ekte gönderdiğim Üyeler adındaki formu incelerseniz buradaki aidatları bazen yanlış topladığını göreceksiniz. Vb. de yanlış bir şeymi yazdım. Bu toplamayı yapmanın başka yönü varmı. Bana yardımcı olursanız çok sevinirim. Sayğı ve sevğilerimle.
Dosyanız ektedir, yalnız bir önerim var; kod yükünü azaltmak için, tüm kutulara yazılan kodları sadece [TOPLAM TUTAR YTL] kutusuna yazarsanız, daha pratik olur kanısındayım.
Sn. gkseren çok teşekkür ederim. Eline sağlık. Yanlız ben iki şey sormak istiyorum.
1. Bu dosya üzerinde hangi değişikliği haptınız da oldu. ben inceledim toplam için Vb. de bir değişiklik göremedim. Bunun yöntemini öğretirsen minnet duyarım.
2. Kod yükünü azalmak amacıyla [TOPLAM TUTAR YTL] bu kodları yazarsam diğer kutucuklardaki değerin her değişiminde [TOPLAM TUTAR YTL] değeri nasıl değişir.
Tekrar teşekkür ederim. Sağlıcakla kalın.
1. Bu dosya üzerinde hangi değişikliği haptınız da oldu. ben inceledim toplam için Vb. de bir değişiklik göremedim. Bunun yöntemini öğretirsen minnet duyarım.
2. Kod yükünü azalmak amacıyla [TOPLAM TUTAR YTL] bu kodları yazarsam diğer kutucuklardaki değerin her değişiminde [TOPLAM TUTAR YTL] değeri nasıl değişir.
Tekrar teşekkür ederim. Sağlıcakla kalın.
Rica ederim,
1. "Nz([GÜVEN_TİC])" ekledim.
2. Kod yükünü azaltmak için,
a.) Her kutunun olay yordamında bütün toplamları aldırmak yerine, alt yordam yaratıp, bu alt yordama çağrı yapmak, şöyleki;
[vb:1:b96f574d70]Private Sub GİYİM_Exit(Cancel As Integer)
Call topla
End Sub
.
.
.
Sub topla()
[TOPLAM_TUTAR_YTL].Value = Nz([AİDAT]) + Nz([AVANS]) + Nz([KREDİ]) + Nz([ERGAN_GIDA]) + Nz([GİYİM]) + Nz([Ã?ZLEM_GİYİM]) + Nz([İMREN_LEBLEBİ]) + Nz([GÜVEN_SİG]) + Nz([ÇAKIRBAY]) + Nz([KASAP]) + Nz([MAZLUMLAR]) + Nz([GÜVEN_TİC]) + Nz([GERİ_DÃ?NEN])
End Sub
[/vb:1:b96f574d70]
b.) Diğer bütün olay yordamlarını silip,
[vb:1:b96f574d70]Private Sub TOPLAM_TUTAR_YTL_Exit(Cancel As Integer)
[TOPLAM_TUTAR_YTL].Value = Nz([AİDAT]) + Nz([AVANS]) + Nz([KREDİ]) + Nz([ERGAN_GIDA]) + Nz([GİYİM]) + Nz([Ã?ZLEM_GİYİM]) + Nz([İMREN_LEBLEBİ]) + Nz([GÜVEN_SİG]) + Nz([ÇAKIRBAY]) + Nz([KASAP]) + Nz([MAZLUMLAR]) + Nz([GÜVEN_TİC]) + Nz([GERİ_DÃ?NEN])
End Sub[/vb:1:b96f574d70] yazmak, yalnız her veri eklediğinizde "[TOPLAM_TUTAR_YTL]" kutusuna girip çıkmanız gerekir.
1. "Nz([GÜVEN_TİC])" ekledim.
2. Kod yükünü azaltmak için,
a.) Her kutunun olay yordamında bütün toplamları aldırmak yerine, alt yordam yaratıp, bu alt yordama çağrı yapmak, şöyleki;
[vb:1:b96f574d70]Private Sub GİYİM_Exit(Cancel As Integer)
Call topla
End Sub
.
.
.
Sub topla()
[TOPLAM_TUTAR_YTL].Value = Nz([AİDAT]) + Nz([AVANS]) + Nz([KREDİ]) + Nz([ERGAN_GIDA]) + Nz([GİYİM]) + Nz([Ã?ZLEM_GİYİM]) + Nz([İMREN_LEBLEBİ]) + Nz([GÜVEN_SİG]) + Nz([ÇAKIRBAY]) + Nz([KASAP]) + Nz([MAZLUMLAR]) + Nz([GÜVEN_TİC]) + Nz([GERİ_DÃ?NEN])
End Sub
[/vb:1:b96f574d70]
b.) Diğer bütün olay yordamlarını silip,
[vb:1:b96f574d70]Private Sub TOPLAM_TUTAR_YTL_Exit(Cancel As Integer)
[TOPLAM_TUTAR_YTL].Value = Nz([AİDAT]) + Nz([AVANS]) + Nz([KREDİ]) + Nz([ERGAN_GIDA]) + Nz([GİYİM]) + Nz([Ã?ZLEM_GİYİM]) + Nz([İMREN_LEBLEBİ]) + Nz([GÜVEN_SİG]) + Nz([ÇAKIRBAY]) + Nz([KASAP]) + Nz([MAZLUMLAR]) + Nz([GÜVEN_TİC]) + Nz([GERİ_DÃ?NEN])
End Sub[/vb:1:b96f574d70] yazmak, yalnız her veri eklediğinizde "[TOPLAM_TUTAR_YTL]" kutusuna girip çıkmanız gerekir.
-
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.