Dediğinizi yaptım ancak kod hala çalışıp istediğim mesajı vermiyor. Örnek üzerinde yapabilmeniz mümkün mü?
Hesaplama
eğer fazladan para verdiyse istediğiniz uyarıyı veriyor.
eğer istediğiniz şekilde olmadıysa en baştan sorununuzu açık ve net bir şekilde ifade ederseniz çözmeye çalışırız
iyi çalışmalar
eğer istediğiniz şekilde olmadıysa en baştan sorununuzu açık ve net bir şekilde ifade ederseniz çözmeye çalışırız
iyi çalışmalar
site gelir-gider prg V.2.3_hy.rar
(Dosya Boyutu: 436,39 KB | İndirme Sayısı: 10)
Sayıın berduş;
yaptığım programda 2 tane kod vardı.
1. ödeme tam yapıldığında listeye kaydetsin (çalışıyor sorun yoktu.)
2. ödeme eksik yapıldığında uyarı versin kalan bakiyeyi aktarsın (sorun yoktu.)
İstediğim ise 3. kod:
-Fazla ödeme yapıldığında uyarı versin ve ödemeyi kaydetsin (bu kodu bir türlü çalıştıramadım.)
Siz benim çalışan 2. kodumun uyarısını değiştirip istediğiniz kod çalışıyor diye yazmışsınız, herhangi bir ilave kod göremedim.
yaptığım programda 2 tane kod vardı.
1. ödeme tam yapıldığında listeye kaydetsin (çalışıyor sorun yoktu.)
2. ödeme eksik yapıldığında uyarı versin kalan bakiyeyi aktarsın (sorun yoktu.)
İstediğim ise 3. kod:
-Fazla ödeme yapıldığında uyarı versin ve ödemeyi kaydetsin (bu kodu bir türlü çalıştıramadım.)
Siz benim çalışan 2. kodumun uyarısını değiştirip istediğiniz kod çalışıyor diye yazmışsınız, herhangi bir ilave kod göremedim.
ödeme yapıldığında
1- eğer ödeme FAZLA ise "Fazla Ödediniz..." uyarısı versin ve kalan bakiyeyi aktarsın
2- eğer ödeme AZ ise "Eksik Ödediniz..." uyarısı versin ve kalan bakiyeyi aktarsın
yani istediğiniz sadece duruma göre uyarıyı değiştirip kalan bakiyenin aktarılması ise
yukardaki 2 satırı aşağıdaki satırlarla değiştirmeyi dener misiniz?
1- eğer ödeme FAZLA ise "Fazla Ödediniz..." uyarısı versin ve kalan bakiyeyi aktarsın
2- eğer ödeme AZ ise "Eksik Ödediniz..." uyarısı versin ve kalan bakiyeyi aktarsın
yani istediğiniz sadece duruma göre uyarıyı değiştirip kalan bakiyenin aktarılması ise
Kod:
If Forms![F_TAHSILAT]![KALAN].Value > "0" Then '/////////////
If MsgBox("Borcun Tamamını Ödemediniz. Yine de Devam Etmek İstiyormusunuz?", 36, "Site Gelir / Gider Takip Programı") = 6 Then '////////////Kod:
If Forms![F_TAHSILAT]![KALAN].Value > "0" Then '/////////////
UyariMesaji = "Borcun Tamamını Ödemediniz." '<==Eklendi
If Forms![F_TAHSILAT]![KALAN].Value > 0 Then UyariMesaji = "FAZLA ÖDEME YAPTINIZ!" '<==Eklendi
If MsgBox(UyariMesaji & " Yine de Devam Etmek İstiyormusunuz?", 36, "Site Gelir / Gider Takip Programı") = 6 Then ' <==Değişti
Sayın berduş; maalesef dediğinizi yapmama rağmen kod çalışmıyor.
1. kod: ödeme tam yapılmışsa ödemeniz kayıt edildi mesajı verip ödeme miktarı listeden kalksın.
2. kod: eksik ödeme yapılmışsa uyarı verip sorguyu çalıştırsın.devir bakiyesi olsun
3. kod: fazla ödeme yaptınız uyarısını verip ödeme miktarı listeden kalksın.
1. kod: ödeme tam yapılmışsa ödemeniz kayıt edildi mesajı verip ödeme miktarı listeden kalksın.
2. kod: eksik ödeme yapılmışsa uyarı verip sorguyu çalıştırsın.devir bakiyesi olsun
3. kod: fazla ödeme yaptınız uyarısını verip ödeme miktarı listeden kalksın.
Son Düzenleme: 27/08/2019, 00:39, Düzenleyen: pccolog1.
1. ve 2. kod çalışıyor demiştiniz yanılmıyorsam,
sadece 3. kod mu düzenlenecek?
fazla para takibi nerden yapılacak?
sadece 3. kod mu düzenlenecek?
(27/08/2019, 00:32)pccolog1 yazdı: 3. kod: fazla ödeme yaptınız uyarısını verip ödeme miktarı listeden kalksın.peki ödediği fazla para kaydedilmeyecek mi? kaydedilecekse hangi tabloya kaydedilecek?
fazla para takibi nerden yapılacak?
Konuyu Okuyanlar: 1 Ziyaretçi
