Textbox problem

[mondolfo]

Hello there, I`m trying to make a textbox that only accept numbers including zero (0), I wrote a code, it work fine, but the only problem is that this code
doesn`t accept zero witch is bad. Can you please send me a code that accept only numbers?. Thanks.

‘************** Star code

Private Sub TextBox3_Change()

If TextBox3.Value <> "" And Val(TextBox3.Value) = 0 Then

MsgBox "Unicamente se permiten valores numéricos", vbCritical,
"...::: Error :::..."

TextBox3.Value = ""

TextBox3.SetFocus

CommandButton1.Visible = False

CommandButton2.Visible = False

TextBox4.Visible = False

Else

CommandButton1.Visible = True

CommandButton2.Visible = True

TextBox4.Visible = True

End If

If Val(TextBox3.Value) > Val(TextBox2.Value) Then

MsgBox "El número máximo permisible de piezas defectuosas no puede
superar a el de la muestra.", vbCritical, "...::: Error :::..."

TextBox3.Value = ""

TextBox3.SetFocus

TextBox4.Visible = False

End If

End Sub

‘*************** End Code

Thanks for your help I sorry about my English, I`m from Colombia South
America.

[colofnature]

Try changing:

If TextBox3.Value <> "" And Val(TextBox3.Value) = 0 Then

To:

If Not IsNumeric(TextBox3.Value) Then

[K Dales]

If Not(IsNumeric(TextBox3.Value)) Then...
--
- K Dales


"mondolfo" wrote:

>
> Hello there, I`m trying to make a textbox that only accept numbers
> including zero (0), I wrote a code, it work fine, but the only problem
> is that this code
> doesn`t accept zero witch is bad. Can you please send me a code that
> accept only numbers?. Thanks.
>
> ‘************** Star code
>
> Private Sub TextBox3_Change()
>
> If TextBox3.Value <> "" And Val(TextBox3.Value) = 0 Then
>
> MsgBox "Unicamente se permiten valores numéricos", vbCritical,
> "...::: Error :::..."
>
> TextBox3.Value = ""
>
> TextBox3.SetFocus
>
> CommandButton1.Visible = False
>
> CommandButton2.Visible = False
>
> TextBox4.Visible = False
>
> Else
>
> CommandButton1.Visible = True
>
> CommandButton2.Visible = True
>
> TextBox4.Visible = True
>
> End If
>
> If Val(TextBox3.Value) > Val(TextBox2.Value) Then
>
> MsgBox "El número máximo permisible de piezas defectuosas no puede
>
> superar a el de la muestra.", vbCritical, "...::: Error :::..."
>
> TextBox3.Value = ""
>
> TextBox3.SetFocus
>
> TextBox4.Visible = False
>
> End If
>
> End Sub
>
> ‘*************** End Code
>
> Thanks for your help I sorry about my English, I`m from Colombia South
>
> America.
>
>
> --
> mondolfo
> ------------------------------------------------------------------------
> mondolfo's Profile: http://www.excelforum.com/member.php...o&userid=17083
> View this thread: http://www.excelforum.com/showthread...hreadid=544781
>
>