Open Existing DB from another DB

[AC5FF]

I would have thought this was easy, but my tries have not been successful.

I want to be able to open a database with a button. I know that I could link tables/forms/etc between the two, but for security reasons I would rather have a button to open the seperate database.

I've tried searching here and Google, but came up blank. Maybe I'm just searching for the wrong thing. Anyone able to help???

Thx!

 

[AC5FF]

Nevermind...

I was using the "RunApp" command and pointing it to the MDB file.
I found a reference that said to RunApp won't open a file, but opens the EXE program.

With that bit of info I was able to get everthing to work as I was hoping.

 

[BecoNorte]

Use the shell() function
Private sub open_Another_DB_Click()
Call Shell("C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE c:\MyFile.mdb", 1)
end sub
The first path is for the MSAccess.exe file and the second for the other DB

 

[jdraw]

Here's a snippet of code where I open a number of other databases from my current database.

...Dim ThisDB As DAO.Database
Dim otherDB As DAO.Database
Dim strDbPath As String
Dim rs As Recordset
Dim rz As Recordset
Dim DBObjList As DAO.Recordset
Dim tbl As TableDef
   On Error Resume Next
 
Set ThisDB = CurrentDb
DoCmd.RunSQL ("Delete * from dbObjectsList;")

Set DBObjList = ThisDB.OpenRecordset("dbObjectsList")
Set rs = ThisDB.OpenRecordset("Select fullMDBCoord from A2Kmdbs")
Do While Not rs.EOF
    Debug.Print Now & " - Processing  " & rs!fullmdbcoord
    strDbPath = rs!fullmdbcoord
    Set otherDB = OpenDatabase(strDbPath)
    Set rz = otherDB.OpenRecordset(qsql)
   With DBObjList
    Do While Not rz.EOF
    
       .AddNew
       !name = rz!name......

I have access 2003.

 

[AC5FF]

jdraw

Wish I was good with writing VB like that! Would make my life a ton easier!
Thx for the info; I may use this in the near future, but for the time being the RunApp command is working for me.


Now If I could just figure out a way to send myself a msg from Access......