12/05/2011, 08:22
|
| | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 4 meses Puntos: 18 | |
Respuesta: Ventana Madre Access 2003 Tienes los informes emergentes y modales???
Has tenido en cuenta esto?? (supongo que usaras este codigo):
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 |