opening access database using macro
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 |
opening access database using macro
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 |
opening access database using macro
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 |
All times are GMT +1. The time now is 09:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com