M
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.
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.