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.