Textbox Sayı Değilse Uyarsın

[nunikmakarios]

Textbox'a girilen bir değer sayı değilse ve bu sayı 5 basamaklı değilse uyarsın istiyorum. yardımlarınızı rica ederim

 

[Orion1]

Textbox'a girilen bir değer sayı değilse ve bu sayı 5 basamaklı değilse uyarsın istiyorum. yardımlarınızı rica ederim

If Len(TextBox1.Value) <> 5 Then
    MsgBox "Uzunluk 5 basamaklı olmalı!", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
ElseIf Not IsNumeric(TextBox1.Value) Then
    MsgBox "Girilen değer sayı değil!", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If

 

[nunikmakarios]

Teşekkürler üstad

 

[rabbace]

Merhaba,

30 kadar textbox'a sadece sayı girilmesini istiyorum, harici bir şey girilmesine izin vermemesi gerek.
Bir sürü örnek buldum fakat kodları her bir textbox'ın change olayına yazmak gerekiyor.

For döngüsü ile hepsini tek kodla yaptırmak mümkün mü?

Teşekkürler.

 

[Korhan Ayhan]

"Class Module" örneklerini araştırınız.