Validar un cuadro de texto en el evento keypress
Deseo validar un cuadro de texto en el evento keypress para que no quede en blanco o vacío y siempre digitar algo...
Tengo algo así:
if nKeyCode = 13 and len(thsiform.nombres.valu=0) then
messagebox("Debe ingresar un dato")
Thisform. Nombres. Setfocus
Endif
Pero no me funciona me muestra el mensaje que debo ingresar datos pero me manda al siguiente cuadro de texto el setfocus no sirve ayuda urgente
Tengo algo así:
if nKeyCode = 13 and len(thsiform.nombres.valu=0) then
messagebox("Debe ingresar un dato")
Thisform. Nombres. Setfocus
Endif
Pero no me funciona me muestra el mensaje que debo ingresar datos pero me manda al siguiente cuadro de texto el setfocus no sirve ayuda urgente
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Intenta hacerlo en el evento LostFocus con algo similar a:
Return !Empty(This.Value)
o, si quieres algo más elaborado:
If Empty( This.Value )
MessageBox( "Se debe ingresar un dato" )
Return 0
Else
Return .T.
EndIf
Return !Empty(This.Value)
o, si quieres algo más elaborado:
If Empty( This.Value )
MessageBox( "Se debe ingresar un dato" )
Return 0
Else
Return .T.
EndIf
