+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ödeme tutarının Kasaya aktarma işlemi (/konu-odeme-tutarinin-kasaya-aktarma-islemi.html)
Ödeme tutarının Kasaya aktarma işlemi - fascioğlu - 15/10/2015
Sayın Hocalarım,
Sizlerin değerli katkıları ile evvelce birtirmiş oluğum ekli çalışmama yine sizlerin katkısıyla bitirmiş olduğu kasa programını dahil ettim.
Ancak Ödme tutarını Kasaya aktarılması hususunda Sayın Ozan hocamızın yazmış olduğu kodlamayı uyarlayamadım bu hususta yardımcı olursanız sevinirim.
Saygılarımla.
Cvp: Ödeme tutarının Kasaya aktarma işlemi - ozanakkaya - 15/10/2015
srg_bosodeme isimli sorgunun Sql kodu
SELECT TOP 1 tbl_KASA.ISLEMTARIHI, tbl_KASA.GELIRCESIDI, tbl_KASA.GIDERCESIDI, tbl_KASA.NAKIT, tbl_KASA.KREDIKARTI, tbl_KASA.BANKA
FROM tbl_KASA
WHERE (((tbl_KASA.ISLEMTARIHI)=[Formlar]![frm_odabilgileri]![Cıkıstarihi]) AND ((tbl_KASA.GELIRCESIDI) Is Null));
odm_tutari metin kutusunun güncelleştirme sonrasında olayına yazılacak kod
HesapYap
If Me.odemyon = "" Or IsNull(Me.odemyon) Then
MsgBox ("Ödeme yöntemi seçiniz")
Exit Sub
ElseIf Me.Cıkıstarihi = "" Or IsNull(Me.Cıkıstarihi) Then
MsgBox ("Çıkış tarihi giriniz")
Exit Sub
Else
If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
Select Case Me.odemyon
Case "Nakit"
Gmtn_odemeturu = "NAKIT"
Case "Kredi Kartı"
Gmtn_odemeturu = "KREDIKARTI"
Case "Banka"
Gmtn_odemeturu = "BANKA"
End Select
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
If DCount("*", "srg_bosodeme") > 0 Then
DoCmd.RunSQL "UPDATE srg_bosodeme SET GELIRCESIDI = 'KONAKLAMA', [" & Gmtn_odemeturu & "] = [Formlar]![frm_odabilgileri]![odm_tutari] WHERE (((ISLEMTARIHI)=[Formlar]![frm_odabilgileri]![CT]));"
Else
DoCmd.RunSQL "INSERT INTO tbl_KASA ( [" & Gmtn_odemeturu & "], ISLEMTARIHI, GELIRCESIDI ) SELECT tbl_odabilgileri.odeme_tutari, tbl_odabilgileri.Cıkıstarihi, 'KONAKLAMA' AS gelirces FROM tbl_odabilgileri WHERE (((tbl_odabilgileri.Odano)=[Formlar]![frm_odabilgileri]![Odano]));"
End If
DoCmd.SetWarnings True
Me.Requery
Else
Me.Undo
End If
End IfCvp: Ödeme tutarının Kasaya aktarma işlemi - fascioğlu - 15/10/2015
Sayın Ozan hocam,
Emek ve mesainiz için çok teşekkür ederim konu çözülmüştür.
Saygılarımla
İyi çalışmalar.