+- 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ığı: Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek (/konu-farkli-formlarda-bulunan-giris-cikis-tutarinin-kasa-formuna-eklemek.html)
Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek - fascioğlu - 07/08/2015
Değerli hocalarım,
Personel programıı içinde bulunan Maaş Ödeme ve Avans formlarına veri girildiğinde;
Tarih itibariyle ,Kişi ismi ile birlikte maaş veya Avans tutarının Kasa formunda bulunan Kasa Gider bölümüne;
Maaş Ödeme ise "Maaş",Avans ise" Avans" şeklinde otomatik olarak Kasaya eklemesi.
Aynı İşlemin Ürün Giriş formunda yer alan Ürün Adı ve Tutarının,Tarih itibarıyla,"Ürün Adı"ve"Toplam"ın Kasa Gider bölümüne,Ürün Çıkış ise Kasa Gelir bölümüne otomatik olarak aktarması,
Ayrıca Ürün giriş,çıkış,maaş ödeme ve Avans işlemlerinin dışındaki gelir gider verilerini ise manuel olarak yapmak istiyorum
izlemem gereken yol hakkında bilgi ve fikirlerinize ihtiyacım var.
Saygılarımla.
Cvp: Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek - ozanakkaya - 07/08/2015
Alıntı:Tarih itibariyle ,Kişi ismi ile birlikte maaş veya Avans tutarının Kasa formunda bulunan Kasa Gider bölümüne;
Avans formundaki avanstutar alanının güncelleştirme sonrasında olayına aşağıdaki kodu eklerseniz, girdiğiniz veriyi kasa tablosuna aktarır,
If MsgBox("işlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI ) SELECT tbl_AVANS.AVANSTAR, tbl_AVANS.AVANSTUTAR, 'PERSONEL' AS GCesidi FROM tbl_AVANS;"
Else
Me.Undo
End IfAncak,
-kişi ismini tbl_kasa tablosunda nereye yazdırmayı düşünüyorsunuz?
-veri nakit alanına mı aktarılacak?
-avans formundaki sil butonu tıklandığında aynı verinin kasa tablosundan da silinmesi gerekiyor, veri tarihe göre silinmez, silme için kasa tablosunda ekstra bir kritere ihtiyaç var.
-kasa tablosundaki "SIRANO" alanı hangi amaçla açıldı, buraya personel numarasını yazdırsak veya siz tabloya avansno gibi bir alan ekleseniz sorun olur mu?
Cvp: Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek - fascioğlu - 07/08/2015
(07/08/2015, 13:31)ozanakkaya yazdı:Alıntı:Tarih itibariyle ,Kişi ismi ile birlikte maaş veya Avans tutarının Kasa formunda bulunan Kasa Gider bölümüne;
Avans formundaki avanstutar alanının güncelleştirme sonrasında olayına aşağıdaki kodu eklerseniz, girdiğiniz veriyi kasa tablosuna aktarır,
If MsgBox("işlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI ) SELECT tbl_AVANS.AVANSTAR, tbl_AVANS.AVANSTUTAR, 'PERSONEL' AS GCesidi FROM tbl_AVANS;"
Else
Me.Undo
End If
Ancak,
-kişi ismini tbl_kasa tablosunda nereye yazdırmayı düşünüyorsunuz?
-veri nakit alanına mı aktarılacak?
-avans formundaki sil butonu tıklandığında aynı verinin kasa tablosundan da silinmesi gerekiyor, veri tarihe göre silinmez, silme için kasa tablosunda ekstra bir kritere ihtiyaç var.
-kasa tablosundaki "SIRANO" alanı hangi amaçla açıldı, buraya personel numarasını yazdırsak veya siz tabloya avansno gibi bir alan ekleseniz sorun olur mu?
-Kişi ismini Gider açıklama alanına yazdırmak
-Veri Nakit alanına aktarılacak
-Avans formundaki Sil butonu aslında gereksiz bir işlem,çünkü verilen avansın silinmesi doğru değil,düşüncenize katılıyorum.
- Dördüncü şık hakkında inanın fikrim yok hocam.
-Uygulamamı istediğiniz Kodu ekledim,
Birden fazla değişik veriler de ekledim ve şöyle birsonuç elde ettim;
1-Hesaplanmış alanları Kasa'ya aktarmıyor,ancak hesaplanmamış alana manuel olarak girilen veriyi Kasa ya yazıyor.
2-Aynı veriyi birden fazla ekliyor.
Saygılarımla.
Cvp: Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek - ozanakkaya - 07/08/2015
(07/08/2015, 14:50)fascioğlu yazdı: 1-Hesaplanmış alanları Kasa'ya aktarmıyor,ancak hesaplanmamış alana manuel olarak girilen veriyi Kasa ya yazıyor.
frmAVANS isimli formda hesaplama yapılacak alan göremedim.
(07/08/2015, 14:50)fascioğlu yazdı: 2-Aynı veriyi birden fazla ekliyor.
kodu aşağıdaki ile değiştirerek tekrar deneyip bilgi veriniz.
If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI ) SELECT tbl_AVANS.AVANSTAR, tbl_AVANS.AVANSTUTAR, tbl_PERSONEL.ADISOYADI FROM tbl_AVANS INNER JOIN tbl_PERSONEL ON tbl_AVANS.PERSID = tbl_PERSONEL.PERSID WHERE (((tbl_AVANS.AVANSTAR)=[Formlar]![frm_AVANS]![AVANSTAR]) AND ((tbl_AVANS.AVANSTUTAR)=[Formlar]![frm_AVANS]![AVANSTUTAR]));"
DoCmd.SetWarnings True
Else
Me.Undo
End If
Cvp: Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek - fascioğlu - 07/08/2015
Sayın Ozan Hocam,
-Eklediğim yeni kodla birden fazla kayıt yapmıyor,istediğim gibi tşk.ederim.
-tbl_AVANS da hesaplanmış alan yok,
-Diğer tablolarda hesaplanmış alanlar var (ÜRÜNGİRİŞ-ÜRÜNCIKIŞ) gibi.
Yazdığınız kodu diğerlerinde uygulamaya çalıştım aktarmadı.Alandaki hesap kodunu sildim Manuel olarak girdim oldu fakat dediğim gibi birden fazla kayıt yapıyordu.
Şimdi diğerlerinde aynı kodu ( son yazdığınız) uygulayacağm olumlu olumsuz size döneceğim.
Saygılarımla.
Cvp: Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek - fascioğlu - 07/08/2015
Son yazılan kodu Maasodeme, Urungırıs ve Uruncıkıs formlarında uyarlıyarak uyguladım olmadı hocam,herhalde kodda değişiklik gerekli.