Automating MS-Access DB to open correctly

[Guest]

Using Office 2003 and Windows XP.

I have a loading program that is designed to open an Access DB and then
Excel closes itself. It works, but when Access opens, the initial window is
small, then it maximizes, but the Main Menu remains the size of the small
window that initially opened.

So every time this runs, the users will have to resize this tiny menu so
they can see everything.

Does anyone have a clue how to fix this?

My code:

Dim oAccessApp As Object
Set oAccessApp = GetObject(csFullNameDestin, "Access.Application")
oAccessApp.Visible = True
oAccessApp.DoCmd.RunCommand 10 '10 = acCmdAppMaximize

Thanks much.

 

[Guest]

Hi, you can try the following snippet, Shell "C:\Program Files\Microsoft
Office\OFFICE11\MSACCESS.EXE" & Your filename.
I hope this helps you.