+- 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 Veri Aktarma (/konu-formdan-forma-veri-aktarma--79703.html)
Formdan Forma Veri Aktarma - mr.mustafa - 22/11/2014
Arkadaşlar selamlar. Başka bir konu açmak istemediğim için buraya sıkıntımı paylaşmak istedim. Sorum açılan formdaki egzersiz alt formunda satırda onay kutusunda tıkladığım satır daki(hıd-sett-tekrar-agırlık) verılerının alttaki prgdetay alt formuna aktarılması.yardımlarınızı bekliyorum.
Cvp: FORMDAN FORMA VERİ AKTARMA - ozanakkaya - 22/11/2014
açılan kutunun tıklandığında olayına yazılı kodları aşağıdakilerle değiştiriniz.
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO PRGDETAY ( HID, SETT, TEKRAR, AGIRLIK, PRGID ) SELECT EGZERSİZ.HID, EGZERSİZ.SETT, EGZERSİZ.TEKRAR, EGZERSİZ.AGIRLIK, [Forms]![PRG_FRM]![PRGID] AS İfade1 FROM EGZERSİZ WHERE (((EGZERSİZ.HID)=[Forms]![PRG_FRM]![EGZERSİZ alt formu].[Form]![HID]));")
DoCmd.SetWarnings True
Forms![PRG_FRM]![PRGDETAY alt formu].Form.RequeryAyrıca, onay kutusu her tıklandığında bu kod çalışacağı için ve tıklamada onay kutusu işaretleneceği için sıkıntı yaratabilir. Onay kutusu dolu ise kodun çalışması daha doğru olacaktır. Sonraki kayda geçildiğinde işaretli onay kutuları yine işaretli kalacak, bunun da kontrol edilmesi lazım. " ONAY KUTUSUNDA TIKLADIĞIM SATIR" dediğiniz için mevzuyu tam bilmediğim için başka düzeltme yapmadım.
Cvp: Formdan Forma Veri Aktarma - mr.mustafa - 22/11/2014
Sayın Ozan Bey ilginiz için teşekkürler. Dediğiniz gibi onay kutusu her tıkladığımda kod çalışıyor. Onay kutusu dolu ise kodun çalışması nasıl yapılacak bilgilendirirseniz memnun olurum.
Cvp: Formdan Forma Veri Aktarma - ozanakkaya - 22/11/2014
If Me.ONAY = -1 Then
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO PRGDETAY ( HID, SETT, TEKRAR, AGIRLIK, PRGID ) SELECT EGZERSİZ.HID, EGZERSİZ.SETT, EGZERSİZ.TEKRAR, EGZERSİZ.AGIRLIK, [Forms]![PRG_FRM]![PRGID] AS İfade1 FROM EGZERSİZ WHERE (((EGZERSİZ.HID)=[Forms]![PRG_FRM]![EGZERSİZ alt formu].[Form]![HID]));")
DoCmd.SetWarnings True
Forms![PRG_FRM]![PRGDETAY alt formu].Form.Requery
End IfCvp: Formdan Forma Veri Aktarma - mr.mustafa - 22/11/2014
ozan bey çok teşekkürler. program çalıştı istediğim gibi.
Cvp: Formdan Forma Veri Aktarma - ozanakkaya - 22/11/2014
Rica ederim.
x sıradaki onay kutusunu işaretleyip alt forma veri aktardınız. sonraki kayda gittiğinizde işaretli onay kutuları aynı mı kalacak?