problemas con contraseñas!!
Publicado por JUAN (1 intervención) el 24/05/2007 02:27:50
QUE TAL!!!
TENGO UN PROBLEMA CON UN FRM DE CONTRASEÑA EL PROBLEMA ES QUE DEBE DE HACER LA COMPARACION DE UN DATO INGRESADO, CON EL CAMPO DE UNA TABLA Y SI COINCIDE ME PERMITA INGRESAR LA CONTRASEÑA.
PERO SOLO COMPARA EL PRIMER REGISTRO, YA E ECHO UN REINDEX DE LA TABLA QUE OCUPO PERO NADA, SOLO TOMA EL NUMERO DE CONTROL Y CONTRASEÑA DEL PRIMER REGISTRO. SIN TOMAR EN CUENTA LOS DEMAS.
YA E INGRESADO EL CODIGO EN EL LOST FOCUS
IF SEEK(THIS.VALUE,"MI TABLA",2)
THISFORM.TXTCONTRA.ENABLED=.T.
THISFORM.TXTCONTRA.SETFOCUS
ELSE
MESSAGEBOX("DATO NO EXISTE...",48,"ERROR")
ENDIF
PERO NO FUNCIONA SOLO ME MUESTRA EL MSG DE "ERROR"
CON ESTO LES DIGO QUE SI INGRESO DATOS DEL SEGUNDO REGISTRO NO PERMITIRA EL ACCESO "CLARO AL MENOS QUE COMO YA MENCIONE INGRESE LOS DEL PRIMER REGISTRO"
NOTA: ESTOY TRABAJANDO EN FOXPRO 6.0
TENGO UN PROBLEMA CON UN FRM DE CONTRASEÑA EL PROBLEMA ES QUE DEBE DE HACER LA COMPARACION DE UN DATO INGRESADO, CON EL CAMPO DE UNA TABLA Y SI COINCIDE ME PERMITA INGRESAR LA CONTRASEÑA.
PERO SOLO COMPARA EL PRIMER REGISTRO, YA E ECHO UN REINDEX DE LA TABLA QUE OCUPO PERO NADA, SOLO TOMA EL NUMERO DE CONTROL Y CONTRASEÑA DEL PRIMER REGISTRO. SIN TOMAR EN CUENTA LOS DEMAS.
YA E INGRESADO EL CODIGO EN EL LOST FOCUS
IF SEEK(THIS.VALUE,"MI TABLA",2)
THISFORM.TXTCONTRA.ENABLED=.T.
THISFORM.TXTCONTRA.SETFOCUS
ELSE
MESSAGEBOX("DATO NO EXISTE...",48,"ERROR")
ENDIF
PERO NO FUNCIONA SOLO ME MUESTRA EL MSG DE "ERROR"
CON ESTO LES DIGO QUE SI INGRESO DATOS DEL SEGUNDO REGISTRO NO PERMITIRA EL ACCESO "CLARO AL MENOS QUE COMO YA MENCIONE INGRESE LOS DEL PRIMER REGISTRO"
NOTA: ESTOY TRABAJANDO EN FOXPRO 6.0
Valora esta pregunta
0