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