textbox in vb accepting characters and numbers only

[Vbbeginner07]

Hi all
Wonder if anyone can help me out to solve this:

please find the code of textbox that accepts only characters and
one textbox that accepts only numbers:

(vb)
textbox for accepting characters:
If txtname.Text = "" Then
MsgBox "enter the name", vbOKOnly, "PAYROLL"
txtname.SetFocus
Exit Sub
ElseIf IsNumeric(txtname.Text) Then
MsgBox "enter name",vbOKOnly, "PAYROLL"
With txtname
.SelStart = 0
.SelLength = Len(txtname.Text)
.SetFocus
End With
End If

wat change i need for above code:?
if i press ny numbers instead that should not be displayed inside the
textbox

code:vb
textbox for accepting numbers

Private Sub txtid_KeyPress(KeyAscii As Integer)
If (KeyAscii > 47 And KeyAscii < 58) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

WAt change i need for above code:"
backspace is not working
and also i dont need a

isnumeric(txtid.text)
code

please go thru this...and give a solutiion

Thanks in advance

[debasisdas]

You need to handle key ascii in the proper range and handle ascii=8 for backspace.

[lotus18]

textbox for accepting numbers

Private Sub txtid_KeyPress(KeyAscii As Integer)
If (KeyAscii > 47 And KeyAscii < 58) Then 
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

Hi

Change your code with this one:

If KeyAscii = 8 Or KeyAscii = vbKeyDecimal Then
        KeyAscii = 8
Else
        If KeyAscii < 48 Or KeyAscii > 57 Then
            KeyAscii = 0
        End If
End If

Rey Sean