get access database path in Word vba

marooned · #1 07-03-2012, 08:23 AM

Hi all
I am trying access database to fill a word document. It works fine as I have it now.
I am accessing Access data base as below:

Code:

Dim dbDatabase As Database
Dim rsMedico As Recordset
Dim i As Integer
Dim aResults()
 
Set dbDatabase = OpenDatabase("C:\Users\Rama\Documents\Medprog\Medico.mdb")
 
Set rsMedico = dbDatabase.OpenRecordset("Patients", dbOpenSnapshot)

Instead of hard coding as above I like to get db path by code or connect string. I have tried all like getdbpath, getdbfullpath. I get errors like type mismatch,object variable not set etc.

I need a relative path or soft coding so that I can use this any other computer with access database.
Hope somebody can help

Marooned

macropod · #2 07-04-2012, 02:00 AM

Hi Marooned,

If I understand it, correctly, you want to have a dynamic version of:
C:\Users\Rama\Documents\Medprog\
If your document is in the same folder as the database (ie Medprog), you should be able to use:
Set dbDatabase = OpenDatabase(ActiveDocument.Path & "\Medico.mdb")

marooned · #3 07-04-2012, 06:37 AM

Hi Paul
Brilliant. Works tremendously. Thanks ever so much.

Marooned

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to link a combobox to an access database?	Joe Patrick	Word	1	10-21-2011 09:01 AM
Exporting many Word files to a database or Excel	Mdalu	Word	0	05-23-2011 02:55 AM
Excel to lookup Access Database	PeterP	Excel	1	06-11-2009 12:33 PM
Access database engine with Streets and Trips 2009	dreemsnake	Misc	3	05-26-2009 10:25 AM
Populate cells in Word from a database	hotlilshan	Word	3	12-09-2008 01:51 PM