textboxlarda karakter sınırlaması

[Emsdmr]

userform1 üzerinde bulunan textbox lara sadece rakam girilebilmesi ve girilen rakamların 3 karakter ile sınırlandırılması için ne yapmalıyım
rakam dışında karakter girilince msgbox uyarı verse ve yine 3 karakterden fazla giriş yapılınca msgbox yine uyarı verse

 

[halit3]

işte kod

Private Sub TextBox1_Change()
If Len(TextBox1.Text) > 3 Then
MsgBox " 3 karekterden fazla giriş yaptınız silinecektir."
TextBox1.Text = ""
End If
If IsNumeric(TextBox1.Text) <> True Then
For i = 1 To Len(TextBox1.Text)
ker = Mid((TextBox1.Text), i, 1)
If IsNumeric(ker) <> True Then
A = Right(ker, i)
MsgBox A & " Harfi sayı değil silinecektir."
TextBox1.Text = ""
End If
Next
Exit Sub
End If
End Sub

 

[Emsdmr]

sayın halit3 ilginize teşekkür ederim sorunum çözüldü

 

[Levent Menteşoğlu]

Ek bir hatırlatmada bulunmak istiyorum. Textboxa girilecek veri uzunluğunu properties penceresindeki "maxlength" özelliğini kullanarakta sınırlayabilirsiniz.

 

[Emsdmr]

Sayın LeventM Teşekkür ederim.

 

[soluksuz]

Ek bir hatırlatmada bulunmak istiyorum. Textboxa girilecek veri uzunluğunu properties penceresindeki "maxlength" özelliğini kullanarakta sınırlayabilirsiniz.

Levent bey bu özellik çok güzel ve kolay tam istediğim gibi .

peki birde şu şekilde bir özellik var mı küçük harf ile yazılsa bile ,
otomatik büyük harf yazılabilirmi ?

 

[Explorer]

Merhaba,

Aşağıdaki kod işinizi görebilir.

Private Sub TextBox1_Change()
    Dim tx
    
    tx = TextBox1.Text
    
    tx = Replace(tx, "ı", "I")
    tx = Replace(tx, "i", "İ")
    
    tx = UCase(tx)
    
    TextBox1.Text = tx
End Sub