Ödeme tutarının Kasaya aktarma işlemi

15/10/2015, 00:56

fascioğlu

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.
15/10/2015, 03:08

ozanakkaya

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 If
15/10/2015, 03:29

fascioğlu

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.