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.
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"
Antes
Después
Si pulsamos el botón "Mostrar"
Antes
Después
Si pulsamos el botón "Bloquear"
Antes
Después
Finalmente, si pulsamos el botón "Desbloquear"
Antes
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
Enviar un comentario
Últimas publicaciones
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.
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.CountCommandBars(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.