Making Switchboard for other mdb 1

[RezaNana]

The situation is like this.I have multiple mdb,which i named it (e.g) ledger.mdb,Courseware.mdb,Asstes.mdb. What i am trying to do is, i would like to control this three mdb's in one single switchboard without having to shar all the tables,forms and etc in one apllication. To be more clear, let say i created an application call, Switch.mdb,which contains a button for ledger.mdb,courseware.mdb,assets.mdb , and by starting the switch.mdb,i can click any buttons to start either three mdb.Do you get what i mean?PLease help

 

[M8KWR]

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

Dim stAppName As String

stAppName = "ledger.mdb"
Call Shell(stAppName, 1)

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Sub


Hope this helps

 

[sfreeman]

If that doesn't work, try:

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

Dim stAppName As String

stAppName = "C:\Program Files\Microsoft Office\Office10\msaccess.exe ""C:\Documents and Settings\YourUserName\My Documents\db2.mdb"""

Call Shell(stAppName, 1)

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub

 

[RezaNana]

No can't do..
it displayed the "File not found" even if the correct path

 

[sfreeman]

Then you have a non-Access problem.

Is the db on a LAN?

If so, are you sure that you are actually connected to the drive that contains the db?

 

[RezaNana]

actually its in my local computer.Anyway thanks