Sayın Hocalarım,

Değerli form üyeleri,
   Ekli çalışmamda Odabilgileri formunda bulunan Odemebilgileri formuna veri girilirken girilen tutar toplamının Ödenecektutar miktarından fazla veya eksik,
olması durumunda uyarı mesaj vermesi için ne yapmalıyım.
Saygılarımla.
İyi çalışmalar. 

Private Sub odeme_tutari_AfterUpdate()



Dim db As Database

Dim rs, rs2, rs3 As DAO.Recordset

Dim strSQL, strSQL2, strSQL3 As String





Dim OncekiBorc As String



OncekiBorc = Forms![frm_odabilgileri]![frm_odeme_bilgileri1].Form![KAL]



If OncekiBorc <> Me.odeme_tutari Then



MsgBox ("HATA MESAJI")

Me.odeme_tutari = ""

Me.odeme_tutari.SetFocus

Else





Set db = CurrentDb()

strSQL = "SELECT  * FROM tbl_odeme_bilgileri"

strSQL2 = "SELECT  * FROM tbl_KASA"

strSQL3 = "SELECT TOP 1 ISLEMTARIHI AS tarihkontrol, tbl_KASA.* FROM tbl_KASA WHERE (((ISLEMTARIHI)=Date()) AND (([GELIRCESIDI]) Is Null));"



Set rs = db.OpenRecordset(strSQL)

rs.AddNew

rs!Odano = Me.Parent.Odano

rs!odeme_Tarihi = Now()

rs!odeme_yontemi = Me.odeme_yontemi

rs!odeme_tutari = Me.odeme_tutari

rs.Update



Set rs2 = db.OpenRecordset(strSQL2)

Set rs3 = db.OpenRecordset(strSQL3)



    If rs3.EOF Then

        rs2.AddNew

        rs2!ISLEMTARIHI = Me.odeme_Tarihi

        rs2!GELIRCESIDI = "KONAKLAMA"

            If Me.odeme_yontemi = "Nakit" Then

                rs2!NAKIT = Me.odeme_tutari

            ElseIf Me.odeme_yontemi = "Kredi Kartı" Then

               rs2!KREDIKARTI = Me.odeme_tutari

            ElseIf Me.odeme_yontemi = "Banka" Then

               rs2!BANKA = Me.odeme_tutari

            End If

        rs2.Update

    Else

        rs3.Edit

        rs3!GELIRCESIDI = "KONAKLAMA"

            If Me.odeme_yontemi = "Nakit" Then

              rs3!NAKIT = Me.odeme_tutari

            ElseIf Me.odeme_yontemi = "Kredi Kartı" Then

              rs3!KREDIKARTI = Me.odeme_tutari

            ElseIf Me.odeme_yontemi = "Banka" Then

              rs3!BANKA = Me.odeme_tutari

            End If

        rs3.Update

    End If

    

rs.Close

rs2.Close

rs3.Close

db.Close



Set rs = Nothing

Set rs2 = Nothing

Set rs3 = Nothing

Set db = Nothing



Me.odeme_Tarihi = Null

Me.odeme_yontemi = Null

Me.odeme_tutari = Null

Me.Recalc

Me.odeme_Tarihi.SetFocus

Me.Parent.frm_odeme_bilgileri1.Requery

End If

End Sub

Sayın Ozan Hocam,
Çok teşekkür ederim,konu çözülmüştür.
Saygılarımla.

Sayın Ozan Hocam,
Herne kadar Konu çözülmüştür diye yazmış isemde sonradan yeni kayıt girdiğimde;
( OncekiBorc = Forms![frm_odabilgileri]![frm_odeme_bilgileri1].Form![KAL]) kod hata veriyor.
Saygılarıma.
İyi çalışmalar.

sayın fascioglu,

bahsettiğiniz talebinize yönelik olarak,
aşağıda bağlantısı yazılı konunun 4.mesajında eklenen örnek uygulama ile sorun çözülmüş olduğu gerekçesi ile,
bu konunuz;
Cevaplanmış Sorular kategorisi içerisine taşınmıştır.

Checkout İşleminde Aktarma hatası

bilginize...iyi çalışmalar,saygılar.