hola pepe
mira esto es lo que hago, en el evento form_load del formulario inicio
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (2)
End Sub
y luego en un modulo hago esto
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 iox As Long
Dim ioForm As Form
iox = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
con todos los formularios emergentes, no nodal, yo simulo un .EXE en access
o sea que lo que hace es que se abre el fomulario pero no se ve access, ni tampoco el diseño, y el problema me da con el informe, pero he visto en otro ordenador que tiene access 2000 que en la propiedades del informe si aparece como opcion el cuadro de control, nose realmente, que debo hacer. muchas gracias pepe. saludos.