Access Opens Then Immediately Closes When Opened From Excel VBA

[RunTime91]

Greetings...

Not sure what I'm missing or not seeing but the below code works perfectly

Sub OpenAccess1 ()

Dim AppAccess As Object
Set AppAccess = CreateObject ("Access.Application")
Call AppAccess.OpenCurrentDatabase ("N:\Sales\Internal\Confidential\ProdDept\Reports\Weekly\Sales.accdb")

End Sub

While the code below opens the Db but then as soon as the code hits End Sub - The Db immediately closes - very frustrating

Sub OpenAccess2 ()

Dim AppAccess As Object
Set AppAccess = CreateObject ("Access.Application")
Call AppAccess.OpenCurrentDatabase ("N:\Production\Internal\ProdDept\Reports\MTD\Prod.accdb")

End Sub

I've tried using AppAccess.Visible = True
I've used both early & late binding methods

Same results

Help?

[June7]

If you want to keep the db open and give control to user:

Sub OpenAccess2()
Dim AppAccess As Access.Application
Set AppAccess = CreateObject("Access.Application")
AppAccess.Application.Visible = True
AppAccess.UserControl = True
AppAccess.OpenCurrentDatabase (CN:\Production\Internal\ProdDept\Reports\MTD\Prod .accdb")
End Sub

[RunTime91]

June!!

Thank You So, Soooo Much!!

That did the trick!!

Can't say I understand why the top few lines of code works to open and grant user control

And the bottom code needs a little more hand holding - but it works, who am I to question

Thanks again, June