AccessTr.neT

Tam Versiyon: Farklı formlarda bulunan giriş-çıkış tutarının Kasa formuna eklemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
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.
Sayfalar: 1 2 3 4 5