Resize The Access Window

Use this example to Maximize, Minimize or Restore the size of the Access Window. It accepts the following arguments Max, Min or Rest.

'***************** Code Start *******************
'Code by Terry Wickenden

Sub WinSize(strSize As String)
    Select Case strSize
        Case "Max"
            DoCmd.RunCommand acCmdAppMaximize
        Case "Min"
            DoCmd.RunCommand acCmdAppMinimize
        Case "Rest"
            DoCmd.RunCommand acCmdAppRestore
        Case Else
            MsgBox strSize & " is not a valid argument"
    End Select
End Sub

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

Return to Example List