Nümerik Alfanümerik

[heft]

Ã?ncelikle yeni başlık açtığım için özür...

Çünkü bu konuyu 1-2 gün önce bulmuştum ama şimdi bulamıyorum..

Ã?zetle ;

TextBox1 e Rakam yazılamasın
TextBox2 e Harf yazılamasın


Kodarını nasıl yazmam gerekir.?

Tekrar özür .....

 

[Haluk]

Private Sub TextBox1_Change()
    If Not (IsNumeric(TextBox1)) Then SendKeys "{bs}"
End Sub
'
Private Sub TextBox2_Change()
    If Right(TextBox2, 1) Like "[0-9]" Then SendKeys "{bs}"
End Sub

 

[heft]

Teşekkürler Sayın Raider

Private Sub TextBox1_Change()
If Not (IsNumeric(TextBox1)) Then SendKeys "{bs}"
End Sub

tanımladığımız textbox1 e
"-" "+" "." "," işaretleri yazılabiliyor. şu durumda
sadece rakamları ve "," yazdırtma imkanımız var mıdır?

 

[Haluk]

Merhaba;
O zaman bir de bunu deneyin ...

Private Sub TextBox1_Change()
    If Right(TextBox1, 1) Like "[!0-9,]" Then SendKeys "{bs}"
End Sub

 

[heft]

Teşekkürler sayın Raider

işimi gördü

süper oldu