Ocultar Access al usuario salvo el formulario

Problema

Deseamos mostrar solamente un formulario, ocultando totalmente Access al usuario.

Solución

Utilizaremos como ejemplo la base de datos Neptuno.

Elegimos un formulario que deseamos mostrar —Panel de control principal— y crearemos un nuevo formulario —Formulario1— que estableceremos como formulario predeterminado al abrir la base de datos. Después es necesario añadir varias líneas de código en ambos formularios.

1. En el Formulario1, Clic con el botón secundario en el cuadrado situado en la esquina superior izquierda del formulario y seleccionamos: Generador de código.

O bien a través de la hoja de propiedades del formulario.

2. Se abrirá el editor de Visual Basic e introduciremos el siguiente código:

Option Explicit

 Const SW_HIDE = 0
 Const SW_NORMAL = 1
 Const SW_MINIMIZED = 2
 Const SW_MAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Open(Cancel As Integer)
   Call ShowWindow(hWndAccessApp, SW_HIDE)
   DoCmd.OpenForm "Panel de control principal", windowmode:=acDialog
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim lngRetCode As Long
   lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)
End Sub

El código anterior al abrir el formulario predeterminado —Formulario1— esconde la ventana de Access y abre el formulario que deseamos mostrar: Panel de control principal. Al descargar restablecemos la ventana.
3. En el formulario que deseamos mostrar en nuestro ejemplo —Panel de control principal— repetimos los pasos anteriores y copiamos el siguiente código.

Private Sub Form_Unload(Cancel As Integer)
   Application.Quit
End Sub

Con la línea anterior al cerrar el formulario que mostramos —Panel de control principal también cerramos el Access evitando que se siga ejecutando en un segundo plano.
4. Guardamos los cambios en el formulario y cerramos el Access

Al volver a abrir este fichero de Access mostrará solamente el formulario Panel de control principal, quedando oculta tanto la cinta de opciones como el panel de exploración. Si deseamos tener acceso normal a este fichero, mantenemos presionada la tecla Mayús mientras abrimos el mismo.

Referencias

• ShowWindow function