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