DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_gecici ( altbaslikid, id, alanlar, beceriid, geciciid ) SELECT tbl_altbaslik.altbaslikid, [Formlar]![frm_degerlendirmeyap]![Kimlik] AS İfade1, beceriler.beceri, beceriler.beceriid, (select count([beceriid]) from tbl_beceri where [beceriid]<=beceriler.[beceriid] and [altbaslikid]=beceriler.[altbaslikid]) AS sirano FROM tbl_beceri AS beceriler INNER JOIN tbl_altbaslik ON beceriler.altbaslikid = tbl_altbaslik.altbaslikid WHERE (((tbl_altbaslik.altbaslikid) = [Formlar]![frm_degerlendirmeyap]![lst_altbaslik])) ORDER BY beceriler.beceriid;"
DoCmd.SetWarnings True
DoCmd.OpenForm "frm_secimformu"
lst_altbaslik isimli liste kutusunun çift tıklandığında olayındaki kodları aşağıdakilerle değiştir.