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.

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?

(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.

(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

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.

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.