Yapmak istediğim;
Eksik veya fazla ödeme yapınca uyarı mesajı işleme devam etmek isteyip istemediğimizi sorsun, evet seçtiğimizde ise tablodaki [ODENDI]=TRUE olsun. Hayırı seçtiğimizde ise F_TAHSILAT formuna düzeltme işlemi için geri dönsün.
Kod:
KALAN = ODENEN - TOPLAM
If Forms![F_TAHSILAT]![KALAN] = 0 Then
If MsgBox("Borcun Tamamını Ödediniz. Ödeme Kayıtlara Aktarıldı..", vbInformation, "Site Gelir / Gider Takip Programı") Then
Forms![F_TAHSILAT]![ODENDI] = True
DoCmd.Close acForm, "F_TAHSILAT"
Forms!F_ALACAK.Refresh
Forms!F_ALACAK.Metin86 = Nz(DSum("TUTAR", "S_ALACAK"), 0)
Forms!F_ALACAK.sayac.Caption = DCount("TUTAR", "S_ALACAK")
ElseIf Forms![F_TAHSILAT]![KALAN] < 0 Then
If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Fazla Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbYesNo, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True
DoCmd.Close acForm, "F_TAHSILAT"
Forms!F_ALACAK.Refresh
Forms!F_ALACAK.Metin86 = Nz(DSum("TUTAR", "S_ALACAK"), 0)
Forms!F_ALACAK.sayac.Caption = DCount("TUTAR", "S_ALACAK")
Else
'Forms![F_TAHSILAT]![KALAN].Value > 0 Then
If MsgBox(Forms![F_TAHSILAT]![KALAN] & " TL Eksik Ödeme Yaptiniz. Yine de Devam etmek istiyor musunuz?", vbYesNo, "Prg") = 6 Then Forms![F_TAHSILAT]![ODENDI] = True
DoCmd.SetWarnings 0 '/////////////////////
DoCmd.OpenQuery "S_KALANBAKIYE" '///////////////////////
DoCmd.SetWarnings -1 '//////////////////
Forms![F_TAHSILAT]![ODENDI] = True
MsgBox "Kalan Bakiye Aktarıldı.", vbOKOnly, "Site Gelir / Gider Takip Programı" '////////////
DoCmd.Close acForm, "F_TAHSILAT"
Forms!F_ALACAK.Refresh
Forms!F_ALACAK.Metin86 = Nz(DSum("TUTAR", "S_ALACAK"), 0)
Forms!F_ALACAK.sayac.Caption = DCount("TUTAR", "S_ALACAK")
End If