Hesaplama

1 2 3 4
25/08/2019, 13:43

pccolog1

Merhabalar;
yapmış olduğum programda, F_ALACAK formundan listeyi yüklüyorum içinden herhangi bir tanesini seçip tahsilat yapmak için F_TAHSILAT formunu açıyorum ve gerekli alanları dolduruyorum ödenmesi gereken TOPLAM alanına fazla miktar girildiğinde sistem yanlış bir uyarı veriyor. (BORCUN TAMAMINI ÖDEMEDİNİZ) 
1. Bu uyarıyı "FAZLA ÖDEME YAPTINIZ" yine de devam etmek istiyor musunuz? şeklinde değiştirmek istiyorum.
2. Uyarıdan sonra fazla ödemeyi S_KALANBAKIYE sorgusunu çalıştırmasın istiyorum.
nasıl yapabilirim?

Not: Eksik ödeme yapınca S_KALANBAKIYE sorgunu çalıştırıp devir bakiye olarak kayıt yapıyor, sorun yok.
25/08/2019, 14:12

berduş

Alt+F11 ile kod sayfasını açıp Ctrl+F tuşlarına basarsanız arama sayfası açılır oraya "borcun" -tırnak işaretleri olmadan- yazıp seçeneklerden "CurrentProject" işaretleyip araya basarsanız bulabilirsiniz.
belirttiğiniz ifade
"Bos_Kontrol" modülünde-->"BosKontrol_3" fonksiyonunda yer almaktadır
ifadeyi oradan değiştirebilirsiniz.
Not: siz sadece ifadeyi değiştirmek istediğiniz belirttiğinizden fonksiyonun doğru çalıştığı sadece ifadenin yanlış yazıldığı varsayılmıştır
iyi çalışmalar
25/08/2019, 14:37

pccolog1

(25/08/2019, 14:12)berduş yazdı: Alt+F11 ile kod sayfasını açıp Ctrl+F tuşlarına basarsanız arama sayfası açılır oraya "borcun" -tırnak işaretleri olmadan- yazıp seçeneklerden "CurrentProject" işaretleyip araya basarsanız bulabilirsiniz.
belirttiğiniz ifade
"Bos_Kontrol" modülünde-->"BosKontrol_3" fonksiyonunda yer almaktadır
ifadeyi oradan değiştirebilirsiniz.
Not: siz sadece ifadeyi değiştirmek istediğiniz belirttiğinizden fonksiyonun doğru çalıştığı sadece ifadenin yanlış yazıldığı varsayılmıştır
iyi çalışmalar
İlginiz için teşekkür ederim. BosKontrol_3 modülündeki kodu nasıl yapmalıyım.
KOD:
If Forms! [F_TAHSILAT][KALAN].Value >"0" Then
Buradaki sıfır "0" alanındaki değer büyük olunca uyarı mesajı vermesidir.
25/08/2019, 14:56

berduş

"If MsgBox("Borcun Tamamını Ödemediniz. Yine de Devam Etmek İstiyormusunuz?", 36, "Site Gelir / Gider Takip Programı") = 6 Then  "
kısmını aşağıdaki kod ile değiştirmeniz yeterli olur bence
"If MsgBox("FAZLA ÖDEME YAPTINIZ. Yine de Devam Etmek İstiyormusunuz?", 36, "Site Gelir / Gider Takip Programı") = 6 Then "
eksik olduğunda doğru çalıştığını belirtmiştiniz
fazla olduğunda ise S_KALANBAKIYE sorgusunun çalışmasını istediğiniz söylemiştiniz ki kodun yaptığı da o aslında, sadece Uyarı yanlış yazılmış gibi geldi bana
25/08/2019, 15:01

pccolog1

(25/08/2019, 14:56)berduş yazdı: "If MsgBox("Borcun Tamamını Ödemediniz. Yine de Devam Etmek İstiyormusunuz?", 36, "Site Gelir / Gider Takip Programı") = 6 Then  "
kısmını aşağıdaki kod ile değiştirmeniz yeterli olur bence
"If MsgBox("FAZLA ÖDEME YAPTINIZ. Yine de Devam Etmek İstiyormusunuz?", 36, "Site Gelir / Gider Takip Programı") = 6 Then "
eksik olduğunda doğru çalıştığını belirtmiştiniz
fazla olduğunda ise S_KALANBAKIYE sorgusunun çalışmasını istediğiniz söylemiştiniz ki kodun yaptığı da o aslında, sadece Uyarı yanlış yazılmış gibi geldi bana
Sanırım yanlış anladınız veya ben yanlış anlattım. 
- Fazla ödeme yapınca uyarı çalışmıyor. Nasıl yazmalıyım?
If Forms! [F_TAHSILAT][KALAN].Value >"0" Then (bu kod işlevini yapmıyor)
- Sorgunun çalışmasını istemiyorum.
25/08/2019, 15:33

berduş

(25/08/2019, 13:43)pccolog1 yazdı: 2. Uyarıdan sonra fazla ödemeyi S_KALANBAKIYE sorgusunu çalıştırmasın istiyorum.
siz bu ifadeyi kullandığınız için ben sorgunun çalışmasını istediğinizi düşündüm.
If Forms! [F_TAHSILAT][KALAN].Value >"0" Then yerine
If Forms! [F_TAHSILAT][KALAN].Value > 0 Then yazın
sıfırın başına ve sonu eklenmiş tırnak işaretlerini kaldırırsanız kod çalışır,
sayısal ifadelerde tırnak işaretine gerek yok
If Forms![F_TAHSILAT]![KALAN] = "0" ifadesindeki tırnak işaretlerini de kaldırabilirsiniz
1 2 3 4