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, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

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

febrero 2024
LMXJVSD
 1234
567891011
12131415161718
19202122232425
26272829 

Debates en el foro

Avatar
Access en una sola ventana
Avatar
Versiones frontend

Contacto