Resize The Access Window
acCmdAppMaximize, acCmdAppMinimize, acCmdAppRestore
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 ********************
