Attribute VB_Name = "SakrijAccessWindow"
Option Compare Database
Option Explicit

'************ Code Start **********
'
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)
'Usage Examples
'Maximize window:
'       Call fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'       Call fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'       Call fSetAccessWindow(SW_HIDE)
'Normal window:
'       Call fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX  As Long
Dim loForm As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm
        If Err <> 0 Then 'no Activeform
              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

'************ Code End **********