SENTENCIA RETURN MASTER
Publicado por Daniela (9 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...
(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


0