FoxPro/Visual FoxPro - UNA AYUDA POR FAVOR CON UN CODIGO!!!!!

hola amigos como estan, miren lo que pasa es que tengo un problema con un codigo que hice, en el evento lostfocus de el objeto ctClave, lo programe para que no se repitieran las claves, y que si la encontraba que le dijera que la clave existe, pero solo me lo hace la primera vex que lo ejecuto, y a la segunda ya no me busca si existe o no la clave no se por que, y tengo que volverlo a ejecutar para que me identifique que la clave que introduje anterior mente existe ya en la BD.
miren este es el codigo de mi objeto:

select papeleria

set order to icvepap
with thisform

SEEK .ctClave.value
if found()
wait window "NO PROCEDE, CLAVE EXISTENTE" timeout 3
.ctClave.value=space(10)
.bcLimpiar.lostfocus
endif

espero me puedan ayudar con mi duda, de antemano muchisimas gracias.

Saludos
Erick
endwith

Amigo Erick..yo utizo este codigo pero en el Evento 'VALID' y me da buen resultado..!!

if not empty(this.value)
seek alltrim(This.value)
if found()
messagebox("Ya Existe",16)
RETURN 0
endif
endif

NO ME SIRVIO EL CODIGO ANTERIOR, DEBIDO A QUE DESPUES NO ME DEJABA HACER NADA POR QUE CON CADA CLICK ME DECIA QUE LA CLAVE YA EXISTIA.

Y NECESITO QUE NO HAGA ESO, SI NO QUE ME PERMITA INTERECTUAR CON L VENTANA VARIAS VECES.

SALUDOS,
ERICK

hola:
necesito saber que son los iconos ,botones y variables del messagebox.

puedes usar el evento KEYPRESS

if nkeycode=13 && enter
select 1
seek clave
if found()
wait "ya existe esta clave..." window
thisform.text1.value=0
thisform.text1.setfocus
endif
endif

pero lo mejor es usar VALID
en fin ... espero que te sirva
cualquier cosa...mandame un mail
saludos desde veracruz, ver. mexico

tu codigo esta bien lo que debes hacer es enviar el cursor de la tabla al primer registro para que al momento de realizar la busqueda de nuevo comienze por el primero. así como lo tienes realiza la busqueda por donde quedo, por ejemplo tienes una tabla con 10 registros y realizastes una primera busqueda y encontro lo que buscabas en el registro 5, pues el cursor se queda situado en ese registro cuando intentes realizar la siguiente busqueda este continuara desde ese registro hasta llegar al final, si no lo encuentra no hace nada, eso es lo que te esta pasando...

esta es una correción de tu codigo. implementalo y me avisas si te funciono.

select papeleria

set order to icvepap

with thisform
SEEK .ctClave.value
if found()
wait window "NO PROCEDE, CLAVE EXISTENTE" timeout 3
.ctClave.value=space(10)
.bcLimpiar.lostfocus
go top
return 0
endif

Espero que te funcione


Edgar Zambrano
Programador VFP6
[email protected]
Soledad - Atlántico - Colombia