Main DB

[Rich31]

I have several DB that I would like to open from one central DB. I have looked @ OpenDataBase but I think I may be missing something. Some Examples of names are ShiftReport, Address, and utilities.

 

[DJN]

Use the shell command.

Private Sub cmdOpenDB_Click()
On Error GoTo Err_cmdOpenDB_Click

Dim stAppName As String

stAppName = "C:\Program Files\Microsoft Office\Office\msaccess.exe " & "u:\Access\FolderName\DBName"
Call Shell(stAppName, 1)
DoCmd.Quit
Exit_cmdOpenDB_Click:
Exit Sub

Err_cmdOpenDB_Click:
MsgBox Err.Description
Resume Exit_cmdOpenDB_Click

End Sub

Change path to suit.

David

 

[Rich31]

Dave

This is the code I ended up with I am now getting Duplicate Option statement


Private Sub Command1_Click()
Private Sub cmdOpenDB_Click()
On Error GoTo Err_cmdOpenDB_Click

Dim stAppName As String

stAppName = "C:\Program Files\Microsoft Office\Office\msaccess.exe " & "P:\Distribution\Address\Address.mdb"
Call Shell(stAppName, 1)
DoCmd.Quit
Exit_cmdOpenDB_Click:
Exit Sub


Rich
Err_cmdOpenDB_Click:
MsgBox Err.Description
Resume Exit_cmdOpenDB_Click

 

[DJN]

Delete the first line.
Private Sub Command1_Click()


David

 

[Rich31]

Dave

I now have this but the button does not work.

Private Sub cmdOpenDB_Click()
On Error GoTo Err_cmdOpenDB_Click

Dim stAppName As String

stAppName = ("C:\Program Files\Microsoft Office\Office\MSACCESS.EXE") And ("P:\Distribution\Address\Address.mdb")
Call Shell(stAppName, 1)
DoCmd.Quit
Exit_cmdOpenDB_Click:
Exit Sub

Err_cmdOpenDB_Click:
MsgBox Err.Description
Resume Exit_cmdOpenDB_Click
End Sub

Rich

 

[Rich31]

Dave

Thanks for all your help I now have another little problem but that is a new post.

Rich

 

[DJN]

Should be an ampersand & not the word and.

David