Foros del Web » Soporte técnico » Ofimática »

Ventana Madre Access 2003

Estas en el tema de Ventana Madre Access 2003 en el foro de Ofimática en Foros del Web. Hola a todos!!! Ya se que este es un tema muy tratado, pero tengo una duda. He ingresado en mi aplicación el código para ocultar ...
  #1 (permalink)  
Antiguo 11/05/2011, 06:49
 
Fecha de Ingreso: marzo-2011
Mensajes: 14
Antigüedad: 13 años
Puntos: 0
Ventana Madre Access 2003

Hola a todos!!!

Ya se que este es un tema muy tratado, pero tengo una duda.

He ingresado en mi aplicación el código para ocultar la ventana madre de access y hasta ahi todo funciona correctamente, el problema que tengo es que al abrir un informe o no se ve nada, o se me 'peta' la aplicación, que puedo hacer??

Muchas gracias y un saludo.
  #2 (permalink)  
Antiguo 12/05/2011, 08:22
Avatar de Taribo007  
Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 16 años, 8 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

Etiquetas: access
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:47.