AccessTr.neT

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

berduş yazdı: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

Size ne kadar teşekkür etsem az. Tam da istediğim çözüm olmuş. Ben anlaşılabilmesi için bir örnek göndermiştim. Gerekirse bu haliyle de kullanırım ama kendi uygulamama uyarlayabilirim sanırım. Emeğinize sağlık.

Yanılmıyorsam sizin eklediğiniz örnek üzerinde yaptım sadece sekmelerde yer alan taşıyıcı isimlerini değiştirdim okadar