etikete odaklanınca metin kutusuna gitsin

selam
formda etiket ile metin kutusu bağlı değil
istiyorum ki etikete tıklayınca metin kutusuna setfocus (gitsin) bir çok denememe rağmen yapamadım

örneğin etiket adı "metin1_etiket" metin kutusu adı "metin1"
etikete tıkladığımda etiket adından "_etiket" kısmını çıkarıp ilgili metine odaklanacak

yada kod üzerinde yardımcı olabilirmisiniz

Private Sub lblgostermavi(LblKutux As Label)

Dim frmadi As Form

Set frmadi = Screen.ActiveForm

Dim txt As Object

Set txt = Mid(LblKutux.Name, 1, Len(LblKutux.Name) - 7)

frmadi!txt.setfocus

End Sub

Merhaba

Private Sub metin1_Etiket_Click()
Me.metin1.SetFocus
End Sub

Private Sub metin2_Etiket_Click()
Me.metin2.SetFocus
End Sub

bunları ekleyin

selam
cevap için teşekkürler
sayın celoyce cevap komik oldu galiba
örnekte bu modülde olmalı ve tüm formlarda kullanmam gerekli
cevabınızı değerlendirdiğimde yaklaşık 1000 den fazla kod kullanmam gerekli

saygılarımla

Komik olan cevap değil ,Soru seklini yanlis anlatman yada anlamam

instr ile "_" işaretine kadar olan ismi aldırıp setfocus ile oraya odaklanacaksınız. Bunu formun geçerli olduğunda olayına yazarsanız ya da bir altyordam yazıp ordan çalıştırırsanız işiniz görülür. Ben yolu söyleyip sizin yapmanız için zaman tanıyorum. Lütfen sitedeki arkadaşlar cevabı yayınlamasınlar ki üyeler de bir şey öğrenmenin zevkini yaşayıp bu arada araştırma yoluyla da kendilerini geliştirebilsinler. İnşallah mesaj yerine ulaşır.

---

Bu arada Celoyce haklı, çünkü ilk mesajınızda ne yapmak istediğinizi yanlış anlatmışsınız. Ben de aynı Celoyce'nin dediği gibi anladım. Oysa sizin demek istediğiniz, etiket adlarından otomatik olarak metin kutularına odaklanma ile ilgili bir durum. Buna benzer bir buton olayı örneği yayınlamıştık. Bulursam sizi yönlendirim.

selam
insanların bazen espri yapma zamanları olur
bende sayın arkadaşlarımın konuyu okuyup örneği incelediği varsayıp
espri yaptığını anladım ve buna dayanarak cevap yazdım
art niyet arama niyetim ve düşüncem bulunmamakta
yanlış anlaşılmadan dolayı özür diler kullanmaları için ek dosyayı ekte sundum

konu çözülmüştür
saygılarımla