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.
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.Requery
Ayrı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.
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.
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 If
ozan bey çok teşekkürler. program çalıştı istediğim gibi.
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?