Force Maximize on Access Startup using .VBS by TC

[petebeatty]

I am using the script that TC wrote regarding by passing the security
warning. However, I need to force the maximization of the access
application. It currently starts in normal window mode.

How can I force the application to use the whole screen??

 

[TC]

Try one of these two ways:

(1) Put the following statement somewhere in the startup code of your
database:

Application.RunCommand acCmdAppMaximize

Or:

(2) Assuming that your script says this:

dim o
set o = createobject ("access.application")
(etc.)

Add the following line before the (etc.):

o.runcommand 9999

BUT: I can't remember the proper number to use in place of 9999. I
think it's 17, but I'm not sure (and I don't have Access here to chec).
To find the proper number, just start Access, press Ctrl-g to go to the
debug window, type the following command, then use the number displayed
by this command:

? acCmdAppMaximize

Method (1) is probably easier, and has the advantage that it will still
happen if the user chooses to ignore the script & open the database
directly.

HTH,
TC

 

[Jeff Conrad]

The number is 10 TC.
I have now updated my page with this new information by you.

http://home.bendbroadband.com/conradsystems/accessjunkie/macrosecurity.html

--
Jeff Conrad
Access Junkie - MVP
http://home.bendbroadband.com/conradsystems/accessjunkie.html
http://www.access.qbuilt.com/html/articles.html


in message:

 

[TC]

Thanks Jeff.

What a team!

TC

 

[petebeatty]

Thanks for the note. However, it does not seem to work on my system.
I first tried the second option and modified the script file. No luck,
the app window does not maximiaze. I add the following line
immeridately after the creatobject line:

Obj.runcommand 10


I then when into the Logon form (set in the tools/startup) and add the
following command in the form_open event, first executible line:

application.runcommand acCmdAppMaximize

The interesting thing is that when I start from the script file, this
as no affect. However, when I start without using the script. It does
work.

What is happening? Any Ideas?

 

[TC]

Maybe the acCmdAppMaximize constant has different values in different
versions of Access? Start Access, type Ctrl-g to go to the debug
window, type the following command & check that the result is 10:

? acCmdAppMaximize

Also, show me the exact code you are using.

HTH,
TC

 

[Jeff Conrad]

Just checked and it is 10 in 97, 2000, 2002, and 2003

--
Jeff Conrad
Access Junkie - MVP
http://home.bendbroadband.com/conradsystems/accessjunkie.html
http://www.access.qbuilt.com/html/articles.html


in message:

 

[TC]

That was quick!

I guess we'll need to look at the code.

Cheers,
TC
(off for the day)