in textbox only number should enter

[ranesmitas]

In textbox i want to enter only number not any alphabates. please tell how i code that

[gits]

hi ...

what textboxes are you talking about? is it a webpage?

kind regards

[JosAH]

... and what language?

kind regards,

Jos

[ranesmitas]

In visual basic i put a textbox and i want to enter in that textbox only numeric value alphabete are not allowed .please how can i do it

[ranesmitas]

hi ...

what textboxes are you talking about? is it a webpage?

kind regards

In visual basic i put a textbox and i want to enter in that textbox only numeric value alphabete are not allowed .please how can i do it

[ranesmitas]

... and what language?

kind regards,

Jos

In visual basic i put a textbox and i want to enter in that textbox only numeric value alphabete are not allowed .please how can i do it

[r035198x]

In visual basic i put a textbox and i want to enter in that textbox only numeric value alphabete are not allowed .please how can i do it

Moved to VB forum

[Robbie]

Change Text1 to the name of your TextBox:

Private Sub Text1_Change()
         Dim CurrentPos As Long
         Dim CurrentChar As String
 
         CurrentPos = 1
         While CurrentPos <= Len(Text1.Text)
             CurrentChar = Mid(Text1.Text, CurrentPos, 1)
 
             If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then
                 Text1.Text = Replace(Text1.Text, CurrentChar, "")
             End If
 
             CurrentPos = CurrentPos + 1
         Wend
 
    Text1.SelStart = Len(Text1.Text)
End Sub
 

If you want to also be able to enter a decimal point then change this one line:
If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then
into this one line:

If Not ((Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) or currentchar=".") Then
 

[ranesmitas]

thank u for code but it gives error that

Run time error 5:
Invalid proceduer call or argument

this line
If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then

why it is

[Robbie]

Run time error 5:
Invalid proceduer call or argument

this line
If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then

You must not be using VB6 then.
Seems the version you're using doesn't have the Asc() function.
If anyone used to .NET knows its equivalent to Asc(), it would be nice to hear from them now. =P

[QVeen72]

In visual basic i put a textbox and i want to enter in that textbox only numeric value alphabete are not allowed .please how can i do it

Hi,

Write this in KeyPress Event of TextBox:

If keyAscii <> 8 Then
  If Instr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
 

REgards
Veena

[hariharanmca]

Hi,

If keyAscii <> 8 Then
  If Instr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
 

If keyAscii <> 8 Then
REgards
Veena

I think, you have to allow Ascii 13 also.

[QVeen72]

I think, you have to allow Ascii 13 also.

Ascii=13 = Enter key,
If She wants to write code to move to next Control for enter key, then she has to check and write code for that..
BCoz, VB will not move to next control for Enter key by itself

Regards
Veena

[hariharanmca]

Ascii=13 = Enter key,
If She wants to write code to move to next Control for enter key, then she has to check and write code for that..
BCoz, VB will not move to next control for Enter key by itself

Regards
Veena

Just think if she want to write code for any operation by keypress 13 then the above code change the Ascii to 0.
better allow Ascii 13.

[QVeen72]

Hi Hari,

Yes, thats what i wrote in last post, if she want to write any code, she has to check that Ascii code and Exit Sub. Write my code in the End,
She may want to write for other chars also, SpaceBar, . - / ..

REgards
Veena

[hariharanmca]

Hi Hari,

Yes, thats what i wrote in last post, if she want to write any code, she has to check that Ascii code and Exit Sub. Write my code in the End,
She may want to write for other chars also, SpaceBar, . - / ..

REgards
Veena

Okay, But; usually space never comes in numbers entry.

Thanks for All detail replies.

[Killer42]

I'm surprised nobody has suggested using the Masked Edit control. It allows you to control the type and format of data entered.

[ranesmitas]

I really very thank my problem solved