SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: Sergio Ray en Viernes 27 de Mayo de 2005, 17:03

Título: Problemas Con Lostfocus /setfocus
Publicado por: Sergio Ray en Viernes 27 de Mayo de 2005, 17:03
Hola a todos :
Podrian ayudarme con los Eventos LostFocus / y SetFocus.

Luego de completar un TxTFecha, si queda sin completar en el Evento Lost focus
pogo lo siguiente.

If Empty(Thisform.TxtFecha)
Messagebox(Eerror Completar")
Thisform.TxtFecha.Set focus
endif

Pero no regresa a ese objeto, que debo estar haciendo mal ?
Porfi Ayuda No Puedo Seguir porque no me pueden quedar campos sin completar.

Pero si pongo en el Objeto siguiente en el Evento When , si lo hace por Que?

Muchisimas gracias.

PD Si no contesto algunas preguntas es porque recien comienzo con VFP
Título: Re: Problemas Con Lostfocus /setfocus
Publicado por: Cyclop en Miércoles 1 de Junio de 2005, 22:14
Esto lo tienes que controlar en el evento valid

Código: Text
  1. If Empty(Thisform.TxtFecha)
  2.    Messagebox(Eerror Completar")
  3.    Return .F.
  4. Endif
  5.  
  6. Return .T.
  7.  
  8.  

Salu2

Cyclop

 B)
Título: Re: Problemas Con Lostfocus /setfocus
Publicado por: the_punch64 en Viernes 1 de Julio de 2005, 20:37
&&pon este codigo en el evento Valid del TextBox

If !Empty(this.value)
    Return .T. && si hay algun valor
else
    Return .F. && no introdujo ningun valor
Endif