Textbox problem
 

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

Textbox problem
 

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

Textbox problem
 

Try changing:

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

To:

If Not IsNumeric(TextBox3.Value) The

--
colofnatur
-----------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...fo&userid=3435
View this thread: http://www.excelforum.com/showthread.php?threadid=54478