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