Ayuda con permisos.
Publicado por Pablo (9 intervenciones) el 17/06/2012 12:54:13
Tengo un formulario en el que hay dos campos check box, que sirven para validar el resto de la información del registro. Un visto bueno, vamos.
Quiero restringir el acceso a esos check boxes en función del usuario que abra la aplicación.
El usuario lo leo del sistema.
Los permisos de una tabla de permisos.
Lo he puesto en un evento al abrir el formulario y me da error: "Se requiere un objeto"
El código que uso es éste:
Private Sub Form_Open(Cancel As Integer)
Dim usuario As String
Dim permiso As Boolean
Dim ctrl As Control
Set usuario = NombreUsuario 'NombreUsuario es la función que me da el usuario del sistema.
Set ctrl = Forms!ejemplo_form!Validado
Set permiso = dbúsq("[permiso]", "permisos", "usuario = " & usuario)
If permiso = False Then
ctrl.enable = False
End If
¿Que tengo que hacer, definir primero el escenario, es decir, la base de datos, el formulario...?
Quiero restringir el acceso a esos check boxes en función del usuario que abra la aplicación.
El usuario lo leo del sistema.
Los permisos de una tabla de permisos.
Lo he puesto en un evento al abrir el formulario y me da error: "Se requiere un objeto"
El código que uso es éste:
Private Sub Form_Open(Cancel As Integer)
Dim usuario As String
Dim permiso As Boolean
Dim ctrl As Control
Set usuario = NombreUsuario 'NombreUsuario es la función que me da el usuario del sistema.
Set ctrl = Forms!ejemplo_form!Validado
Set permiso = dbúsq("[permiso]", "permisos", "usuario = " & usuario)
If permiso = False Then
ctrl.enable = False
End If
¿Que tengo que hacer, definir primero el escenario, es decir, la base de datos, el formulario...?
Valora esta pregunta


0