Hesaplama - 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ığı: Hesaplama (/konu-hesaplama--85640.html) |
Hesaplama - pccolog1 - 25/08/2019 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. Cvp: Hesaplama - berduş - 25/08/2019 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 RE: Hesaplama - pccolog1 - 25/08/2019 (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.İ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. Cvp: Hesaplama - berduş - 25/08/2019 "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 RE: Hesaplama - pccolog1 - 25/08/2019 (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 "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. Cvp: Hesaplama - berduş - 25/08/2019 (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 |