Microsoft KB Archive/148834

= ACC: How to Minimize, Maximize, and Restore MS Access 95/97 =

Article ID: 148834

Article Last Modified on 1/19/2007

-

APPLIES TO


 * Microsoft Access 95 Standard Edition
 * Microsoft Access 97 Standard Edition

-



This article was previously published under Q148834



SUMMARY
Advanced: Requires expert coding, interoperability, and multiuser skills.

Microsoft Access does not have a function to maximize, minimize, and restore Microsoft Access from a module or macro. This article shows you how to use Microsoft Windows API calls in code to maximize, minimize, and restore Microsoft Access.

NOTE: In Microsoft Access 97, you can use the RunCommand to maximize, minimize and restore Microsoft Access. For example, you can use the following methods: DoCmd.RunCommand acCmdAppMaximize DoCmd.RunCommand acCmdAppMinimize DoCmd.RunCommand acCmdAppRestore If you are using Automation, you can use the following methods: application.DoCmd.RunCommand acCmdAppMaximize application.DoCmd.RunCommand acCmdAppMinimize application.DoCmd.RunCommand acCmdAppRestore This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.



MORE INFORMATION
After you define the following sample functions in a module, you can use them in macros as RunCode actions. To do so, follow these steps:

  On the Insert menu, click New, and then Module. Type the following lines in the Declarations section: Option Explicit

Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3

Declare Function ShowWindow Lib "User32" (ByVal Hwnd As Long, _         ByVal nCmdShow As Long) As Long   Type the function, MaximizeAccess: Function MaximizeAccess Dim Maxit% Maxit% = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED) End Function   Type the function, MinimizeAccess: Function MinimizeAccess Dim Minit% Minit% = ShowWindow(hWndAccessApp, SW_SHOWMINIMIZED) End Function   Type the function, RestoreAccess: Function RestoreAccess Dim Restoreit% Restoreit% = ShowWindow(hWndAccessApp, SW_SHOWNORMAL) End Function   The following sample macro action will minimize the Microsoft Access window: Action      FunctionName -     RunCode      MinimizeAccess 

