Por favor alguien que me ayude please!!!!
Publicado por Viviana Silva (3 intervenciones) el 30/01/2007 16:44:18
hola tengo un problema que aun no soluciono estoy realizando un modulo de seguridad y me da errror de incompatibilidad, este es el codigo que estoy utilizando actualmente:
If C=3 then
messagebox ("ERROR,SE CERRARA EL SISTEMA, HASTA LUEGO!!!",0+48,"ERROR FATAL")
QUIT
ELSE
C=C+1
ENDIF
select usuario
go top
locate for Usuario.Clave=thisform.text2.value and Usuario.nombre=Thisform.combo1.value
if found()
*then
messagebox("Bienvenido a S.I.A.V.I")
else
messagebox("ERROR, POR FAVOR INTENTE NUEVAMENTE",0+48,"ERROR")
Thisform.combo1.value=""
Thisform.text2.value=""
Thisform.combo1.Setfocus()
ENDIF
Este es un programa que tengo que entregar en la universidad si no lo entrego em raspan la materia por favor ayudenme me estoy volviendo loca!!
de antemano gracias, saludos desde venezuela
If C=3 then
messagebox ("ERROR,SE CERRARA EL SISTEMA, HASTA LUEGO!!!",0+48,"ERROR FATAL")
QUIT
ELSE
C=C+1
ENDIF
select usuario
go top
locate for Usuario.Clave=thisform.text2.value and Usuario.nombre=Thisform.combo1.value
if found()
*then
messagebox("Bienvenido a S.I.A.V.I")
else
messagebox("ERROR, POR FAVOR INTENTE NUEVAMENTE",0+48,"ERROR")
Thisform.combo1.value=""
Thisform.text2.value=""
Thisform.combo1.Setfocus()
ENDIF
Este es un programa que tengo que entregar en la universidad si no lo entrego em raspan la materia por favor ayudenme me estoy volviendo loca!!
de antemano gracias, saludos desde venezuela
Valora esta pregunta
0