Hola a todos, estoy con un proyecto en donde tengo un login (user y pass) y un form principal, este sistema funciona con una DB access2000.
Les comento mi dilema: Puedo acceder al sistema a la perfeccion y trebajar en el, en tema aqui esta en que ahora tengo que limitar el acceso a ciertas funciones del sistema, segun el departamento del usuario, por lo que en mi db en la tabla de usuarios tengo una columna DEFAULTDEPTID (en donde almaceno el ID del departamento al que pertenece el usuario), la idea es que todos aquellos usuarios del departamento 4 no puedan ver ciertas funciones.
Por lo que en mi form principal a la hora de cargar agrege lo siguiente (espero este bien mi codigo):
Código:
If strDept = "4" Then
repconta(0).Enabled = False
repadmin(1).Enabled = False
Contadores.Enabled = False
Administrativos.Enabled = False
End If
La idea es que en strDept se guarde el id del departamento al que pertenece el usuario, esta es una variable global que tengo definida en un modulo
Mi idea es que cuando el usuario ingrese al sistema, este guarde el dato (en mi variable global strDept), de a que departamento pertenece y por ende si pertenece al departamento 4, cuando cargue mi form principal, este me bloquee los botones y funciones de menu
les dejo el codigo de mi boton ok del form de login para que lo puedan ver
Código:
Private Sub cmdOK_Click()
Dim mensaje As String
Me.usuarios.Recordset.MoveFirst
Me.usuarios.Recordset.Find "NAME = '" & txtUser.Text & "'"
If Me.usuarios.Recordset.EOF Then
mensaje = MsgBox("El Nombre de Usuario no es Correcto!", vbExclamation, "Atencion")
txtUser.SetFocus
SendKeys "{home}+{end}"
ElseIf usuarios.Recordset!mverifypass = txtPass.Text Then
mensaje = MsgBox("¡Bienvenido!", vbInformation, "RptACS")
strUsuario = Trim(txtUser.Text)
Unload Me
VisorRPT.Show
Else
mensaje = MsgBox("La clave no es correcta", 0 + 16, "Atencion")
txtPass.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub