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

• Microsoft Access versions 2.0, 7.0, 97

SUMMARY

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

This article describes a sample user-defined Visual Basic for Applications and Access Basic 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, and then press ENTER:

         ? GetNamePath()
   

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

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.

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.