controlar accesos de usuarios al sistema

02/07/2003 - 17:37 por leonardo | Informe spam
como puedo controlar el acceso por el menu a los distintos modulos
por ejemplo lo que tengo es lo siguiente:

If quien_nivel <> "1" Or quien_nivel <> "2" Then ' VALIDACION DE USUARIO
MsgBox "USUARIO NO AUTORIZADO PARA ESTE MODULO", vbCritical, "ATENCION"
Unload Me
Exit Sub
End If

esto lo tengo en el FORM LOAD de mi formulario, pero cuando es correcto
muestra el MSGBOX y posterior me arroja un error "364"

"se ha descargado el Objeto" no se como solucionarlo.

a todos muchas gracias.
 

Leer las respuestas

#1 Jesus Valentin Millan Valdez
02/07/2003 - 19:01 | Informe spam
leonardo escribió:
como puedo controlar el acceso por el menu a los distintos modulos
por ejemplo lo que tengo es lo siguiente:

If quien_nivel <> "1" Or quien_nivel <> "2" Then ' VALIDACION DE USUARIO
MsgBox "USUARIO NO AUTORIZADO PARA ESTE MODULO", vbCritical, "ATENCION"
Unload Me
Exit Sub
End If

esto lo tengo en el FORM LOAD de mi formulario, pero cuando es correcto
muestra el MSGBOX y posterior me arroja un error "364"

"se ha descargado el Objeto" no se como solucionarlo.

a todos muchas gracias.





Prueba de la siguiente manera:

option explicit
private Validacion as boolean

Private Sub Form_Activate()
If quien_nivel <> "1" Or quien_nivel <> "2" Then ' VALIDACION DE
USUARIO
MsgBox "USUARIO NO AUTORIZADO PARA ESTE MODULO", vbCritical,
"ATENCION"
Unload Me
End If
end sub

Private Sub Form_Load()
Validacion = False
end sub

Preguntas similares