+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler (/konu-kasa-hareketleri-icin-yapilan-uygulamadaki-duzenlemeler.html)
Sayfalar:
1
2
Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler - uMits - 12/04/2017
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
Cvp: Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler - ozanakkaya - 13/04/2017
Merhaba,
pesinsatislar tablosuna odeme_sira alanı ekledim. Aynı kayıt var ise günceller, yok ise yeni kayıt olarak ekler.
Cvp: Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler - uMits - 13/04/2017
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 .
Cvp: Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler - ozanakkaya - 13/04/2017
İnceleyip olumlu/olumsuz bildirimde bulununuz.
Cvp: Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler - uMits - 13/04/2017
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 .
![[Resim: do.php?imgf=149209792284411.png]](https://accesstr.net/resim/do.php?imgf=149209792284411.png)
Cvp: Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler - ozanakkaya - 14/04/2017
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