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

Zavrnitev odgovornosti za umaknjeno vsebino KB

Ta članek govori o izdelkih, za katere Microsoft ne ponuja več podpore. Zato je ta članek na voljo »tak, kot je«, in ne bo več posodobljen.

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

ID članka: 113919 – Zadnji pregled: 18. jan. 2007 – Revizija: 1

Povratne informacije