Saltar al contenido

TextBox con valor negativo en 0

publicado

Private Sub CommandButton23_Click()
TextBox1 = TextBox1 - 1

End Sub

Quiero que en el TextBox1 al pasar a numero negativo  -1  el numero pase a 0 porque no quiero que se pase a -1 -2 -3 -4  ya que no requiero eso...

Ejem:

 

TextBox =  me dio un resultado 856,  Pero si el el resultado es -856  pase a 0   

espero su gran ayuda

Featured Replies

publicado
Private Sub TextBox1_Change()
On Error Resume Next
if CDbl(TextBox1) < 0 then TextBox1=0
End Sub

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.