Maximise Access Window from Excel VBA

**Macro1** · 10-20-2010, 07:24 AM

Hi,

I'm calling an Access database that we use from a custom menu in Excel via VBA. The syntax works perfectly, however when the window opens it is in a minimised state. I was just wondering if there was a line of code I could use that would maximise the window to the full screen on opening?

Sub CallDatabase()

    Dim LPath As String
    Dim LCategoryID As Long
    Dim oApp As Object

    LPath = "E:\Access\2010\Database.mdb"

    Set oApp = CreateObject("Access.Application")
    oApp.Visible = True

    oApp.OpenCurrentDatabase LPath
    
End Sub

Many Thanks in advance

Macro1

**romperstomper** · 10-20-2010, 08:33 AM

Yes:

    oApp.RunCommand 10

**Macro1** · 10-20-2010, 10:20 AM

Thats awesome!

Thanks Romperstomper

**romperstomper** · 10-20-2010, 10:23 AM

Glad to help.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save