Opend Database from Excel via code

[Boris7265]

Hello to all of you .

I have used the below code but the database just opens and closes??

Code:

Sub OpenAccess() Dim LPath As String Dim LCategoryID As Long LPath = "C:\Directory\Filename.mdb" Set oApp = CreateObject("Access.Application") oApp.Visible = True oApp.OpenCurrentDatabase LPath End Sub</PRE>
Please anybody know how to keep it open?

Thank you,

The Best Regards,

BorisGomel

 

[kpark91]

Hmm. That's weird.
It shouldn't close??

See if you have ignore all other applications on...You might have to google it.

Do you have any other macros?

 

[Ruddles]

Sub OpenAccess() 
 
  Dim LPath As String 
  Dim LCategoryID As Long 
 
  LPath = "C:\temp\scratch_database1.mdb" 
  Set oApp = CreateObject("Access.Application") 
  oApp.Visible = True 
  oApp.OpenCurrentDatabase LPath 
 
End Sub

Where is oApp declared? If it isn't declared correctly, when the procedure ends, oApp is destroyed and the database closes as a result. Place a breakpoint at the End Sub statement and verify this for yourself.

If you're not going to access your database using the references you're creating, why not simply go:-

Shell "msaccess C:\temp\scratch_database1.mdb"

If you're going to use those references outside the procedure, oApp needs to be declared outside it.

PS. Please post code between code tags - the # icon in the advanced editor toolbar - as it makes it easier for potential responders to read and understand your code, and this encourages more replies.

 

[Boris7265]

Thank you all of you , specially Ruddles .

I didn't declare oApp (Opps).I did declare it as an Object outside the procudere and now it is working fine .

Thank you very much .

The Best Regards,

BorisGomel