RE:cerrar menu emergente en acces
En el Evento Click de un botón de comando situado en el último formulario que se abra, utiliza uno de estos dos Procedimientos de Evento:
Para cerrar TODOS los formularios abiertos.
Private Sub Comando1_Click()
Dim NroForm As Integer
For NroForm = 0 To Forms.Count-1
DoCmd.Close acForm, Forms(0).Name
Next
Para cerrar TODOS los formularios excepto el primero que se abra. En el caso de que solo esté abierto el que tiene este Evento Click, NO se cierra.
Private Sub Comando1_Click()
Dim NroForm As Integer
For NroForm = 2 To Forms.Count
DoCmd.Close acForm, Forms(1).Name
Next
Este último Evento puede servir para impedir que se cierre tambien el Formulario de Inicio de la aplicación, por ejemplo.
Saludos