Resize The Active Window
acCmdDocMaximize, acCmdDocMinimize, acCmdDocRestore
This routine will resize the active Window depending on the values passed. If an invalid value is passed it does nothing.
'***************** Code Start *******************
'Code by Terry Wickenden
Sub WindowReSize(strPass As String)
'Accepts the following strings Max, Min, Restore
Select Case strPass
Case "Max"
DoCmd.RunCommand acCmdDocMaximize
Case "Min"
DoCmd.RunCommand acCmdDocMinimize
Case "Restore"
DoCmd.RunCommand acCmdDocRestore
End Select
End Sub
'****************** Code End ********************
