** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Utilidad para ocultar y mostrar forms abiertos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoUtilidad para ocultar y mostrar forms abiertos

 Responder Responder
Autor
Mensaje
pascual14 Ver desplegable
Asiduo
Asiduo


Unido: 30/Junio/2014
Localización: madrid
Estado: Sin conexión
Puntos: 499
Enlace directo a este mensaje Tema: Utilidad para ocultar y mostrar forms abiertos
    Enviado: 10/Agosto/2015 a las 18:41
Hola amigos, hace unos días os preguntaba por la manera de ocultar todos los forms abiertos de golpe para luego abrir un report y tras cerrar el report volver a mostrar todos los ocultos. Pues después de investigar y probar ya he conseguido hacerlas. Os las muestro por si alguien las necesita. En la utilidad de mostrar los ocultos evito que un formulario que se llama frmInicioOculto que lo abro al iniciar la aplicación para hacer tareas en segundo plano se muestre también.
La única pega que tiene y que quizás alguien sepa si se puede solucionar es que si el formulario que abre el report esta abierto con el parámetro acDialog luego no lo muestra, y no se por que. Es decir los dialogos los oculta pero luego no los puede mostrar, pero solo el último que se ha abierto, si hay mas por debajo si que los muestra. Una cosa muy rara.
Gracias



Public Sub OcultarFormsAbiertos()
   ' Recorremos toda la colección de forms y si tenemos un form cargado lo ocultamos
   Dim accForm As AccessObject
   For Each accForm In Application.CurrentProject.AllForms
      If CurrentProject.AllForms(accForm.Name).IsLoaded Then
         Forms(accForm.Name).visible = False
      End If
   Next accForm
End Sub

Public Sub MostrarFormsOcultos()
   ' Recorremos toda la colección de forms y si tenemos un form cargado lo mostramos
   Dim accForm As AccessObject
   For Each accForm In Application.CurrentProject.AllForms
      If CurrentProject.AllForms(accForm.Name).IsLoaded Then
         If accForm.Name <> "frmInicioOculto" Then
            Forms(accForm.Name).visible = True
         End If
      End If
   Next accForm
End Sub

Arriba
pascual14 Ver desplegable
Asiduo
Asiduo


Unido: 30/Junio/2014
Localización: madrid
Estado: Sin conexión
Puntos: 499
Enlace directo a este mensaje Enviado: 18/Agosto/2015 a las 19:12
Hoal de nuevo amigos, no he conseguido saber por que no me muestra los forms abiertos con acdialog, la solucion que he tomado pues no abrir los forms con acDialog. 
Espero que os sirvan las funciones de arriba.
Gracias
podeis cerrar el hilo

Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5755
Enlace directo a este mensaje Enviado: 18/Agosto/2015 a las 19:17
Hola!

Creo que deberían recibir el Foco para que vuelvan visibles.
Un Saludo.
Arriba
E. Feijoo Ver desplegable
Moderador
Moderador


Unido: 16/Abril/2004
Localización: España
Estado: Sin conexión
Puntos: 19948
Enlace directo a este mensaje Enviado: 18/Agosto/2015 a las 19:44
http://www.mvp-access.com/foro/formulario-modal_topic80918_post487501.html?KW=#487501
Arriba
pascual14 Ver desplegable
Asiduo
Asiduo


Unido: 30/Junio/2014
Localización: madrid
Estado: Sin conexión
Puntos: 499
Enlace directo a este mensaje Enviado: 03/Septiembre/2015 a las 17:39
Hola E. Feijoo, perdona la tardanza pero no había visto el mensaje. He hecho lo del hilo pero a mi no me funciona, mejor dicho, me funciona a medias, si que saca el formulario pero me lo deja por debajo de los otros y de forma modal, es decir que no me deja cerrarlo porque no lo veo y los otros tampoco porque tengo que cerrar este primero, vamos una locura. Al final lo que hago es no abrir los forms con acDialog y así me lo muestra de nuevo bien.
Gracias por la ayuda
Podéis cerrar el hilo amigos

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable