AccessTr.neT

İyi akşamlar.

Anamenu formunda sicil seçip alanlara veri girdikten sonra yerine onay kutusunu tıklayıp göreve gönderdiğmiz sicil harici bir isim giriyoruz.Yani verilerini eklediğimiz isim aslında kendi görevine değil KİMİN açılan kutusuna girdiğimiz ismin yerine göreve gidiyor...Yapmak istediğim;

Yerinemi tıklanıp, kimin a.kutusuna girdiğimiz ismin sicilinin...tbl_yerine tabanlı yerine formunda ki sicili alanını doldurması.
 

Özeti: Anamenu de; kimin alanına girilen isim; yerine formunda sicilno açılan kutusuna atanacak.

Örneği geri çekmek zorunda kaldım.
Düzenleyince tekrar ekleyeceğim.

KayitEkle koduna aşağıdaki kodları ekle

If Me.yerinemi = "-1" Then

DoCmd.RunSQL "INSERT INTO tbl_yerine ( personel_no, Grup, rutbesi, sicili, adi_soyadi ) SELECT personel.personel_no, personel.Grup, personel.rutbesi, personel.sicili, personel.adi_soyadi FROM personel WHERE (((personel.adi_soyadi)=[Formlar]![Anamenu]![kimin]));"
End If

Kodu yazdım oldu..oluşturduğum tabloya kayıt yaptı.

uygulama veriler sebebiyle karıştığı için, konu başlığına yönelik çözüm sonucunu gösterir uygulamanın son halini birazdan ekleyeceğim.

Formdan-başka tabloya kritere bağlı kayıt etme.

Sn.Ozanakkaya, teşekkür ediyorum.Bende bir ekleme sorgusu yapmış ve çıkıldığında yordamına yazmıştım, ancak sadece 2 alanı ekliyordu..Bu daha iyi oldu.

Konu çözülmüştür.