Private Sub ALINANTUTAR_AfterUpdate()
If Me.ACL_ODEMEBICIMI = "" Or IsNull(Me.ACL_ODEMEBICIMI) Then

    MsgBox ("odeme yöntemi seçiniz")
Else
    
    If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
        Dim GMUSTERIADI, GACL_UYGULAMAISTEMI As String
    '    GMUSTERIADI = Me.UYGULAMAYAPAN.Column(1) & " - İlaçlama"
    
    
        GMUSTERIADI = Dlookup ("[MUSTERIADI]", "T_MUSTERIKAYIT", "[MUSID]= " & [MUSID]) ' & " - İlaçlama"
    
            Select Case Me.ACL_ODEMEBICIMI
               Case "Nakit"
               GOdemeTuru = "NAKIT"
               Case "Kredi Kartı"
               GOdemeTuru = "KREDIKARTI"
            End Select
        
            GKOD = CLng(Me.UYGULAMATARIHI) & "-" & Me.CARIID
        
            GKOntrol = Nz(DLookup("[KASAID]", "T_KASA", "[GKOD]= '" & GKOD & "'"), 0)
        
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.SetWarnings False
            
                If GKOntrol > 0 Then
                    DoCmd.RunSQL "UPDATE T_KASA SET NAKIT = '0', KREDIKARTI = '0', BANKA = '0',TURU='0' WHERE (((T_KASA.GKOD)='" & GKOD & "'));"
                    DoCmd.RunSQL "UPDATE T_KASA SET T_KASA.ISLEMTARIHI = '" & UYGULAMATARIHI & "',[" & GOdemeTuru & "] = " & ALINANTUTAR & ",  T_KASA.GELIRCESIDI = '" & GMUSTERIADI & "' WHERE (((T_KASA.GKOD)='" & GKOD & "'));"
                Else
        
                    DoCmd.RunSQL "INSERT INTO T_KASA ( GKOD, ISLEMTARIHI, [" & GOdemeTuru & "], GELIRCESIDI,TURU, ) values ('" & GKOD & "', '" & UYGULAMATARIHI & "', " & ALINANTUTAR & ", '" & GMUSTERIADI & ", '" & ACL_UYGULAMAISTEMI & "')"
                End If
                DoCmd.SetWarnings True
    Else
        Me.Undo
    End If
End If
            'Me.KALAN = Me.toplam - Me.ODEMETUTARI
End Sub