How to open a new database from an existing database?

[siebel2002]

Help, Please!

I have a command button in my access database with the following code for the onclick event. My need is to open the Employees database.

Sub cmdEmployessDatabase_Click()
Dim strPath As String
strPath = "C:\MyFolder\Employees.mdb"
OpenCurrentDatabase strPath
DoCmd.OpenForm "Employees", acNormal
End Sub

I dont see the database opening!! Please help!

 

[sathandle]

Try a new Access application object with the file name as a paramater.
definition of 'less behind': "not fully caught up, digging out slowly, one-week delay to "The IT hit the fan."

 

[siebel2002]

hi sathandle:

Please explain what you mean! thx

 

[FancyPrairie]

First, your syntax is incorrect. Online help has an example of exactly what you're trying to do.

Second, if you can't get that to work, you may have run into the same problem I had. Access would simply exit upon executing the OpenCurrentDatabase method. I ended up having to put a call into Microsoft. The only solution was reinstalling office.

 

[cmmrfrds]

I have used this code behind a couple of option buttons to open another Access application.

Private Sub optOnLine_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

' Open Access project.
pubFilePath = "C:\mydir\remotepubs.adp"
Set pubAppAccess = New Access.Application
pubAppAccess.OpenAccessProject pubFilePath

pubAppAccess.Application.RefreshDatabaseWindow
pubAppAccess.Application.Visible = True
DoCmd.Close

End Sub

Private Sub otpOffLine_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

' Open Access project.
pubFilePath = "C:\mydir\localpubs.adp"
Set pubAppAccess = New Access.Application
pubAppAccess.OpenAccessProject pubFilePath

pubAppAccess.Application.RefreshDatabaseWindow
pubAppAccess.Application.Visible = True
DoCmd.Close

End Sub

 

[sathandle]

cmmrfrds is exactly correct. However, just make certain you change the extensions for your file names to .mdb if you are using a Database instead of a Project File.

Good luck!
SATHandle
definition of 'less behind': "not fully caught up, digging out slowly, one-week delay to "The IT hit the fan."

 

[siebel2002]

Thanks guys! The line, "appAccess.Visible = True" is what did the trick..

Tahnks again for your responses.