Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
.rar FA.OTEL 40 ODA.rar (Dosya Boyutu: 449,76 KB | İndirme Sayısı: 18)
Cevapla
#2
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
Cevapla
#3
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da