Merhaba arkadaşlar
Öncelikle bu corona virüsü belasından hepimizin sağlıklı bir şekilde kurtulmasını dileyerek;
Eklediğim uygulamada Personel Formundan Personeli seçerek PersonelBilgileri Formuna personeli aktarıyorum.
PersonelBilgileri Formunda Liste deki veriler değişmiyor. Yani seçtiğim Personele ait bilgiler Listede görünmesi gerekirken bütün personele ait veriler Listede görünüyor.
Bu konularda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.
iki tablodaki S_No alanları ilişkilendirilmez. PersonelBilgileri tablosundaki s_no ile personel tablosundaki Personel** ilişkilendirilmeli.
PersonelBilgileri tablosuna mtn_s_no adında metin kutusu ekle, denetim kaynağına Personel** olarak belirle.
Personel formundaki Komut185'in tıklandığında olayındaki
Form_PersonelBilgileri.Metin198 = Form_Personel.PersonelAdi
kodunun altına
Form_PersonelBilgileri.mtn_s_no = Form_Personel.S_No
kodu ekle, böylelikle personelbilgileri tablosuna personelin id numarası kaydedilir.
PersonelBilgileri formundaki liste isimli liste kutusunun satır kaynağındaki sorgudaki Personel** alanına [Forms]![PersonelBilgileri]![mtn_s_no] ölçütü ekle
Çok teşekkürler Hocam ellerinize sağlık.
Hocam kodları yazdığınız şekilde uygulamaya çalıştım. Olmadı nerede hata yaptığıma bakabilirmisiniz. Saygılar.
Hangi amaçla yazdığınızı bilmiyorum ama, liste kutusunun satır kaynağındaki sorguda
İfade1: PersonelBilgileri.[Forms]![PersonelBilgileri]![mtn_s_no]
şeklinde bir alan var. Bu yazım hatalı. PersonelBilgileri formunda, liste kutusunun satır kaynağındaki sorgu aşağıdaki gibi olmalı
SELECT PersonelBilgileri.S_No, PersonelBilgileri.Tarihi, PersonelBilgileri.Aciklama, PersonelBilgileri.VerilenTutar, PersonelBilgileri.AlınanTutar, PersonelBilgileri.GirisSaati, PersonelBilgileri.CikisSaati, PersonelBilgileri.SaatToplami, PersonelBilgileri.SaatTutari, PersonelBilgileri.[PersonelBilgileri**], [Forms]![PersonelBilgileri]![mtn_s_no] AS İfade1, PersonelBilgileri.[**], PersonelBilgileri.Aciklama, PersonelBilgileri.Aciklama AS Arama FROM PersonelBilgileri WHERE (((PersonelBilgileri.S_No)=[Forms]![PersonelBilgileri]![mtn_s_no]) AND ((PersonelBilgileri.Aciklama) Like "*" & [Forms]![PersonelBilgileri]![gecici] & "*")) ORDER BY PersonelBilgileri.S_No;
Çok teşekkürler Hocam Ellerinize sağlık.
Hocam mesaj 2 deki kodlarınızı uygularken başka yerlerde de hata yapmışım ki PresonelBilgileri Formunda veri girip kaydet butonuna tıkladığım zaman Liste deki veriler temizleniyor Liste boş görünüyor.
Formdaki mtn_S_No metin kutusuna personelin tablodaki S_No değerini yazdırıyoruz. Liste kutusunun satır kaynağındaki sorgunun ölçütü de bu mtn_S_No metin kutusunda yazılan veri. Siz kaydet butonuna bastığınızda mtn_S_No metin kutusu boş olduğu için liste kutusu boş oluyor.
Kaydet butonunun tıklandığında olayına
GSayi = mtn_S_No
kodu ekledim,
Yeni kayıt kodunun altına da
Me.mtn_S_No = GSayi
kodu ekledim. Bu şekilde kaydet butonu basıldığında sno ne ise yeni kayıtta da o veriyi aktarıyor.