Ricardo contreras

Hola

Prueba con :

If empty(this.Value)
return 0
Endif

Sin embargo, no te dejará salir del control ni cerrar el formulario hasta
que introduzcas un valor.


Pedro José Hernández Muñoz

blog: http://pedrohdz.blogspot.com/atom.xml




"SetFocus" escribió en el mensaje
news:085d01c4a23b$2aeb2440$

Hola foro

Amigos como valido que cuando el usuarios digite una
fecha no lo haga en blanco...

El la opcion valid le estoy diciendo asi..:
If empty(this.Value)
Thisform.Text6.Setfocus
Endif
Y me arroja un error


Ayuda plisss

gracias...

Hola SetFocus: No se permite el método tocayo tuyo :-) en el evento Valid

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"SetFocus" escribió en el mensaje
news:085d01c4a23b$2aeb2440$

Hola foro

Amigos como valido que cuando el usuarios digite una
fecha no lo haga en blanco...

El la opcion valid le estoy diciendo asi..:
If empty(this.Value)
Thisform.Text6.Setfocus
Endif
Y me arroja un error


Ayuda plisss

gracias...

Valida la respuesta de Pedro, pero si te parece bien, puedes crear un metodo
de validacion de controles, que se usa antes de grabar por ejemplo y que al
notar que el control esta vacio, mande un mensaje al usuario al control, asi
como los formularios que se llenan en con datos personales en internet, que
cuando el das submit, si te falta algo, te dice que es y te mandan al
control.



Procedure RevisaControles && Metodo del Formulario

If Empty(Thisform.txtFecha.Value)
MEssageBox('Falta la fecha', 0+48, 'AVISO !!')
Thisform.txtFecha.SetFocus
return .f.
EndIf


Procedure Click && Boton grabar
If Thisform.RevisaControles = .t.
*** Graba
Endif


Saludos hermano zorro




"SetFocus" escribió en el mensaje
news:085d01c4a23b$2aeb2440$

Hola foro

Amigos como valido que cuando el usuarios digite una
fecha no lo haga en blanco...

El la opcion valid le estoy diciendo asi..:
If empty(this.Value)
Thisform.Text6.Setfocus
Endif
Y me arroja un error


Ayuda plisss

gracias...