Repeticiones
¿Hola qué tal? Tengo el siguiente código, el problema no es el código ya que anda bien sino que lo tengo que repetir muchas veces
Private Sub txt155_LOSTFOCUS()
If txt155.Text = "" Then txt155.Text = "0"
On Error GoTo error
If txt155.Text < 0 Or txt155.Text > 40 Then
GoTo error
End If
Exit Sub
error:
MsgBox mensaje, vbCritical, "Atención!!!"
txt155.SetFocus
txt155.SelStart = 0
txt155.SelLength = Len(Trim(txt155.Text))
End Sub
Esto lo tengo que repetir para unos cuantos textbox, que lo único que yo variaría es el nombre del textbox y que el puntero del mouse quede en el que tiro error al darle tab, osea al perder el foco.
¿Hay alguna forma que no sea repetir el código tantas veces como sea necesario?
Por ej los nombres de los textbox son txt155, ¿txt156 no hay nada que pueda hacer onda un ciclo que me varia el nombre de los textbox ya que estos finalizan con un numero?
Desde ya muchas gracias
JOrge.
Private Sub txt155_LOSTFOCUS()
If txt155.Text = "" Then txt155.Text = "0"
On Error GoTo error
If txt155.Text < 0 Or txt155.Text > 40 Then
GoTo error
End If
Exit Sub
error:
MsgBox mensaje, vbCritical, "Atención!!!"
txt155.SetFocus
txt155.SelStart = 0
txt155.SelLength = Len(Trim(txt155.Text))
End Sub
Esto lo tengo que repetir para unos cuantos textbox, que lo único que yo variaría es el nombre del textbox y que el puntero del mouse quede en el que tiro error al darle tab, osea al perder el foco.
¿Hay alguna forma que no sea repetir el código tantas veces como sea necesario?
Por ej los nombres de los textbox son txt155, ¿txt156 no hay nada que pueda hacer onda un ciclo que me varia el nombre de los textbox ya que estos finalizan con un numero?
Desde ya muchas gracias
JOrge.
1 respuesta
Respuesta de fvomaster
1