Open new application maximizedfocus from Access

[IamSam]

I have a 2003 Ms Access database that has command buttons to open other
Access applications. The code I am using is:

Dim accapp As Access.Application

Set accapp = New Access.Application

accapp.OpenCurrentDatabase ("Q:\Databases\Coatings\Pennsylvania\Coatings.mdb")
accapp.Visible = True

The code works fine, but I would like the new application to be opened
maximized and focused. Can I please have some help on this.

 

[Chris O'C via AccessMonster.com]

The easiest way is with the shell function.

Dim app As Double
app = Shell("msaccess.exe Q:\Databases\Coatings\Pennsylvania\Coatings.
mdb", vbMaximizedFocus)

Chris