Open New Access Database and Maximise the Application Window

[Moss100]

Hello,

I use a database to launch other applications and databases. I call this 'Launcher'

The Launcher app has a small window size. When I launch a new database, it then opens in a small application window.

It uses the following code:

Public Sub fnc_FS_OpenApp(ByRef strDocPath As String)
'Open file for preview using default application

Dim G As Long
G = shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & strDocPath, vbMaximizedFocus)

End Sub

I would like to modify the code, so that the user requested database opens in a full access application window.

Thank you and happy Christmas - Mark