TextBox'a Belirlenen Koşuldan az rakam girilmesin

[kadirguney]

Herkese Selamlar

Bu foruma yeni katıldım. Forumda emeği geçen herkese öncelikle teşekkür ederim.
Benim sorum Þu:

örneğin Textbox'a 17 rakam girilmesi gerekiyor. eğer 16 rakam girilirse hata versin.


Kolay gelsin...

 

[veyselemre]

[vb:1:6fba656b15]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) <> 17 Then
TextBox1.SetFocus
MsgBox "TextBox1'in uzunluğu 17 olmalıdır"
End If
End Sub
[/vb:1:6fba656b15]

 

[kadirguney]

teşekkür ederim işime yaradı ama bir sorum daha olacak

17 haneli olmazsa hata vermeye devam etsin :yardim:

 

[htsumer]

17 haneli olmazsa hata vermeye devam etsin

Sayın veyselemre'nin kodları çalışıyor.
1 hanede girseniz 25 hanede girseniz hata vermeye devam ediyor zaten.
<> 17 => 17'den küçük ve büyük..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) <> 17 Then
MsgBox "TextBox1'in uzunluğu 17 olmalıdır"
TextBox1 = ""
End If
End Sub


Private Sub UserForm_Initialize()
TextBox1.MaxLength = "17"
End Sub