FoxPro/Visual FoxPro - ¿COMO EVITAR QUE APAREZCA UN MSG EN EL LOTFOCUS?

HOLA AMIGOS DE LA LWP

ESTOY CREANDO UN FORM DE MODIFICACION DE CLAVES DE USUARIO.

ESCRIBO ESTE CODIGO EN EL EVENTO LOSTFOCUS DE UN TXT,

PUBLIC cClave
cClave= ALLTRIM(thisform.txtClave.Value)

thisform.revela_clave
SELECT usuarios
IF ALLTRIM(cClave) == ALLTRIM(cRevela_clave)
thisform.txtClave_nueva.SetFocus
ELSE
m=MESSAGEBOX("Usuario no encontrado", 0+16, "Datos incorrectos")
thisform.txtClave.SetFocus
ENDIF

CUANDO LE DOY CLIC EN OTRA PARTE, ALGUNAS VECES ME LANZA UN MSG DE LA CONDION "Usuario no encontrado",

COMO HAGO PARA EVITAR ESTO, EN QUE METODO PODRE HACERLO MEJOR, O ALGUNA FORMA PARA HACERLO ASI MISMO, PERO QUE NO LANZE LO MISMO?

SALUDES Y 1000 GRACIAS

Prueba lo siguiente

en el Init del Form pon una variable publica ejemplo

vEntro= .f.

luego en el GostFocus del TXT

vEntro=.t.

luego en el LostFocus del TXT

PUBLIC cClave
cClave= ALLTRIM(thisform.txtClave.Value)

thisform.revela_clave
SELECT usuarios
IF ALLTRIM(cClave) == ALLTRIM(cRevela_clave)
thisform.txtClave_nueva.SetFocus
ELSE
if vEntro
m=MESSAGEBOX("Usuario no encontrado", 0+16, "Datos incorrectos")
endif
thisform.txtClave.SetFocus
ENDIF


Suerte

muchas gracias Enrique, voy a probar luego te aviso

No funciona aun.

Saludes

Helder, haz parte de tu codigo en el evento VALID.
Es una sugerencia nada mas!!!!!!!!!!!!!!
Saludos amigo!!!!!!!!!1

GRACIAS AMIGOS, EVITE PONER EL MSG MEJOR, PARA QUE NO ME LANZE EL MSG.

SALUDES
GRACIAS A TODOS!!!!!!!!!!!

Yo siempre cuando escribo un codigo en el Valid u otro Evento...siempre antes de cualquier cosa escribo un Empty() para que si el usuario decide no escribir nada, no se ejecute algun codigo..

Ejemplo:

If empty(Thisform.txtClave.value)
else

PUBLIC cClave
cClave= ALLTRIM(thisform.txtClave.Value)


thisform.revela_clave
SELECT usuarios
IF ALLTRIM(cClave) == ALLTRIM(cRevela_clave)
thisform.txtClave_nueva.SetFocus
ELSE
m=MESSAGEBOX("Usuario no encontrado", 0+16, "Datos incorrectos")
thisform.txtClave.SetFocus
ENDIF
endif


Suerte