Benim eklediğim kod, avans formuna veri girişi yaptığında veriyi kasa tablosuna kaydetmek için. Kod sadece avans formunda çalışır. Üst mesajınızda belirttiğiniz diğer kayıt işlemleri için eklediğim kodda düzeltme yapmalısınız.
Ayrıca, anlamadığım olay, bu veriler zaten tabloya kaydediliyor, aynı veriyi farklı tabloya niye kaydediyorsunuz? basit bir
DCount kodu ile avans tutarını formda gösterebilirsiniz.
Sayın Ozan Hocam,
-Avans için yazdığınız kodu düzenleyerek frm_MAAS a uyguladım ve çalıştı,yalnız frm_Maas,frm_MAASODEME formu içinde çalıştığından frm_MAASODEME formunda çalışmadı.
-Proje içinde birden fazla hesaplama yapılmış formlar var(Maasodeme,Urungırıs,uruncıkıs) ve bunların dışında günlük gelir giderinde Kasa ya işlenmesi gerektiği için
-DCount uygulaması hakkında ise hiç bir bilgim yok.
Saygılarımla.
Alt form içerisinde olduğu için kriterin değişmesi gerekiyor kodu aşağıdaki ile değiştiriniz.
DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI ) SELECT tbl_MAAS.ODMTAR, tbl_MAAS.ODENEN, tbl_PERSONEL.ADISOYADI FROM tbl_MAAS INNER JOIN tbl_PERSONEL ON tbl_MAAS.PERSID = tbl_PERSONEL.PERSID WHERE (((tbl_MAAS.ODMTAR)=[Formlar]![frm_MAASODEME]![frm_MAAS].[Form]![ODMTAR]) AND ((tbl_MAAS.ODENEN)=[Formlar]![frm_MAASODEME]![frm_MAAS].[Form]![ODENEN]));"
sizin düzenlediğiniz ölçüt
[Formlar]![frm_MAAS]![ODENEN]
düzeltilmiş hali
[Formlar]![frm_MAASODEME]![frm_MAAS].[Form]![ODENEN]
Sayın Ozan hocam,
-Yazdğınız kodu eskisiyle değiştirdim sorunsuz çalışıyor,Hem avans hemde maaşodeme'ye veri girdim,ancak burada kasada Kişi isminin önüne Örneğin AHMET KARA -Avans,AHMET KARA -Maaş şeklinde belirleyici olması için ekleme yapabilirmiyiz.
-Urungırıs ve Çıkış içinde aynı yolumu izelememiz gerekiyor,eğer öyleyse buradaki alanlar hesaplanmış alanlar,bunlar için ne yapabilirız.
Saygılarımla.
Koddaki
tbl_PERSONEL.ADISOYADI
yerine
[ADISOYADI] & '- Maaş' AS gidercesidi
yazarsanız, adı soyadı ile birlikte "- Maaş" kelimesi ekler.
kodun son hali
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_MAAS.ODMTAR, tbl_MAAS.ODENEN, [ADISOYADI] & '- Maaş' AS gidercesidi FROM tbl_MAAS INNER JOIN tbl_PERSONEL ON tbl_MAAS.PERSID = tbl_PERSONEL.PERSID WHERE (((tbl_MAAS.ODMTAR)=[Formlar]![frm_MAASODEME]![frm_MAAS].[Form]![ODMTAR]) AND ((tbl_MAAS.ODENEN)=[Formlar]![frm_MAASODEME]![frm_MAAS].[Form]![ODENEN]));"
DoCmd.SetWarnings True
Else
Me.Undo
End If
Sayın Ozan Hocam,
-Emeğiniz için çok teşekkür ederim,ellerinize sağlık.
-Maaş ve Avansla ilgili kısmı böylece tamamlamış olduk,
-Ürüngıriş ve Çıkışla ilgili kısım kaldı.
Saygılarımla.