Access2000 opens in half-size window

[Arvi Laanemets]

Hi

I have a couple of Access2000 applications, which I use in full-screen mode
(main form is quite big). Through a workday, whenever I close one
application, and open next one (or same app again), it opens in full-screen
mode. But every day, when I 1st time open any of my apps at morning, it
opens in half-sized window (full-size height, and half-size width,
positioned in right half of screen). I have to resize the window, and to
resize the main form of this app.

My computer remains logged on into domain for all night (all applications
are closed). Applications I use are situated on server.

I think the problem is in VBA script which runs every night. It opens an
Access application on server, and after some time closes it. When
application starts, a form is opened, and forms Open event refreshes some
data in certain table (delete and append queries).

When I run this script manually, the application ALWAYS opens in half-sized
window. When I open this application without script, I can maximize the
window, and Access remembers this setting - until I run script again!

The script is:

Option Explicit
Dim objAccessApp, objAccessFile, strPath, strFile
strPath = "MyPath"
strFile = "MyApp.mdb"
Set objAccessFile=GetObject(strPath & strFile)
Set objAccessApp = objAccessFile.Parent
objAccessApp.Visible = True
WScript.Sleep(5000)
objAccessApp.Quit

How can I force the script to open the app in full window?

Thanks in advance!

 

[Wayne-I-M]

Have you tiled the screen (right click the task bar then tile) ??

When opening application - - Try maximising the screen then press Control S
- reboot
if this does not work
Open access then drag the screen (left click and hold) with mouse instead of
maximise then Control S
Reboot

worth a try

 

[Dominic Vella]

I'd suggest in the first form that opens you would use the following code in
the Form_Open event:
' Minimize the database window and initialize the form.
DoCmd.SelectObject acForm, Me.Name, True
DoCmd.Minimize
DoCmd.SelectObject acForm, Me.Name
DoCmd.Maximize

:O)
Dom

 

[Arvi Laanemets]

Hi

Look like your 2nd suggestion (resizing manually) did work! Thanks!