textbox'a sınırlı veri girişi

[turk4545]

arkadaşlar textbox'a tc kimlik no giriyorum ve sadece 11 haneli veri girişi yapmak istiyorum.11 den az veya fazla olursa uyarsın.forumda aradım bulamadım.yardımcı olurmusunuz..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1) <> 11 Then
    MsgBox "Lütfen 11 karakter uzunluğunda veri girişi yapınız !", vbCritical, "Dikkat !"
    Cancel = True
    End If
End Sub
 
Private Sub UserForm_Initialize()
    TextBox1.MaxLength = 11
End Sub

 

[turk4545]

elinize sağlık çok teşekkür ederim..