Miinimize the Access Application window

[681212]

I want to minimize the Access Application by a button click. However, docmd.runcommand accmdappminimize is not working and DoCmd.minimize is work just to minimize the forms.

[twinnyfo]

681212,

Welcome to Bytes!

The easiest way I can assist is to simply provide a Function that I use all the time. You can put this in a new module:

Option Compare Database
Option Explicit
 
'==============================
'  CONSTANTS FOR DBASE WINDOW
'==============================
 
Private Const DB_Hide = 0
Private Const DB_Normal = 1
Private Const DB_Minimized = 2
Private Const DB_Maximized = 3
 
 
'==========================
'  DBASE WINDOW FUNCTIONS
'==========================
 
Public Declare Function IsWindowVisible Lib "user32" _
    (ByVal hwnd As Long) _
    As Long
 
Public Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) _
    As Long
 
'============================
' FORM MANAGEMENT FUNCTIONS
'============================
 
Public Function fAccessWindow( _
    Optional Procedure As String, _
    Optional SwitchStatus As Boolean, _
    Optional StatusCheck As Boolean) As Boolean
'***********************************************************************************
'* Purpose:  Controls the behavior and appearance of the Database Window            *
'* Accepts:  Procedure    - (Optional) Describes the behavior requested            *
'*           SwitchStatus - (Optional) Instructs the procedure to switch the       *
'*                          current status of the DB Window                        *
'*           StatusCheck -  (Optional) Allows the procedure to check the current   *
'*                          status of the DB window to determine whether or not to *
'*                          initiate a change                                      *
'***********************************************************************************
On Error GoTo EH
    Dim dwReturn As Long
 
    Select Case Procedure
        Case "Hide"
            dwReturn = ShowWindow(Application.hWndAccessApp, DB_Hide)
        Case "Minimize"
            dwReturn = ShowWindow(Application.hWndAccessApp, DB_Minimized)
        Case "Normal"
            dwReturn = ShowWindow(Application.hWndAccessApp, DB_Normal)
        Case "Show"
            dwReturn = ShowWindow(Application.hWndAccessApp, DB_Maximized)
    End Select
 
    If SwitchStatus = True Then
        If IsWindowVisible(hWndAccessApp) = 1 Then
            dwReturn = ShowWindow(Application.hWndAccessApp, DB_Hide)
        Else
            dwReturn = ShowWindow(Application.hWndAccessApp, DB_Maximized)
        End If
    End If
 
    If StatusCheck = True Then
        If IsWindowVisible(hWndAccessApp) = 0 Then
            fAccessWindow = False
        End If
 
        If IsWindowVisible(hWndAccessApp) = 1 Then
            fAccessWindow = True
        End If
    End If
 
    Exit Function
EH:
    MsgBox "There was an error resetting the Database Window!  " & _
        "Please contact your Database Administrator.", vbCritical, "WARNING!"
    Exit Function
End Function

To call this Function, just use this statement in your VBA:

fAccessWindow "Minimize"

Hope this hepps!

[681212]

Wonderful.. Thanks Twinnyfo