Validar Datos en TAbla
Publicado por Osmin (10 intervenciones) el 15/06/2012 23:13:17
Aplico este codigo para no acepte registros; por ejemplo.
00000001 2011
00000001 2011
00000002 2012
00000002 2012
Debe de aceptar registros.
00000001 2011
00000002 2011
00000001 2012
00000002 2012
Pero este codigo no me funciona.
Evento LosFocus del Text
LOCAL cCadena
cCadena = 0
SELECT Inscripcion
cCadena=ALLTRIM(STR(Lec))+ Nie
nlFound=SEEK(ALLTRIM(cCadena),"Inscripcion","anolec")
If nlFound
=MessageBox("Registro ya existe",64,"Error")
RETURN
ELSE
Endif
00000001 2011
00000001 2011
00000002 2012
00000002 2012
Debe de aceptar registros.
00000001 2011
00000002 2011
00000001 2012
00000002 2012
Pero este codigo no me funciona.
Evento LosFocus del Text
LOCAL cCadena
cCadena = 0
SELECT Inscripcion
cCadena=ALLTRIM(STR(Lec))+ Nie
nlFound=SEEK(ALLTRIM(cCadena),"Inscripcion","anolec")
If nlFound
=MessageBox("Registro ya existe",64,"Error")
RETURN
ELSE
Endif
Valora esta pregunta
0