Code Examples

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 ********************

© 1998 - 2011 Terry Wickenden TKW Design Site developed maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.