Hi

I have a access database "test.mdf"

While running a macro I want to open this database

Please provide some solution

Thanks


--
rtphilips
------------------------------------------------------------------------
rtphilips's Profile: http://www.excelforum.com/member.php...o&userid=28114
View this thread: http://www.excelforum.com/showthread...hreadid=476234

Hi there,

You can use the FollowHyperlink method, it will work for almost any program.
An example would look like ...


Option Explicit
Sub testingAccess()
Dim strPath As String, strName As String

'Change as desired..
strPath = "C:\YourFullPathNameHere\"
strName = "test.mdb"

On Error GoTo ExitSpot
ActiveWorkbook.FollowHyperlink strPath & strName, NewWindow:=True
Exit Sub

ExitSpot:
MsgBox Err.Description
End Sub


HTH

--
Regards,
Zack Barresse, aka firefytr, (GT = TFS FF Zack)



"rtphilips" wrote
in message ...

Hi

I have a access database "test.mdf"

While running a macro I want to open this database

Please provide some solution

Thanks


--
rtphilips
------------------------------------------------------------------------
rtphilips's Profile:
http://www.excelforum.com/member.php...o&userid=28114
View this thread: http://www.excelforum.com/showthread...hreadid=476234

I have been looking for a "fit all" solution to opening files. I work in a
place where drive letters change depending on the department, so I have to
code for server paths. So far I have only been able to get huge amounts of
code to open an Office app within a diferent Office path. Yours was the
simpliest and the best.

Thanks. High Rating for you dude!!!
--



"Zack Barresse" wrote:

Hi there,

You can use the FollowHyperlink method, it will work for almost any program.
An example would look like ...


Option Explicit
Sub testingAccess()
Dim strPath As String, strName As String

'Change as desired..
strPath = "C:\YourFullPathNameHere\"
strName = "test.mdb"

On Error GoTo ExitSpot
ActiveWorkbook.FollowHyperlink strPath & strName, NewWindow:=True
Exit Sub

ExitSpot:
MsgBox Err.Description
End Sub


HTH

--
Regards,
Zack Barresse, aka firefytr, (GT = TFS FF Zack)



"rtphilips" wrote
in message ...

Hi

I have a access database "test.mdf"

While running a macro I want to open this database

Please provide some solution

Thanks


--
rtphilips
------------------------------------------------------------------------
rtphilips's Profile:
http://www.excelforum.com/member.php...o&userid=28114
View this thread: http://www.excelforum.com/showthread...hreadid=476234

Glad I could help you there. :)

Thanks for the note.

--
Regards,
Zack Barresse, aka firefytr, (GT = TFS FF Zack)



"code_hungry" wrote in message
...
I have been looking for a "fit all" solution to opening files. I work in a
place where drive letters change depending on the department, so I have to
code for server paths. So far I have only been able to get huge amounts of
code to open an Office app within a diferent Office path. Yours was the
simpliest and the best.

Thanks. High Rating for you dude!!!
--



"Zack Barresse" wrote:

Hi there,

You can use the FollowHyperlink method, it will work for almost any
program.
An example would look like ...


Option Explicit
Sub testingAccess()
Dim strPath As String, strName As String

'Change as desired..
strPath = "C:\YourFullPathNameHere\"
strName = "test.mdb"

On Error GoTo ExitSpot
ActiveWorkbook.FollowHyperlink strPath & strName, NewWindow:=True
Exit Sub

ExitSpot:
MsgBox Err.Description
End Sub


HTH

--
Regards,
Zack Barresse, aka firefytr, (GT = TFS FF Zack)



"rtphilips"
wrote
in message ...

Hi

I have a access database "test.mdf"

While running a macro I want to open this database

Please provide some solution

Thanks


--
rtphilips
------------------------------------------------------------------------
rtphilips's Profile:
http://www.excelforum.com/member.php...o&userid=28114
View this thread:
http://www.excelforum.com/showthread...hreadid=476234