Access Workspace size

[RogerH]

Hi,

maybe this helps:

Dim width As Long
Dim height As Long

DoCmd.OpenForm "Form1", acNormal
DoCmd.Maximize

width = Forms("Form1").WindowWidth
height = Forms("Form1").WindowHeight

DoCmd.Restore
DoCmd.Close

MsgBox "Width = " & width & ", Height = " & height

The determined width and height don' count that windows have a title and a border. To be on the save side, you can use

width = Forms("Formular1").InsideWidth
height = Forms("Formular1").InsideHeight

instead.

Happy New Year
Roger

[barrie]

Thanks. I'll give it a try.

[barrie]

Does anyone know how to get the width and height of the workspace in Access? I am not referring to a database workspace, but rather to the desktop space, within Access' borders and toolbars, where Access' child windows (forms, tables, etc.) appear.

I am trying to position and size Access forms using the docmd.movesize command, but I need to keep the forms within Access' borders.