Tema: Acces 2003
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 28/02/2008, 11:24
Avatar de Taribo007
Taribo007
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 14 años, 10 meses
Puntos: 18
Re: Acces 2003

Hay una forma de ocultar la ventana madre de access:

Copia esto en un módulo:

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
y para llamar la función en el evento al abrir del formulario: FSetAccessWindow(0)

No te olvides que todos los formularios mientras tengas la ventana invisible deben estar en Modal y Emergente = Sí y que para ver un informe en el momento de lanzarlos debes poner FSetAccessWindow(3) y viceversa al cerrarlo.

Un saludo