Merhaba,
Ortak kullanmak zorunda olduğum tbl_hükümlü_elektronik_infaz tablosu var. Bu tablo içerisinde Onay kutusu şekilde olan kntt_infaz ve diğer_infaz satırları tiklendiğinde ayrı satırlarda aynı (id) satırını kopyalayarak ile kayıt oluşturmasını istiyorum. Daha önce farklı bir ekranda buton ile kullandığım INSERT deyimini burada uygulayamadım.
İstediğim; Form ekranında seçilen kişiye göre aktif olan kutucuklardan Konutta İnfaz ve Diğer infaz ( ikisi aynı anda aktif olduğunda ) kutucukları aktif olduğunda bu iki kutucuğun tabloda bulunan satırlarının iki ayrı satır olacak şekilde işaretlenmesini istiyorum.

If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If

bunu oraya yaz

(06-04-2021, 14:29)celalll demiş ki: If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If

bunu oraya yaz

 Celalll Bey, 
 Diger Onay kutusunun Tıklandığında alanına kodu yapıştırıyorum ama yeni satır oluşturmuyor. 

Private Sub konut_Click()
If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If
End Sub

(06-04-2021, 18:00)celalll demiş ki: Private Sub konut_Click()
If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If
End Sub

  celalll bey sizi uğraştırıyorum ama kusura bakmayın. Kodu "konut" onay kutusuna yazdığımda da istediğim satırı oluşturmuyor. Ben aşağıdaki fotodaki gibi aynı (id) satırını kopyalayarak iki ayrı satırda onay kutularını işaretlemesini istiyorum. 

currentdb.execute "INSERT INTO tbl_hükümlü_elektronik_infaz ( id ) SELECT tbl_hükümlü_elektronik_infaz.id
FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=" & [Forms]![vk_sorumlusu_atama_ekrani]![sira_id] & "))"

olarak degistirin, kayit eklensede, form veri getirme ve güncelleme istediğiniz gibi gerçekleşmeyecek gibi. Yeni eklenen kaydın işaretlenmesi ve gösterilmesi sorunlu olacaktır.