How to stop Access from closing when opened with VBA

[Panik]

Hi,

I would like to open an existing access db and the code seems to work with no errors, but access opens and immediately closes. How do I keep it open. Running Office 2013

I have seen people with the same issue, but have yet to find a remedy.

Private Sub OpenDB_Click()

     Dim db As New Access.Application
     Set db = CreateObject("Access.Application")
     db.Application.Visible = True
     db.OpenCurrentDatabase "C:\Users\jsmith\Desktop\Purchase Order DB.accdb"

End Sub

Thanks,
Jim

 

[sheetspread]

does replacing db.application.visible with just db.visible do anything? Probably not but......


http://www.mrexcel.com/forum/excel-questions/416398-access-database-wont-stay-open.html (maybe you've read this post already)


or maybe try shell or the shift key

 

[Panik]

No, I just tried and it behaves exactly the same. Access opens and closes very quickly.

 

[sheetspread]

Does:

Private Sub OpenDB_Click()

     Dim db As New Access.Application
     Set db = CreateObject("Access.Application")
     db.Application.Visible = True
     db.usercontrol = true
     db.OpenCurrentDatabase "C:\Users\jsmith\Desktop\Purchase Order DB.accdb"

End Sub

do anything?

 

[Panik]

Woooohooooo!!!!!!!! adding UserControl did the trick!!!!!

Thanks so much!!!