Textbox sadece belirtilen değerlerin yazılabilmesi

[k0081]

Merhaba arkadaşlar;

Textbox a sadece 0123456789 rakalamlar ve ABCDEF harfleri girilebilsin. bu harflerin dışında bir harf girildiğinde hata iletisi versin..

yardımcı arkadaşa şimdiden teşekkürler..

 

[dEdE]

Merhaba,
Buraya bakabilirsiniz.

 

[hımmmmmmmm]

çalışma ekde...

Private Sub TextBox1_Change()
If Trim(TextBox1) <> "" Then
  H = Mid(TextBox1, Len(TextBox1), 1)
  If H < Chr(48) Then HATA H
  If H > Chr(57) And H < Chr(65) Then HATA H
  If H > Chr(70) Then HATA H
 End If
End Sub


Public Sub HATA(H)
C = MsgBox(Trim(H) + " Karakteri Hatalı Giriş", 56, "Text Girişi Hakkında")
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End Sub

 

[k0081]

dEdE ;
Teşekkürler..
******************

hımmmmmmmm;

Hocam çok teşekkürler tamamdır..