Textbox'a Konumlanıp İçindeki Veriyi Seçmek

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile Textbox3 deki veri 11 karakterden az ise uyarı verip, tekrar Textbox3'e konumlanması ve textbox3 içindeki veriyi seçmesini istiyorum. Uyarıyı veriyor ama textbox'a konumlanmıyor. Yardımcı olursanız sevinirim.

If TextBox3.SelLength < 11 Then
MsgBox ("T.C. Kimlik Numarası 11 haneli olmalıdır..."), vbQuestion, "Eksik Bilgi"
TextBox3.SetFocus
TextBox3.SelStart = 0
TextBox3.SelLength = Len(TextBox3)
End If

 

[Erdem Akdemir]

Aşağıdaki yöntemi deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(TextBox1.Text) <> 11 Then
MsgBox "hata"

Cancel = True

TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)

End If

End Sub

 

[ahmed_ummu]

Aşağıdaki yöntemi deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(TextBox1.Text) <> 11 Then
MsgBox "hata"

Cancel = True

TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)

End If

End Sub

Teşekkürler Erdem bey.