[FAQ's: OD] How do I resize Access' windows?

[RobDog888]

There are a few ways to resize Access:
1.) Resize an Access Child window (Maximize to the Parent Access window or restore).
2.) Resize the main Access Parent window (Maximize or resize to a certain size).
3.) Method 1 + 2.

Code in a standard Module or behind a Form...
'1. Maximize/Restore Access Child windows
Option Explicit
Option Compare Database

Private Sub MaximizeOrRestoreChild()
Application.DoCmd.Maximize
'Or
Application.DoCmd.Restore
End Sub'2. Resize/Maximize Access main window to a certin size
Option Explicit
Option Compare Database

Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub ResizeApp()
'Resize main app window to 700 high x 1000 wide
'x and y are the orgin of the top/let corner
'cx and cy are the size of the window.
Application.RunCommand (acCmdAppRestore)
SetWindowPos Application.hWndAccessApp, 0, 0, 0, 700, 1000, 0
End Sub

Private Sub MaximizeApp()
Application.RunCommand (acCmdAppMaximize)
End Sub'3. Maximize Access main window and Maximize any child windows
Option Explicit
Option Compare Database

Private Sub MaximizeAll()
Application.RunCommand (acCmdAppMaximize)
Application.DoCmd.Maximize
End Sub'3. Resize Access main window to a certin size and Maximize any Child windows
Option Explicit
Option Compare Database

Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub ResizeAppMaxChild()
'Resize main app window to 700 high x 1000 wide
'x and y are the orgin of the top/let corner
'cx and cy are the size of the window.
Application.RunCommand (acCmdAppRestore)
SetWindowPos Application.hWndAccessApp, 0, 0, 0, 700, 1000, 0
Application.DoCmd.Maximize
End Sub