Microsoft KB Archive/113919

= ACC: How to Get the Name and Path of the Current Database =

Article ID: 113919

Article Last Modified on 1/18/2007

-

APPLIES TO


 * Microsoft Access 2.0 Standard Edition
 * Microsoft Access 95 Standard Edition
 * Microsoft Access 97 Standard Edition

-



This article was previously published under Q113919



SUMMARY
Advanced: Requires expert coding, interoperability, and multiuser skills.

This article shows you how to create a sample user-defined function that uses Data Access Objects (DAO) to return the name and path of the current database.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the Building Applications with Microsoft Access" manual.

NOTE: Visual Basic for Applications is called Access Basic in Microsoft Access version 2.0. For more information about Access Basic, please refer to the "Building Applications" manual.



MORE INFORMATION
A Database object in the Databases collection has a Name property that will return the name and path of the database. To access the Name property of the current database, follow these steps.

In Microsoft Access 97 and 7.0:

  Create a new module with the following lines in the Declarations section: Option Compare Databases Option Explicit   Type the following function in the module: Function GetNamePath Dim MyDB As Database

' Set MyDB to the current database. Set MyDB = CurrentDB

' Return the value in the Name property. GetNamePath = MyDB.Name End Function  On the View menu, click Debug Window. In the Debug window, type the following line, and then press ENTER:

? GetNamePath

Note that the path and name of the current database are displayed in the Debug window.

In Microsoft Access version 2.0:

The following Access Basic function demonstrates how to access the Name property of the current database:

  Create a new module with the following line in the Declarations section: Option Explicit   Type the following function in the module: Function GetNamePath Dim MyDB As Database

' Set MyDB to the current database. Set MyDB = DBEngine.Workspaces(0).Databases(0)

' Return the value in the Name property. GetNamePath = MyDB.Name End Function </li> On the View menu, click Immediate Window.</li> In the Immediate window, type the following, and then press ENTER:

? GetNamePath

Note that the path and name of the current database are displayed in the Immediate window.</li></ol>

NOTE: Do not confuse this function with the CurDir$ function, which returns the path of the current folder (directory). The current folder may not be the folder where the current database is located.

<div class="references_section">