How to open another database from the existing one?

[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!

 

[jbehrne]

Hi,

This may be a good start for you - however, it only opens a form from another db!

http://www.mvps.org/access/forms/frm0034.htm

Good luck,

jbehrne

 

[tonyireland]

If you made the Employees form the startup form for the Employees database perhaps this would do the trick

Sub OpenDB(strTloc As String)

   'Define as Static so the instance of Access
   'doesn't close when the procedure ends.
   Static acc As Access.Application
   Dim db As DAO.Database
   Dim strDbName As String
On Error GoTo Err_OpenDB
   strDbName = "C:\MyFolder\Employees.mdb
   Set acc = New Access.Application
   acc.Visible = True
   Set db = acc.DBEngine.OpenDatabase(strDbName, False, False)
   acc.OpenCurrentDatabase strDbName
   db.Close
   Set db = Nothing

 

[TLady]

This is all you need

Sub OpenAnother()
Dim wsp As Workspace
Dim dbs As Database, dbsAnother As Database
Dim tdf As TableDef

' Return reference to current database.
Set dbs = CurrentDb
' Return reference to default workspace.
Set wsp = DBEngine.Workspaces(0)
' Return reference to Another.mdb.
Set dbsAnother = wsp.OpenDatabase("Your.mdb&quot
' Enumerate all TableDef objects in each database.
Debug.Print dbs.Name & ":"
For Each tdf In dbs.TableDefs

Debug.Print tdf.Name
Next tdf
Debug.Print
Debug.Print dbsAnother.Name & ":"
For Each tdf In dbsAnother.TableDefs
Debug.Print tdf.Name
Next tdf
Set dbs = Nothing
Set dbsAnother = Nothing
End Sub


You copy it in first - it will open whole 9 yards of second

TIA

 

[DJN]

The Shell command also works.

Private Sub Command29_Click()
'Open another databse

Shell "C:\Program Files\Microsoft Office\Office\msaccess.exe " & "FullPathName", vbMaximizedFocus
Application.Quit
End Sub

 

[siebel2002]

Thanks guys!