textboxa girilen 3 karakterden sonra diğer textboxa otomatik geçiş

[recep]

formumda 30 tane textbox var. veri her birine en fazla 3 karekter giriliyor. hiç bir tuşa basmada tab enter vs imleç kendiliğinden bir sonraki textboxa geçsin istiyorum mümkün mü?

 

[omerceri]

Her TextBox için ayrı ayrı (düzenleyip) aşağıdaki kodları yazarsan
Private Sub TextBox1_Enter()
TextBox1.Value = Null
End Sub
Private Sub TextBox1_Change()
If Len(TextBox1) = 3 Then
TextBox2.SetFocus
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz. Ben üç adet TextBox için kodları verdim. Siz diğerleri içinde uygularsınız.

Private Sub TextBox1_Change()
    TextBox1.MaxLength = 3
    If Len(TextBox1) = 3 Then TextBox2.SetFocus
End Sub

Private Sub TextBox2_Change()
    TextBox2.MaxLength = 3
    If Len(TextBox2) = 3 Then TextBox3.SetFocus
End Sub

Private Sub TextBox3_Change()
    TextBox3.MaxLength = 3
    If Len(TextBox3) = 3 Then TextBox4.SetFocus
End Sub

 

[Levent Menteşoğlu]

formumda 30 tane textbox var. veri her birine en fazla 3 karekter giriliyor. hiç bir tuşa basmada tab enter vs imleç kendiliğinden bir sonraki textboxa geçsin istiyorum mümkün mü?

Bence 30 textboxada kod yazmak yerine class module ile daha pratik çözüm üretilebilir. Ekli dosyayı inceleyin.

 

[Korhan Ayhan]

Selamlar,

Sn. leventm bey,

Aslında bende Class Module ile çözüm üretmeye çalıştım fakat bu konuya tam hakim olamadığımdan arkadaşımızı yanlış yönlendirmek istemedim. En kısa sürede öğrenmeye çalışacağım. Elinize sağlık.

 

[recep]

teşekkür arkadaşlar ama bir sorun çıktı bazı textbox lar kilitli(enabled) ona geçince hata veriyor ne yapabilirim

 

[Levent Menteşoğlu]

teşekkür arkadaşlar ama bir sorun çıktı bazı textbox lar kilitli(enabled) ona geçince hata veriyor ne yapabilirim

Bu gayet normal enabled özelliği false olunca o textbox seçilemiyor ve hata veriyor. Enabled özelliği yerine locked özelliğini kullanabilir veya class modüldeki koda "on error resume next" satırını ilave edebilirsiniz.