Access - cerrar menu emergente en acces

   
Vista:

cerrar menu emergente en acces

Publicado por manuel (1 intervención) el 21/11/2007 21:23:33
Necesito cerrar varios formularios abiertos en modo emergente, desde el ultimo abierto y no se como realizarlo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cerrar menu emergente en acces

Publicado por Enrique (1299 intervenciones) el 22/11/2007 20:41:13
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar