+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdan Forma kritere göre veri atamak (/konu-formdan-forma-kritere-gore-veri-atamak.html)
Formdan Forma kritere göre veri atamak - yorum70 - 02/07/2015
İ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ı.
Cvp: Formdan Forma kritere göre veri atamak - yorum70 - 02/07/2015
Özeti: Anamenu de; kimin alanına girilen isim; yerine formunda sicilno açılan kutusuna atanacak.
Cvp: Formdan Forma kritere göre veri atamak - yorum70 - 02/07/2015
Örneği geri çekmek zorunda kaldım.
Düzenleyince tekrar ekleyeceğim.
Cvp: Formdan Forma kritere göre veri atamak - ozanakkaya - 02/07/2015
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
Cvp: Formdan Forma kritere göre veri atamak - yorum70 - 03/07/2015
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.
Cvp: Formdan Forma kritere göre veri atamak - yorum70 - 03/07/2015
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.