Control format of input

[lita]

hey I am using the VB6.0 and I creating an order entry form interface. So in my order form it has an Quantity, Rate and Description Column so in quantity and rate column I dont want to enter any letters on it only a number so I want to know what code do I have to make so when someone want to enter a letters a messagebox will appear and say "Invalid Number"....please can you help me out....

[pureenhanoi]

hey I am using the VB6.0 and I creating an order entry form interface. So in my order form it has an Quantity, Rate and Description Column so in quantity and rate column I dont want to enter any letters on it only a number so I want to know what code do I have to make so when someone want to enter a letters a messagebox will appear and say "Invalid Number"....pliz can you help me out....

Enter code into KeyPress Event

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If (KeyAscii < Asc("0") Or KeyAscii>Asc("9")) And Not KeyAscii=8 Then
  KeyAscii = 0
  Msgbox "Invalid Number"
End If
End Sub
 

You need KeyAscii = 8 to enable BackSpace key

[Killer42]

What type of control are you using to enter the information? If it's a text box, you might instead try looking into the Masked Edit Control - it allows you to control the format of the input.

Oh, and by the way. Please try to use a title which reflects what is in your message, not just "help".

[lita]

hey thnx 4 help 'n' sori abt that m jst little confuse.....okkkk...

What type of control are you using to enter the information? If it's a text box, you might instead try looking into the Masked Edit Control - it allows you to control the format of the input.

Oh, and by the way. Please try to use a title which reflects what is in your message, not just "help".

[lita]

hey thnx.....and m trying that coding it's work...see ya...

Enter code into KeyPress Event

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If (KeyAscii < Asc("0") Or KeyAscii>Asc("9")) And Not KeyAscii=8 Then
  KeyAscii = 0
  Msgbox "Invalid Number"
End If
End Sub
 

You need KeyAscii = 8 to enable BackSpace key