Finding out the Pathname of the Current Database

[Guest]

Hi,

In Excel's VBA I use a command to find out the path to the excel sheet I'm
using.
It goes along the lines of ThisWorkbook.Path

I was wondering if anyone knew of a similar command I could use in Access
VBA to get the directory path of the current database?

Ta.

Neil

 

[Guest]

Hi,

try this

function fctGetDBPath() as string
dim strReturn as string
strreturn = mid(currentdb.name,1, instrrev(currentdb.name,"\")
fctgetdbpath = strreturn
end function

Remember, MS DAO should be referenced!

 

[Guest]

Cheers,

That'll do it.

Ta.

Hi,

try this

function fctGetDBPath() as string
dim strReturn as string
strreturn = mid(currentdb.name,1, instrrev(currentdb.name,"\")
fctgetdbpath = strreturn
end function

Remember, MS DAO should be referenced!

 

[Douglas J Steele]

Note, though, that InStrRev only exists in Access 2000 or newer, and in
those versions of Access, you can use CurrentProject.Path to get the same
thing.

In previous versions of Access, you can use

Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))