Programación General > Visual FoxPro

 Problemas Con Lostfocus /setfocus

(1/1)

Sergio Ray:
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

Cyclop:
Esto lo tienes que controlar en el evento valid


--- Código: Text ---If Empty(Thisform.TxtFecha)   Messagebox(Eerror Completar")   Return .F.Endif Return .T.  
Salu2

Cyclop

 B)

the_punch64:
&&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

Navegación

[0] Índice de Mensajes