Dilerim işinize yarar.
kod kalabalığı olmaması için AltForm taşıcılarının bazılarının isimlerini değiştirdim
PERFORMANS_PUANI çift tıklama olayının kodu

Dim Blm As String



 DoCmd.OpenForm "Frm_Karne" ', , , "SICIL='" & Me.SİCİL & "'"

 Blm = Replace(Me.ANA_BOLUMAD, "BÖLÜM", "")

 Forms("Frm_Karne").Controls("TbxBlm" & Blm).SetFocus

 Forms("Frm_Karne").Controls("Frm_Bolum" & Blm).Form.Recordset.FindFirst "[SICIL]='" & Me.SİCİL & "'"

UYARI: mevcut yapıyı baz alarak yaptım isimlendirme yada hangi bölümde olduğunu gösteren
"BÖLÜM5" gibi yapılar değiştirilirse düzgün çalışmayabilir
mesela normalde "BÖLÜM5" olan kaydı değiştirip "BLM5" gibi yapamazsınız
yada formların adı ("Frm_Bolum3" yapısındayken kimini Form3 kimini formKasa gibi olmamalı
Not: Mümkünse isimlendirmelerde İ,ş,ç  gibi Türkçe karakterler, boşluk yada "_" alt tire dışında işaret  kullanmayın