Hi Ann
I copied this from an answer I gave a while ago. You can use it to open
quite a few databases from the same switchboard.
______________________________________
The basic call shell on the OnClick of a button would look something like
this
Private Sub ButtonName_Click()
Call Shell("""C:\Documents and Settings\My Documents\DataBase1.mdb""", 1)
End Sub
Or you could create an unbound combo - or bind it so you can store the DB
table names and paths in a table. Then on the AfterUpdate event you could
use something like this
Private Sub ComboName_AfterUpdate()
If Me.ComboName = Database1 Then
Call Shell("""C:\Documents and Settings\My Documents\DataBase1.mdb""", 1)
End If
If Me.ComboName = Database2 Then
Call Shell("""C:\Documents and Settings\My Documents\DataBase2.mdb""", 1)
End If
If Me.ComboName = Database3 Then
Call Shell("""C:\Documents and Settings\My Documents\DataBase3.mdb""", 1)
End If
End Sub
Or you could use an option group - if case 1 then open DB1 if case 2 open
DB2, etc.
There are quite a few methods it just depends on what you feel is best for
your app.
Don't forget you can also use call shell to run a macro when you open a
specific DB (to open a form or whatever).
I assume your DB's are at
C:\Documents and Settings\My Documents\
If not the change this line in the code to the correct path.
Tip - To find the path
Click start.
Select Run
Select browse
Navigate to your DB (you will need to select show all files)
Click the DB (but don't open)
Cut the path from the run box and paste it into your code
Hope this helps