Control de pestañas en Access

Tengo el siguiente código para que una vez ingrese usuario y contraseña me dirija al formulario "Menú principal". Lo que quiero es que una vez ingrese, según el usuario me lance a una determinada página del control de pestañas...

Para el usuario 1 la página 2,

Para el usuario 2 la página 1

Para el usuario 3 la página 0

 
        If UserLevel = 1 Then
        LogedUser = Me.txtUsuario.Value
        DoCmd.Close
        DoCmd.OpenForm "MENÚ_PRINCIPAL"                   
        Else
        If UserLevel = 2 Then
        LogedUser = Me.txtUsuario.Value
        DoCmd.Close
        DoCmd.OpenForm "MENÚ_PRINCIPAL"
        Else
        If UserLevel = 3 Then
        LogedUser = Me.txtUsuario.Value
        DoCmd.Close
        DoCmd.OpenForm "MENÚ_PRINCIPAL"
        

1 respuesta

Respuesta
1

Así lo resuelves (poniendo el nombre de tu control pestañas en vez de NombreControlPestañas):

      If UserLevel = 1 Then
        LogedUser = Me.txtUsuario.Value
        DoCmd.Close
        DoCmd.OpenForm "MENÚ_PRINCIPAL"  
        Forms("MENÚ_PRINCIPAL").NombreControlPestañas=2         
      ElseIf UserLevel = 2 Then
        LogedUser = Me.txtUsuario.Value
        DoCmd.Close
        DoCmd.OpenForm "MENÚ_PRINCIPAL"
        Forms("MENÚ_PRINCIPAL").NombreControlPestañas=1   
      ElseIf UserLevel = 3 Then
        LogedUser = Me.txtUsuario.Value
        DoCmd.Close
        DoCmd.OpenForm "MENÚ_PRINCIPAL"
        Forms("MENÚ_PRINCIPAL").NombreControlPestañas=0
      End If
        

o así (si tus pestañas se llaman Página1, Página2...)

If UserLevel = 1 Then
   LogedUser = Me.txtUsuario.Value
   DoCmd.Close
   DoCmd.OpenForm "MENÚ_PRINCIPAL" 
   Forms("FPestañas").[Página3].SetFocus
ElseIf UserLevel = 2 Then
   LogedUser = Me.txtUsuario.Value
   DoCmd.Close
   DoCmd.OpenForm "MENÚ_PRINCIPAL"
   Forms("FPestañas").[Página2].SetFocus
ElseIf UserLevel = 3 Then
   LogedUser = Me.txtUsuario.Value
   DoCmd.Close
   DoCmd.OpenForm "MENÚ_PRINCIPAL"
   Forms("FPestañas").[Página1].SetFocus
End If

Un saludo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Contar los registros en formulario con un valor de cero

Como digo en la pregunta es posible contar los registros con un valos cero, y si es así cual es la instrucción para ello. ¿Algún experto me puede ayudar. A parte de esto cuando quiero ebaular alguna respuesta se produce error no se si les ecurre a...
2 respuestas

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
4 respuestas

How much does it cost to hire a professional app developer Dubai

Hello! If you have finally decided to have an app for your business, you need to look for a TOP MOBILE APP DEVELOPMENT AGENCY DUBAI. It doesn't matter if you are creating an app from scratch or re-launching the pre-existing one. You need to hire a...
11 respuestas

Puedo utilizar más de 258 caracteres en la instrucción DoCmd. ¿RunSQL?

Estoy utilizando un formulario de una tabla y quisiera que parte de esos datos se traspasaran a otra tabla, pero resulta que hasta ahora lo he hecho pero quiero traspasar más datos y la instrucción es tan grande que no la admite, ¿Se puede ampliar...
4 respuestas

Sumar en formulario inportes pagados he inportes pendientes

Tengo un formulario con una serie de cantidades unas pagadas y otras pendientes y casillas de verificación donde se marcan unas y otras, lo que pretendo hacer es sumar por un lado las pagadas y por otro las pendientes pero no se como hacerlo, hacer...
3 respuestas

Extraer de campo fecha el mes

Necesito el código para extraer de un capo fecha el mes en letra para insertarlo en otro campo se que no sera difícil pero la verdad no lo se mientras gracias por su ayuda
2 respuestas

Cómo hacer que no divida las secciones cuando se imprime el informe

Tengo un informe en ACCESS de clientes agrupados por provincias. Sé como hacer que cada provincia y el listado de clientes vayan cada una en una página (dándole a forzar nueva página después del pie de la sección). Pero yo quiero que todas las...
2 respuestas

Proteger el frontend para que no se puede correr en otro pc

Como dice la pregunta necesito que si instalo en un pc el FRONTEND no se pueda instalar en otro y en lo posible controlar el número de licencias. Agradezco a los expertos que me ayuden con esta inquietud.
2 respuestas

Introducir el valor que yo quiera en cuadro combinado si la casilla de verificación esta activada o desactivada.

Estoy modificando algunos documentos antiguos y actualizándolos, no soy ningún experto. Quiero saber si es posible que cuando en una casilla de verificación esta activada o desactivada fuera posible que en el informe que tengo con diferentes cuadros...
3 respuestas