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

MORE INFORMATION

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.

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.