Para esto, requerimos de un formulario al cual le damos las instrucciones para que esconda el Access y ejecute en seguida el menú.

Pasos a seguir:
1. Propiedades Formulario (Todos los formularios)
   1. Emergente: Sí
   2. Modal: Sí
   3. Centrado automático: Sí
   4. Estilo de los bordes: Diálogo
2. Formulario de inicio
   1. Propiedades Formulario
      1. Título: INICIO
      2. Al abrir: [Procedimiento de evento]

'Borramos todo el contenido y copiamos lo siguiente
Option Compare Database
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 "NOMBRE-DEL-FORMULARIO-MENU-PRINCIPAL", windowmode:=acDialog
End Sub

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

3. Menú Archivo ⟿ Opciones ⟿ Base de datos actual ⟿ Opciones de la aplicación ⟿ Mostrar formulario ⟿ Buscamos el formulario que acabamos de hacer
4. En el formulario MenúPrincipal
   1. Botón de comando
      1. Nombre: SalirDeAplicacion
      2. Título: Salir de la aplicación
      3. Al hacer clic: [Procedimiento de evento]

Private Sub SalirDeAplicacion_Click()
	Application.Quit
End Sub

CONTENIDO