Textbox Basamak Sayısı Sınırlama

[bluefalcon]

Arkadaşlar merhaba,

Sayfa içerisine oluşturacağımız herhangi bir textbox nesnesine girilecek değerlerin 5 basamaklı sayılardan oluşması için nasıl bir mantıkla hareket etmek gerekir?

<9999 diyorum ama nesneye 1 değerini girdiğimde msgbox a yazdığım uyarıyı alıyorum taa ki 5 basamaklı sayı olana kadar. Yardımlarınızı rica ediyorum.

 

[Mahir64]

Arkadaşlar merhaba,
Sayfa içerisine oluşturacağımız herhangi bir textbox nesnesine girilecek değerlerin 5 basamaklı sayılardan oluşması için nasıl bir mantıkla hareket etmek gerekir?
<9999 diyorum ama nesneye 1 değerini girdiğimde msgbox a yazdığım uyarıyı alıyorum taa ki 5 basamaklı sayı olana kadar. Yardımlarınızı rica ediyorum.

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(TextBox3.Value)
Case Is >= 11
TextBox4.SetFocus
Case Else
TextBox4.Value = ""
End Select
End Sub
Ben TC İçin kullsmıyorum bir sonraki TextBox geçiyor İşinize yarayabilir

 

[bluefalcon]

teşekkür ediyorum ancak aşağıdaki şekilde bir sorun ile karşılaştım.

 

[bluefalcon]

yapamadım

If Len(textbox1.Value) = 5 Then
ActiveCell.Offset(0, 1).Value = textbox1.Value
Else
MsgBox "Sicil Numarası Yanlış!", vbCritical, "HATALI GİRİŞ !"
textbox1.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
textbox1.SelStart = 0
textbox1.SelLength = Len(textbox1)

yukarıdaki kodda hata nerede anlayamadım. Textbox1 e girilen 5 basamaktan farklı bir sayı için uyarı verecek ve o sayıyı seçecek. Uyarıyı veriyor ama girilen rakamları seçmiyor.

 

[bluefalcon]

yardım edebilecek yada fikir verebilecek kimse yok mudur?