Access Application won't stay visible

[Beren1h]

Hello all,

Why does the following code not keep the access database opened visible when the button is clicked (it flashes for a second then goes away)?

Private Sub Command1_Click()

Dim App As New Access.Application

App.Visible = True

App.OpenCurrentDatabase "C:\TheDatabase.mdb"

End Sub

Thanks in advance...

 

[CCLINT]

1. Try putting App.Visible = True after the OpenCurrentDatabase command

2. Try adding:

App.DoCmd.RunCommand acCmdAppMaximize
App.DoCmd.Maximize

 

[Beren1h]

Nope.

I can see all of that functioning, but at the end the access window still disappears.

 

[Beren1h]

D'oh!

I figured it out. It is the scope of the app variable that is screwing it up.

The link below is where I found the answer if any one has a similar problem.

http://msdn.microsoft.com/library/d.../ODC_NewandEnhancedMicrosoftAccessObjects.asp

 

[CCLINT]

Yes, I just saw that and was just getting ready to post that solution.
If you are doing something like

app.DoCmd.OpenReport ReportName, lAction

then it will stay open even when the object variable looses scope...however, you cannot close it using the object variable (the user will need to close it).