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

ID: Q113919

The information in this article applies to:

Microsoft Access versions 2.0, 7.0, 97

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:

1. Create a new module with the following lines in the Declarations

   section:

      Option Compare Databases
      Option Explicit

2. 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

3. On the View menu, click Debug Window.

4. 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:

1. Create a new module with the following line in the Declarations section:

      Option Explicit

2. 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

3. On the View menu, click Immediate Window.

4. 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.

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.

REFERENCES

For more information about the Database object and Databases collection, search the Help Index for "Database Object," or ask the Microsoft Access 97 Office Assistant.

Additional query words: programming directory

Keywords          : kbprg MdlDao 
Version           : 2.0 7.0 97
Platform          : WINDOWS
Hardware          : x86
Issue type        : kbhowto

Last Reviewed: November 21, 1998