Open reports with a hidden MS Access application window

[lauren quantrell]

I have an Access 2000 application and I am using ShowWindow to hide the
MS Access application window. Works fine as long as there is a popup
form open all the time. The problem is when I want to open a report.
Reports seem to only be able to to open within the Access Window itself
(or am I missing something?)
To work around this I use a scheme that opens the report maximized,
then unhides and maximizes the MS Access window using

dwReturn = ShowWindow(Appl ication.hWndAcc essApp, SW_SHOWMAXIMIZE D)

then hides the access window again when the report is closed.

Is there another (better) way of doing this?
lq

'***START CODE:

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As
Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZE D = 2
Const SW_SHOWMAXIMIZE D = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long,
ByVal nCmdShow As Long) As Long

Function MaximizeApplica tionWindow()
dwReturn = ShowWindow(Appl ication.hWndAcc essApp, SW_SHOWMAXIMIZE D)
End Function

Function HideApplication Window()
dwReturn = ShowWindow(Appl ication.hWndAcc essApp, SW_HIDE)
End Function

'***END CODE