Hide Access Window

[Hutch]

!!!!FIRST!!! The fallowing code gets placed into a module that has to be called "SetAccessWindo w"

Option Compare Database
Option Explicit

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

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow " (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindo w(nCmdShow As Long)

Dim loX As Long
Dim loform As Form
On Error Resume Next
Set loform = Screen.ActiveFo rm

If Err <> 0 Then
loX = apiShowWindow(h WndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZE D And loform.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loform.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loform.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loform.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(h WndAccessApp, nCmdShow)
End If
fSetAccessWindo w = (loX <> 0)
End Function


!!!SECOND!!! you have to paste this code into every form

Private Sub Form_Load()
Call fSetAccessWindo w(0)
End Sub



The above code works great on forms, but i cant get it to function on Reports. Help?

[Hutch]

i dont want to hide the report, i want to have everything behind the report hidden i.e. access window.

[Denburt]

I could be mistaken but from what I think you want you are trying to hide the MS Access application but still show reports forms etc. correct?

If this is so then you left out a couple of key pieces of info that would help us understand... Your forms are set to popup and Modal correct?

Using the on_load event allows the following to work...

screen.activefo rm

However since a report does not have an onload event you need to specify which report you are using. I also modified it a bit by grabbing the hwnd of the report itself.

'In the declaration section of your module.
Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long
 
Function rSetAccessWindow(nCmdShow As Long, Optional myRep As Report)
Dim loX As Long
 Dim intWindowHandle As Long
If nCmdShow = SW_SHOWMINIMIZED And myRep.Modal = True Then
    MsgBox "Cannot minimize Access with " _
    & (myRep.Caption + " ") _
    & "report on screen"
ElseIf nCmdShow = SW_HIDE And myRep.PopUp <> True Then
    MsgBox "Cannot hide Access with " _
    & (myRep.Caption + " ") _
    & "report on screen"
Else
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
 
rSetAccessWindow = (loX <> 0)
    intWindowHandle = myRep.hWnd
    If Not IsZoomed(intWindowHandle) Then
 
DoCmd.Maximize
    End If
End Function
 

Good luck

[Hutch]

where do i specifiy the report?

[Denburt]

Private Sub Report_Open(Cancel As Integer)
Call rSetAccessWindow(0, Me)
End sub

[Hutch]

loX = apiShowWindow(h WndAccessApp, nCmdShow)

i got an error that tells me the above code is incorrect, that the sub or fuction is not defined help!!!!!!!!!!! !

[Hutch]

Got it to work, Really have no idea but it works!! Thanks

[Denburt]

Your module "SetAccessWindo w"

Should look something like this"

Option Compare Database
Option Explicit
 
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long
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
On Error Resume Next
Set loform = Screen.ActiveForm
 
If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
 
If nCmdShow = SW_SHOWMINIMIZED And loform.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loform.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loform.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loform.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function
Function rSetAccessWindow(nCmdShow As Long, Optional myRep As Report)
Dim loX As Long
 Dim intWindowHandle As Long
If nCmdShow = SW_SHOWMINIMIZED And myRep.Modal = True Then
    MsgBox "Cannot minimize Access with " _
    & (myRep.Caption + " ") _
    & "report on screen"
ElseIf nCmdShow = SW_HIDE And myRep.PopUp <> True Then
    MsgBox "Cannot hide Access with " _
    & (myRep.Caption + " ") _
    & "report on screen"
Else
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
 
rSetAccessWindow = (loX <> 0)
    intWindowHandle = myRep.hWnd
    If Not IsZoomed(intWindowHandle) Then
 
DoCmd.Maximize
    End If
End Function
 
!!!SECOND!!! you have to paste this code into every form
 
Private Sub Form_Load()
Call fSetAccessWindow(0)
End Sub
 
In each report you need to enter the following:
 
Private Sub Report_Open(Cancel As Integer)
Call rSetAccessWindow(0, Me)
End sub
 
 

[ADezii]

loX = apiShowWindow(h WndAccessApp, nCmdShow)

i got an error that tells me the above code is incorrect, that the sub or fuction is not defined help!!!!!!!!!!! !

You are getting this Error because your API is declared Privately as opposed to Publically. Declare it as:

Public Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

[Denburt]

Glad you got it, glad we were able to help.

[ADezii]

Glad you got it, glad we were able to help.

That is why we are here, agreed?