Visual Basic - TextBox

Life is soft - evento anual de software empresarial
   
Vista:

TextBox

Publicado por Antonio Belando (93 intervenciones) el 04/03/2009 16:14:00
En el siguiente código controlo que la cantidad a deducir no sea mayor que la existente.
Y si es mayor devuelve el foco al mismo TextBox.

If CantOT.Text > TAlm("Existen") Then
MsgBox "No existe tanto material.", vbInformation
CantOT.SetFocus
End If

Pues resulta que si pongo la misma cantidad que existe, me sale el mensaje de que no existe tanto material y a continuación se salta al siguiente TextBox, haciendo caso omiso a “CantOT.SetFocus”

Espero vuestra ayuda.
Saludos cordiales.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:TextBox

Publicado por Antonio (93 intervenciones) el 04/03/2009 17:00:18
Me respondo:

If Val(CantOT.Text) > TAlm("Existen") Then
MsgBox "No existe tanto material.", vbCritical
CantOT.Text = Format(0, "##,###.00")
Cancel = True
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar