Hide Access Window

Originally Posted by Hutch

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

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

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


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

Private Sub Form_Load()
Call fSetAccessWindow(0)
End Sub



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

Originally Posted by Hutch

loX = apiShowWindow(Reports!rptYourReport.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.

Originally Posted by Hutch

loX = apiShowWindow(Reports!rptYourReport.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.

Originally Posted by 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...

Originally Posted by Hutch

loX = apiShowWindow(hWndAccessApp, nCmdShow)

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

Originally Posted by Denburt

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

Originally Posted by ADezii

That is why we are here, agreed?

Originally Posted by Denburt

Positively absolutely, I love what I do and enjoy sharing the info, hopefully someone can learn from the knowledge I have obtained. I know that it sure helps me and I learn as well.

Originally Posted by rockdc1981

you guys are great, i was able to use the code on my welcome screen, but it takes sometime to load the form.

Originally Posted by Mojito05

I'm using this on a couple of forms in A2002 and it's working great. Although, there's 1 more thing I'd like to do, that I can't figure out.

Like some other people who are using this code, I'm trying to make my database as airtight as possible to keep users from getting into things - accidentally or intentionally.

For reference, here are some of the properties from the main form:

Pop Up: Yes
Modal: Yes
Border Style: Yes
Control Box: No
On Open: [Event Procedure]

Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 1
End Sub

Private Sub Form_Timer()
Me.TimerInterval = 0
fSetAccessWindow (SW_HIDE)
End Sub

Private Sub Image37_Click()
Dim stDocName As String
Dim stLinkCriteria As String

Me.Form.Modal = False
stDocName = "MinimizeForm"
DoCmd.OpenForm stDocName, , , stLinkCriteria
fSetAccessWindow (SW_SHOWMINIMIZED)

Exit_Image37_Click:
Exit Sub

Err_Image37_Click:
MsgBox Err.Description
Resume Exit_Image37_Click

End Sub

Originally Posted by Denburt

FYI if you just want to view the Main database window for some temp maintenance you should be able to just hold the shift key down when starting the app and bypass the main startup form, unless of course you have this feature disabled, in which case you might need to call it from another app (I had to once) to re enable this feature.