pierde el cursor
Publicado por fenix (47 intervenciones) el 02/09/2008 19:08:30
Saludos a tod@s.
Tengo un texbox donde quiero capturar datos solo numericos y que si no hay acepte vacio. Mi problea es que si ingresan datos no numericos muestra el mensaje pero se pierde el cursor solo en ese campo hasta que se digita un datos valido. Por eso he agregado el cambio de color pero no es lo correcto.
Este es el codigo que utilizo, espero me puedan ayudar.
Private Sub TextBox10_Change()
If Not TextBox10 = "" Then
If Not IsNumeric(TextBox10) Then
TextBox10.BackColor = RGB(255, 0, 0)
MsgBox ("Este Campo debe ser un Dato Numerico")
TextBox10 = ""
TextBox10.SetFocus
Cancel = True
Else
TextBox10.BackColor = RGB(255, 255, 255)
End If
End If
End Sub
Por la ayuda que me brinden Gracias.
Tengo un texbox donde quiero capturar datos solo numericos y que si no hay acepte vacio. Mi problea es que si ingresan datos no numericos muestra el mensaje pero se pierde el cursor solo en ese campo hasta que se digita un datos valido. Por eso he agregado el cambio de color pero no es lo correcto.
Este es el codigo que utilizo, espero me puedan ayudar.
Private Sub TextBox10_Change()
If Not TextBox10 = "" Then
If Not IsNumeric(TextBox10) Then
TextBox10.BackColor = RGB(255, 0, 0)
MsgBox ("Este Campo debe ser un Dato Numerico")
TextBox10 = ""
TextBox10.SetFocus
Cancel = True
Else
TextBox10.BackColor = RGB(255, 255, 255)
End If
End If
End Sub
Por la ayuda que me brinden Gracias.
Valora esta pregunta
0