Barra de herramientas personalizadas - usuarios
Hola expertos, les explico mi situación: he creado 3 barras personalizadas de herramientas (bar1, bar2, bar3), quisiera que al abrirse la aplicación se muestre una pantalla que solicite nombre de usuario y password, según el usuario logueado se cargue la barra de herramienta correspondiente. Y si no es mucho pedir, que la asignación de usuarios y passwords se puedan realizar vía formulario.
Gracias
Gracias
1 respuesta
Respuesta de Julián González Cabarcos
1
Todo depende de como quieres que pregunte. Vamos por partes. Supongamos que tienes una tabla Usuarios con Usuario, texto, Contraseña, texto y con máscara de entrada Password y Barra, texto, donde escribes la barra que le corresponde a cada uno. Pon como claves los campos Usuario y Contraseña.
Crea un formulario independiente y llámale, por ejemplo, Inicio. En él, crea dos cuadros de texto llamados Usuario y Contraseña, éste último con máscara de entrada Password. Crea un botón de comando y entre Private Sub y End Sub escribe
If DCount("usuario", "usuarios", "[usuario]=[forms]![inicio]![usuario] and [contraseña]=[forms]![inicio]![contraseña]") = 1 Then
Dim a
a = DLookup("barra", "usuarios", "[usuario]=[forms]![inicio]![usuario] and [contraseña]=[forms]![inicio]![contraseña]")
DoCmd. OpenForm "El que quieres que abra"
DoCmd. ShowToolbar a, acToolbarYes
Else
MsgBox "Algo está equivocado pero no te lo voy a decir "
End If
Así, si acierta el usuario se abrirá el formulario que sea con la barra que le corresponda en la tabla, y si no acierta, el mensaje.
Hay más formas, pero como ya te digo todo depende de como quieres que te lo pregunte, si por inputbox, etc.
Crea un formulario independiente y llámale, por ejemplo, Inicio. En él, crea dos cuadros de texto llamados Usuario y Contraseña, éste último con máscara de entrada Password. Crea un botón de comando y entre Private Sub y End Sub escribe
If DCount("usuario", "usuarios", "[usuario]=[forms]![inicio]![usuario] and [contraseña]=[forms]![inicio]![contraseña]") = 1 Then
Dim a
a = DLookup("barra", "usuarios", "[usuario]=[forms]![inicio]![usuario] and [contraseña]=[forms]![inicio]![contraseña]")
DoCmd. OpenForm "El que quieres que abra"
DoCmd. ShowToolbar a, acToolbarYes
Else
MsgBox "Algo está equivocado pero no te lo voy a decir "
End If
Así, si acierta el usuario se abrirá el formulario que sea con la barra que le corresponda en la tabla, y si no acierta, el mensaje.
Hay más formas, pero como ya te digo todo depende de como quieres que te lo pregunte, si por inputbox, etc.
