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.

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

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.