Ayuda por Favor con el evento VALID !!
Publicado por Ernesto Rodríguez (61 intervenciones) el 17/10/2002 01:59:57
Tengo una textbox con el siguiente codigo en el evento VALID:
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING,5,ALIAS())
gcregactual=RECNO()
KEY=THISFORM.combo1.VALUE+THISFORM.txtcodcuenta.VALUE
SELECT cuentas
SET ORDER TO codcuenta
SEEK KEY
IF FOUND() AND RECNO()<>gcregactual
=MESSAGEBOX("El codigo ya existe en este Banco",48,"ATENCION")
RETURN 0
ENDIF
Y funciona muy bien, porque con el RETURN 0 no permita avanzar,
pero si el usuario borra lo que ha escrito y vuelve a digitar el
codigo repetido, en esta segunda ocasión si lo deja pasar a
la siguiente texbox.
Que le pasa al EVENTO VALID que solo lo verifica una vez ?
Gracias.
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING,5,ALIAS())
gcregactual=RECNO()
KEY=THISFORM.combo1.VALUE+THISFORM.txtcodcuenta.VALUE
SELECT cuentas
SET ORDER TO codcuenta
SEEK KEY
IF FOUND() AND RECNO()<>gcregactual
=MESSAGEBOX("El codigo ya existe en este Banco",48,"ATENCION")
RETURN 0
ENDIF
Y funciona muy bien, porque con el RETURN 0 no permita avanzar,
pero si el usuario borra lo que ha escrito y vuelve a digitar el
codigo repetido, en esta segunda ocasión si lo deja pasar a
la siguiente texbox.
Que le pasa al EVENTO VALID que solo lo verifica una vez ?
Gracias.
Valora esta pregunta


0