AccessTr.neT

sayın atoz112 ve ozanakkaya hocalarımın yardım ettiğin kasa defteri uygulaması ekleme yapıyor kendilerine teşekkür ederim.

şimdide bu konuyu açmamdaki amaç aşağıdadır. dosya ektedir .

ben şimdi örneğimi ekledim alt tarafa şimdi daha iyi anlaşılır bir şekilde kendi uygulamamın bire bir aynısı .

hocam birkaç sıkıntı var.
 Ödeme türü 100 tl nakit seçildikten sonra kasaya 100 tl nakit geçti ama bu sefer nakitten müşteri vazgeçti kredi kartı çekelim dedi kasa defterine yani pesinsatislara hem kredi kartı hem nakit ekleme yapıyor kasa tutmuyor. yani hem nakit hem kredi kartı eklenmiş oluyor. ve diyelimki ödeme türüne kredi kartı seçerken seçer seçmezyanlılşlıkla klavyede 3 rakamına basıp enterladık ve 3 rakamını sildik bu sefer bir kez daha kredi kartı bölümüne alınan tutarı giriyor. 
ödeme türü güncelleştiğinde bölümüne mi kod yazmamız lazım 

ve
müşteri tablosundaki adı_soyadı pesinsatislardaki açıklama bölümüne eklenmiyor. bu yüzden en son siteye eklediğim örneğimi daha ayrıntılı paylaştım.
 teşekkürler 

Merhaba,

pesinsatislar tablosuna odeme_sira alanı ekledim. Aynı kayıt var ise günceller, yok ise yeni kayıt olarak ekler.

harikasınız hocam... 


müşteri 60 tl vermişti ALINAN kısmına girdik kasaya attı ama müşteri dediki 60 tl yokmuş cebimde 50TL al dedi ALINAN kısmından 60 tl yi 50 TL yaptık ama pesinsatislardaki kasadaki 60 tl kalıyor otomatikmen alınandaki güncellendiğinde 50 TL olarak kasada değişmesi sağlıklı olcak.

ayrıyetten şuan pesinsatislar tablosunda AÇIKLAMA kısmına Müşteri No Ekleniyor. Ayrıyetten Hangi Müşteriyse MÜŞTERİ tablosundaki Adı_Soyadı da pesinsatislar tablosundaki açıklama kısmına yazılsın istiyorum .

İnceleyip olumlu/olumsuz bildirimde bulununuz.

sayın ozanakkaya;

hocam 
şuan sizin eklediklerinizi değiştiriyorum . kasa defterinden de değişiyor çok güzel 
ama ALINAN kısmına yeni eklediğimde böyle bir hata veriyor . 
Alınan kısmına 100 tl yazıyorum ve ödeme türünü Nakit seçtiğimde bu hata çıkıyor . 

Merhaba,

" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "

şeklindeki kodu aşağıdaki ile değiştiriniz.

'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "'

Kodun tamamı:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70



If DCount("*", "pesinsatislar", "[odeme_sira]=" & Me.SIRA) <> 0 Then



          

        DoCmd.SetWarnings False

        

        Select Case Me.Açılan_Kutu18

        Case "NAKİT"

            DoCmd.RunSQL "UPDATE pesinsatislar SET TARİH = '" & Me.TARİH & "', GİREN = " & Me.ALINAN & ",  KREDİKARTI = 0, AÇIKLAMA = '" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "' WHERE (((odeme_sira)=" & Me.SIRA & "))"

        Exit Sub

        Case "KREDİ K."

            DoCmd.RunSQL "UPDATE pesinsatislar SET TARİH = '" & Me.TARİH & "', GİREN = 0, KREDİKARTI = " & Me.ALINAN & ", AÇIKLAMA = '" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "' WHERE (((odeme_sira)=" & Me.SIRA & "))"

        Exit Sub

        End Select

        DoCmd.SetWarnings True



    Exit Sub



Else



    DoCmd.SetWarnings False



    Select Case Me.Açılan_Kutu18

    Case "NAKİT"

        DoCmd.RunSQL "INSERT INTO pesinsatislar ([odeme_sira],[KODU],[AÇIKLAMA],[TARİH],[GİREN]) VALUES (" & Me.SIRA & "," & 0 & ",'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "','" & Me.TARİH & "'," & Me.ALINAN & ")"

    Exit Sub

    Case "KREDİ K."

        DoCmd.RunSQL "INSERT INTO pesinsatislar ([odeme_sira],[KODU],[AÇIKLAMA],[TARİH],[KREDİKARTI]) VALUES (" & Me.SIRA & "," & 0 & ",'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "','" & Me.TARİH & "'," & Me.ALINAN & ")"

    Exit Sub

    End Select



DoCmd.SetWarnings True

End If