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?

[ADezii]

!!!!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?

The 'Handle' to a Report Window is defined by its hWnd Property. Are you properly passing this value to the API Function, something similar to:

loX = apiShowWindow(Reports!rptYourReport.hWnd, nCmdShow)

[Hutch]

loX = apiShowWindow(R eports!rptYourR eport.hWnd, nCmdShow)

I tried pasting the above in the code were i saw it begin with "lox=" but no success. do i need to write this code for every report i have a place the report name in "rptYourReport" ?

I use this code just the way you see it at the top of this page and it works on all my forms just fine, could it have something to do with the "form" verbage used through out the code? i tried changing this to "report" and still had no luck.

[ADezii]

loX = apiShowWindow(R eports!rptYourR eport.hWnd, nCmdShow)

I tried pasting the above in the code were i saw it begin with "lox=" but no success. do i need to write this code for every report i have a place the report name in "rptYourReport" ?

I use this code just the way you see it at the top of this page and it works on all my forms just fine, could it have something to do with the "form" verbage used through out the code? i tried changing this to "report" and still had no luck.

__1. The Reports must be Open for the code to work.
__2. You need only pass the 'Handle' of the open Report to the API Function:

Dim intHandle As Long
intHandle = Reports!rptYourReport.hWnd OR Me.hWnd (in proper context)
loX = apiShowWindow(intHandle, nCmdShow)

__3. As far as apiShowWindow() is concerned, it only needs a Long Integer representing the Handle of the Report and a Parameter indicating what it should do with this Window (Report)

[ADezii]

loX = apiShowWindow(R eports!rptYourR eport.hWnd, nCmdShow)

I tried pasting the above in the code were i saw it begin with "lox=" but no success. do i need to write this code for every report i have a place the report name in "rptYourReport" ?

I use this code just the way you see it at the top of this page and it works on all my forms just fine, could it have something to do with the "form" verbage used through out the code? i tried changing this to "report" and still had no luck.

I have made the assumption that you have modified the following lines of code to reference a Report and not a Form, have you?

Function fSetAccessWindo w(nCmdShow As Long)
Set loform = Screen.ActiveFo rm

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
End If
End Function

[Hutch]

Yes i changed all the verbage of "Form" to "Report" Example

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

is now

Dim loX As Long
Dim loform As Report
On Error Resume Next
Set loform = Screen.ActiveRe port

but i cant seem to find the following code to change that you call out in your last reply

"Dim intHandle As Long
intHandle = Reports!rptYour Report.hWnd OR Me.hWnd (in proper context)
loX = apiShowWindow(i ntHandle, nCmdShow)"

[Hutch]

After all these changes the code does not work on the reports but still works on the forms. argh!


Thank you so much for all your help.

[Denburt]

Interesting approach, I was also able to utilize it for my forms but not the reports, it must have something to do with the fact that reports are handled differently...

[Hutch]

I still need help figuring this code out

[ADezii]

Interesting approach, I was also able to utilize it for my forms but not the reports, it must have something to do with the fact that reports are handled differently...

Denburt, just for your own information:
I had absolutely no problem opening a Report called Report1, then executing the following code in the Click() Event of a Command Button. The end result was that that Report1 was now hidden. I did call the API Function directly:

Private Sub cmdTestButton_Click()
  Dim loX As Long
  loX = apiShowWindow(Reports!Report1.hWnd, 0)
End Sub