Arkadaşlar aşağıdaki açılankutu39 komutunda like komutunu kullanınca "INSER INTO" ve "Me.[EGZERSİZ_alt_formu].Form.RecordSource" satırlarında Type Mismatch hatası veriyor. Yardımlarınızı bekliyorum.İyi çalışmalar.
Private Sub Açılan_Kutu39_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * from gecici;"
DoCmd.RunSQL "INSERT INTO gecici ( egzersizid, İlkresimyol, İlkresimid ) SELECT resimler.egzersizid, First(resimler.resimyol) AS İlkresimyol, First(resimler.resimid) AS İlkresimid FROM EGZERSİZ INNER JOIN resimler ON EGZERSİZ.HID = resimler.egzersizid WHERE (((EGZERSİZ.PROGRAMLAR) like " * "&[Formlar]![PRG_FRM]![Açılan_Kutu39]&" * "))GROUP BY resimler.egzersizid"

Me.[EGZERSİZ_alt_formu].Form.RecordSource = "SELECT HID,ONAY,[HAREKET ADI],[BÖLGE],[GRUBU],[SETT],TEKRAR,AGIRLIK,ilkresimyol,ilkresimid,egzersizid,ALET FROM SORGU9 Where (((EGZERSİZ.PROGRAMLAR) like " * "&[Formlar]![PRG_FRM]![Açılan_Kutu39]&" * "))"
Me.[EGZERSİZ alt formu].Form.Requery
Me.EGZERSİZ_alt_formu.Enabled = True
Me.PRGDETAY_alt_formu.Enabled = True
DoCmd.SetWarnings True
End Sub

Sn KYSKYS;
like " * "&[Formlar]![PRG_FRM]![Açılan_Kutu39]&" * " bolumunu
like '*"& [Forms]![PRG_FRM]![Açılan_Kutu39] & "*'" olarak degistirin.

İlginiz için teşekkürler. Aşağıdaki şekilde değişimi yaptım fakat Run-Time error 2465: ifadenizde başvurulan '1' alanı microsoft tarafından bulunamıyor. Hatası veriyor.
Private Sub Açılan_Kutu39_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * from gecici;"
DoCmd.RunSQL "INSERT INTO gecici ( egzersizid, İlkresimyol, İlkresimid ) SELECT resimler.egzersizid, First(resimler.resimyol) AS İlkresimyol, First(resimler.resimid) AS İlkresimid FROM EGZERSİZ INNER JOIN resimler ON EGZERSİZ.HID = resimler.egzersizid WHERE (((EGZERSİZ.PROGRAMLAR) like "" * " & [Formlar]![PRG_FRM]![Açılan_Kutu39] & " * ""))GROUP BY resimler.egzersizid"
Me.[EGZERSİZ_alt_formu].Form.RecordSource = "SELECT HID,ONAY,[HAREKET ADI],[BÖLGE],[GRUBU],[SETT],TEKRAR,AGIRLIK,ilkresimyol,ilkresimid,egzersizid,ALET FROM SORGU9 Where (((EGZERSİZ.PROGRAMLAR) like "" * " & [Formlar]![PRG_FRM]![Açılan_Kutu39] & " * ""))"
Me.[EGZERSİZ alt formu].Form.Requery
Me.EGZERSİZ_alt_formu.Enabled = True
Me.PRGDETAY_alt_formu.Enabled = True
DoCmd.SetWarnings True


End Sub

---

hatayı DoCmd.RunSQL "INSERT INTO gecici satırında veriyor.

like " * " & [Formlar]![PRG_FRM]![Açılan_Kutu39] & " * " " koyu yazan(denden) ile degil ' (kesme) ile yapmalisiniz.

Kopyala yapıştı yaptım, şimdide eksik işleç hatası veriyor.

Private Sub Açılan_Kutu39_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * from gecici;"
DoCmd.RunSQL "INSERT INTO gecici ( egzersizid, İlkresimyol, İlkresimid ) SELECT resimler.egzersizid, First(resimler.resimyol) AS İlkresimyol, First(resimler.resimid) AS İlkresimid FROM EGZERSİZ INNER JOIN resimler ON EGZERSİZ.HID = resimler.egzersizid WHERE (((EGZERSİZ.PROGRAMLAR) like " '*"& [Forms]![PRG_FRM]![Açılan_Kutu39] &"*'")) GROUP BY resimler.egzersizid"
Me.[EGZERSİZ_alt_formu].Form.RecordSource = "SELECT HID,ONAY,[HAREKET ADI],[BÖLGE],[GRUBU],[SETT],TEKRAR,AGIRLIK,ilkresimyol,ilkresimid,egzersizid,ALET FROM SORGU9 Where (((EGZERSİZ.PROGRAMLAR) like " '*"& [Forms]![PRG_FRM]![Açılan_Kutu39] &"*'"))"
Me.[EGZERSİZ alt formu].Form.Requery
Me.EGZERSİZ_alt_formu.Enabled = True
Me.PRGDETAY_alt_formu.Enabled = True
DoCmd.SetWarnings True


End Sub

Sn KYSKYS;
WHERE ((EGZERSİZ.PROGRAMLAR) like '*"& [Forms]![PRG_FRM]![Açılan_Kutu39] & "*') GROUP BY resimler.egzersizid"
ilgili yeri kopyalain. like onunde ve en son kapatma parantezin onunde ki "(denden) ler fazla. Ornek olmayinca test islemi size kaliyor. isaretlemelerin gozden kacmasi yasliliktan.