AccessTr.neT

Tam Versiyon: Uyarı mesajı işlemi.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.