Creating Shortcuts for multiple ms access databases

[johngreen1948]

I would like to have a Form with shortcuts that allows me to hyperlink to several ms access databases. I'm using MS ACCESS97 and MS ACCESS 2003 under Window XP.

Thanks

John

[MMcCarthy]

I would like to have a Form with shortcuts that allows me to hyperlink to several ms access databases. I'm using MS ACCESS97 and MS ACCESS 2003 under Window XP.

Thanks

John

Hi John,

You will need to provide more information. What do you want the hyperlinks to do? Open a new instance of Access with the linked database? If you are using two different versions of Access this could get very complicated.

Mary

[johngreen1948]

Hi John,

You will need to provide more information. What do you want the hyperlinks to do? Open a new instance of Access with the linked database? If you are using two different versions of Access this could get very complicated.

Mary

Hi Mary:

Thanks for the response. You are correct, I simple want the hyperlink to open a new instantance of the linked database. When finished with the linked database, I want to close the new instance of the database and return control back to the Main Menu form that has the hyperlinks.

The reason I stated two different version of ACCESS is that I use ACCESS97 at home and ACCESS2003 at work. The two will never mix.

Thanks.
John

[MMcCarthy]

You need to use Automation. The following fuction should open a new instance of Access with the database passed as a parameter dbPath. Remember to include the full path to the database.

Function openNewDB(ByVal dbPath As String)
On Error Resume Next 'temporary error handling
Dim objAccess As Object
 
    Set objAccess = CreateObject("Access.Application")
    ShowAccess instance:=objAccess, size:=SW_MAXIMIZE
    objAccess.OpenCurrentDatabase filepath:=dbPath
    Set objAccess = Nothing
 
End Function
 

[johngreen1948]

You need to use Automation. The following fuction should open a new instance of Access with the database passed as a parameter dbPath. Remember to include the full path to the database.

Function openNewDB(ByVal dbPath As String)
On Error Resume Next 'temporary error handling
Dim objAccess As Object
 
    Set objAccess = CreateObject("Access.Application")
    ShowAccess instance:=objAccess, size:=SW_MAXIMIZE
    objAccess.OpenCurrentDatabase filepath:=dbPath
    Set objAccess = Nothing
 
End Function
 

Kathy:

Thanks for your suggestion.

John

[MMcCarthy]

Kathy:

Thanks for your suggestion.

John

Let me know how you get on with it.

Mary