×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Current Directory Value

Current Directory Value

Current Directory Value

(OP)
Does anyone know the VBA formula for the current directory?  I'm working on an access database that may be moved to other directories and would like to eliminate all the hard coded directories and make it automatic.

Thanks

RE: Current Directory Value

(OP)
i finally found the answer on the web.  For those interested here is the code:

Function GetDBPath() As String
    Dim MyDB As Database
    Dim tempPath As String
    Dim FileLen As Integer
    ' Set MyDB to the current database.
    Set MyDB = CurrentDb()
    ' get the length of the db file name
    FileLen = Len(dir(MyDB.Name, vbDirectory))
    ' trims off the db filename so the path is all that's left.
    tempPath = Left(MyDB.Name, (Len(MyDB.Name) - FileLen))
    ' Return the path name
    GetDBPath = tempPath
End Function

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources