How to maximize Access window

[Shirley]

the command Docmd.Maximize only maximize the active
window. how can I maximize the Access Database Window in
VBS code?

Thanks a lot!

Shirley

 

[Phobos]

Public Const SW_MAXIMIZE = 3
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow
As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As Any, _
ByVal lpWindowName As Any) As Long

Dim lhandle as long
lhandle = FindWindow(0&,"MyAccessAppTitle")
Call ShowWindow (lhandle,SW_MAXIMIZE)

P

 

[Dirk Goldgar]

Public Const SW_MAXIMIZE = 3
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal
nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As Any, _
ByVal lpWindowName As Any) As Long

Dim lhandle as long
lhandle = FindWindow(0&,"MyAccessAppTitle")
Call ShowWindow (lhandle,SW_MAXIMIZE)

More recently, there's the simple

RunCommand acCmdAppMaximize

 

[Juan M. Afan de Ribera]

DoCmd.RunCommand acCmdAppMaximize

--
Saludos desde Barcelona
Juan M. Afan de Ribera
<MVP Ms Access>
http://www.juanmafan.tk
http://www.clikear.com/webs4/juanmafan

 

[Phobos]

news:%[email protected]

More recently, there's the simple

RunCommand acCmdAppMaximize

Thanks Dirk, I missed that in the object browser!

P