How to Shift-Load application programmatically

[Tom van Stiphout]

Hi All,
Here is my code:

Dim appData As New Access.Application
appData.Visible = True
appData.OpenCurrentDatabase "c:\test\test.mdb", False
' Do my thing with the appData automation object.

At the OpenCurrentDatabase line, the target database is opened, and it
runs its AutoExec macro. I don't want that. I just want to load the db
as if I held down the Shift key while loading it.
How to do this using VBA code?
I looked at SetOption but did not find anything useful.

Thanks,

-Tom.

[David Schofield]

On Sat, 04 Dec 2004 12:42:30 -0700, Tom van Stiphout
<no*************@cox.net> wrote:

Hi All,
Here is my code:

Dim appData As New Access.Application
appData.Visible = True
appData.OpenCurrentDatabase "c:\test\test.mdb", False
' Do my thing with the appData automation object.

At the OpenCurrentDatabase line, the target database is opened, and it
runs its AutoExec macro. I don't want that. I just want to load the db
as if I held down the Shift key while loading it.
How to do this using VBA code?
I looked at SetOption but did not find anything useful.

Thanks,

-Tom.

Hi

http://www.mvps.org/access/api/api0068.htm
appears to address this issue.
-David

[Douglas J. Steele]

"David Schofield" <d.***************@blueyonder.co.uk> wrote in message
news:41b34333.420658805@localhost...

On Sat, 04 Dec 2004 12:42:30 -0700, Tom van Stiphout
<no*************@cox.net> wrote:

Hi All,
Here is my code:

Dim appData As New Access.Application
appData.Visible = True
appData.OpenCurrentDatabase "c:\test\test.mdb", False
' Do my thing with the appData automation object.

At the OpenCurrentDatabase line, the target database is opened, and it
runs its AutoExec macro. I don't want that. I just want to load the db
as if I held down the Shift key while loading it.
How to do this using VBA code?
I looked at SetOption but did not find anything useful.

Thanks,

-Tom.

Hi

http://www.mvps.org/access/api/api0068.htm
appears to address this issue.

There's also a somewhat kludgy approach mentioned in
http://support.microsoft.com/?id=210111

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

[Dimitri Furman]

On Dec 04 2004, 02:42 pm, Tom van Stiphout <no*************@cox.net> wrote
in news:ef********************************@4ax.com:

Hi All,
Here is my code:

Dim appData As New Access.Application
appData.Visible = True
appData.OpenCurrentDatabase "c:\test\test.mdb", False
' Do my thing with the appData automation object.

At the OpenCurrentDatabase line, the target database is opened, and it
runs its AutoExec macro. I don't want that. I just want to load the db
as if I held down the Shift key while loading it.
How to do this using VBA code?
I looked at SetOption but did not find anything useful.

If you can modify the Autoexec macro itself, you can make it look at the
UserControl property of the application instance and exit early if it's
False, which would be the case when the instance is opened via automation.

--
remove a 9 to reply by email

[Tom van Stiphout]

On 5 Dec 2004 11:23:04 -0600, d.***************@blueyonder.co.uk
(David Schofield) wrote:

Thanks. I should have known The Access Web would have the answer.
-Tom.

On Sat, 04 Dec 2004 12:42:30 -0700, Tom van Stiphout
<no*************@cox.net> wrote:

Hi All,
Here is my code:

Dim appData As New Access.Application
appData.Visible = True
appData.OpenCurrentDatabase "c:\test\test.mdb", False
' Do my thing with the appData automation object.

At the OpenCurrentDatabase line, the target database is opened, and it
runs its AutoExec macro. I don't want that. I just want to load the db
as if I held down the Shift key while loading it.
How to do this using VBA code?
I looked at SetOption but did not find anything useful.

Thanks,

-Tom.

Hi

http://www.mvps.org/access/api/api0068.htm
appears to address this issue.
-David