Ocultar y bloquear el panel de navegación de Access usando VBA

Escrito por Administrador

21 de febrero de 2023

Hoy voy a explicaros cómo ocultar el panel de navegación de Microsoft Access usando VBA. También cómo bloquearlo, ya que es posible que con esa opción os sea suficiente. Es una cuestión que me ha planteado hace unos días un usuario a través de los comentarios, y no quería que cayese en el olvido.

He montado un pequeño formulario con las cuatro opciones relativas al panel de navegación: ocultar, mostrar, bloquear y desbloquear.

saber-usuarios-conectados-base-datos

A continuación, os muestro el código que acompaña a cada botón,

Private Sub Ocultar_Click()

'Ocultar panel de navegación

Access.Application.DoCmd.SelectObject acForm, Me.Name, True
Access.Application.DoCmd.RunCommand acCmdWindowHide

End Sub

Private Sub Mostrar_Click()

'Mostrar panel de navegación

Access.Application.DoCmd.SelectObject acForm, Me.Name, True

End Sub

Private Sub Bloquear_Click()

'Bloquear panel de navegación

DoCmd.LockNavigationPane (True)

End Sub

Private Sub Desbloquear_Click()

'Desbloquear panel de navegación

DoCmd.LockNavigationPane (False)

End Sub

Voy a mostraros qué sucede en cada caso, con una imagen del antes y el después.

Si pulsamos el botón "Ocultar"

saber-usuarios-conectados-base-datos

Antes

saber-usuarios-conectados-base-datos

Después

Si pulsamos el botón "Mostrar"

saber-usuarios-conectados-base-datos

Antes

saber-usuarios-conectados-base-datos

Después

Si pulsamos el botón "Bloquear"

saber-usuarios-conectados-base-datos

Antes

saber-usuarios-conectados-base-datos

Después

Finalmente, si pulsamos el botón "Desbloquear"

saber-usuarios-conectados-base-datos

Antes

saber-usuarios-conectados-base-datos

Después

Espero que con estas sencillas líneas de código hayas aprendido a ocultar el panel de navegación de Microsot Access usando VBA.

Por último, invitarte a compartir tus dudas en los comentarios o en el foro, y a darle clic a la publicidad de abajo para ayudarme a seguir creando contenido.

Hasta la próxima.

Descarga el archivo del ejemplo

Por favor, haz clic en el anuncio y ayúdame a seguir creando contenido. Solo te lleva un segundo 😉



2 Comentarios

  1. Avatar

    Hola! Primera vez en el sitio y me gusta.
    Puede poner un ejemplo para activar o prohibir el diseño de todos los objetos (o por tipo de objeto) con codigo VB desde un boton.

    Responder
    • Avatar

      Hola Guillermo!

      Para ocultar el menú contextual en toda la BBDD, usa el siguiente código en un botón,

      For i = 1 To CommandBars.Count
      CommandBars(i).Enabled = False
      Next i

      Para hacerlo manera individual (por objeto) coloca este otro código en el objeto donde desees ocultar el menú contextual,

      Private Sub Form_Open(Cancel As Integer)
      Me.ShortcutMenu = False
      End Sub

      Espero haberte ayudado.

      Saludos.

      Responder

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

marzo 2023
L M X J V S D
 12345
6789101112
13141516171819
20212223242526
2728293031  

Debates en el foro

Avatar
Cuadro de texto

Contacto