FoxPro/Visual FoxPro - SENTENCIA RETURN MASTER

   
Vista:

SENTENCIA RETURN MASTER

Publicado por Daniela (8 intervenciones) el 19/08/2009 21:23:34
HOLA: QUIERO QUE LOS CÓD DE CLIENTE DE MI TABLA, A TRAVÉS DE UN FORMULARIO NO SE REPITAN Y PUSE ESTAS LINEAS:

(EVENTO KEYPRESS DEL TEXT1)

if nkeycode=13
BUSCA=0
go top
SET ORDER TO IDCLIENTE (este es el indice)
BUSCA=THISFORM.PAGEFRAME1.PAGE1.TEXT1.VALUE
SEEK BUSCA
IF FOUND()
resp=Messagebox("El valor introducido ya se encuentra en la base de datos",256+16,"Error") (Hasta acá funciona bien solo que omite el error cuando le damos aceptar y pasa automáticamente al text2, el que sigue)
RETURN TO MASTER
endif
endif

ESPERO UNA RESPUESTA...
GRACIAS POR ANTICIPADO...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

SENTENCIA RETURN MASTER

Publicado por Mauricio (1367 intervenciones) el 19/08/2009 22:11:31
Daniela, prueba de esta manera:
if nkeycode=13
BUSCA=0
go top
SET ORDER TO IDCLIENTE (este es el indice)
BUSCA=THISFORM.PAGEFRAME1.PAGE1.TEXT1.VALUE
IF SEEK (BUSCA)
resp=Messagebox("El valor introducido ya se encuentra en la base de datos", 256 + 16,"Error")
RETURN .F.
endif
endif
SUERTE!!!!!!!!!!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar