This page was split off from my generic CM Page do to the number of examples provided.

Dim tempDatabase As Database
Dim tempTableDef As TableDef
    
' Set a reference to the current database
Set tempDatabase = CurrentDb

For Each tempTableDef In tempDatabase.TableDefs
 Debug.Print tempTableDef.Name
Next

To list all forms in the database, whether open or closed, enumerate the Documents collection of the forms' Container object. You can then use the Name property of each individual Document object to return the name of a form.

Dim tempDatabase As Database
Dim xx           ' I use a variant to simplify the code

' Set a reference to the current database
Set tempDatabase = CurrentDb

' List all the available containers
For Each tempContainer In tempDatabase.Containers
 Debug.Print tempContainer.Name
Next tempContainer

' List all the documents in the specified container type
'  (In this case, list all the forms)
For Each xx In tempDatabase.Containers![Forms].Documents
 Debug.Print xx.Name
Next xx

Databases Forms Modules Relationships Reports Scripts SysRel Tables

If you use this technique to access Tables, then you will see additional default tables and the Fields collection will not be available.

select Name, DateUpdate from MSysObjects 
where  Type=-32768;

select Name, DateUpdate from MSysObjects 
where  Type=5
  and  Name not like "~*";

	Type	and Name not like
Forms	-32768
Reports	-32764
Queries	5	"~*"
Tables	1	"MSys*"
Linked Tables	6	"MSys*"
CodeModules	-32761

Tools / Add-Ins / Linked Table Manager

The solution uses MSysObjects. Just copy the following query to an sql editor and run it.

SELECT Name, ForeignName, Database
FROM MSysObjects
WHERE Database Is Not Null;

The fields are

Field
Name	Name (alias) in this database
ForeignName	Name in the remote database
Database	Path to the mdb file

However, when it come to accessing this data via code, this is another poorly documented property!

The following is based on information from Field / Specifics and other help pages listed below.

Dim tempDatabase As Database
Dim tempTableDef As TableDef
Dim tempField    As Field
Dim xx

' Set a reference to the current database
Set tempDatabase = CurrentDb

For Each tempTableDef In tempDatabase.TableDefs
 Debug.Print tempTableDef.Name + " *********"

 For Each tempField In tempTableDef.Fields
  On Error GoTo ErrorHandler
    xx = tempField.Properties!Description       ' This fails !!!

  Debug.Print tempField.Name & "  " & xx
' Debug.Print tempField.Properties!Description  ' This fails !!!
' Debug.Print tempField.Description             ' This fails !!!
 Next tempField

Next tempTableDef 

Exit Sub     ' You must exit before the error handler

ErrorHandler:
 xx = "aa"   ' A null string would be better, "aa" is just for test
 Resume Next

An object's description is displayed in the Description column in the Details view of the Database window.

If you create controls by dragging a field from the field list, Microsoft Access copies the field's Description property to the control's StatusBarText property.

Until you have set a Microsoft Access-defined property either in table Design view or from Visual Basic code, that property won't appear in the Properties collection. When you set these properties from Visual Basic, you should include error-handling code that checks to see if the property exists in the Properties collection, and creates and appends the property if it doesn't.

The 2 commented out lines in the code above were left there to demonstrate what does not work.

The Description is included when you select Tools / Analyze / Documenter.

URL: http:// cpcug.org / user / clemenzi / technical / Databases / MSAccess / CM_Data.html