ACC1x: How to Find Attached Table's Database Name |
Q109725
The information in this article applies to:
- Microsoft Access versions 1.0, 1.1
SUMMARY
This article describes how to use the FindFirst method on a dynaset of the MSysObjects table to find the path and filename of the database that contains an attached table.
Notes
- The technique described below relies on the use of system tables stored with your database. These tables are undocumented and are subject to change in future versions of Microsoft Access.
- This article assumes that you are familiar with Access Basic and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information on Access Basic, please refer to the "Introduction to Programming" manual.
MORE INFORMATION
The following example demonstrates how to use the FindFirst method to find the path and filename of the database that contains an attached table:
- Create a new database.
- From the File menu, choose Attach Table.
- Select Microsoft Access in the Data Source box and then choose OK.
- Select the sample database NWIND.MDB in the File Name box and then choose OK.
- Select Categories in the Tables In NWIND.MDB box and then choose Attach. Choose OK, and then choose Close.
Create a new module with the following sample code:
'******************** ' MODULE DECLARATIONS '******************** Option Explicit Function AttachedDBName (TableName As String) Dim DB As Database Dim DS As Dynaset Set DB = CurrentDB() Set DS = DB.CreateDynaset("MSysObjects") DS.FindFirst "[name] = '" & TableName & "'" If Not DS.NoMatch Then AttachedDBName = DS![database] Else AttachedDBName = "" End If End Function
- To run the function, type the following in the module's Immediate window and press ENTER:
? AttachedDBName("Categories")
Note that the function returns the path and filename of the database that contains the attached table.
REFERENCES
Microsoft Access "User's Guide," versions 1.0 and 1.1, Chapter 4, "Importing, Exporting, and Attaching," pages 60-72
Keywords : kbprg
Issue type : kbhowto
Technology :
Last Reviewed: November 4, 2000 |