GENERATE FIELD LIST FROM A QUERY?

[Joe User]

QUESTION for the experts out there :)

Is it possible to write a query that would list the datafields by each table
in a database? How would I do that?!?!

TIA
Joe

[Lyle Fairfield]

"Joe User" <jo*@user.com> wrote in news:bs**********@tribune.mayo.edu:

QUESTION for the experts out there :)

Is it possible to write a query that would list the datafields by each
table in a database? How would I do that?!?!

TIA
Joe

Assuming a modern version of Access:

Sub GetColumnNames()
Dim r As ADODB.Recordset
Dim Table As String
Set r = CurrentProject.Connection.OpenSchema(adSchemaColum ns)
With r
Do While Not .EOF
If .Fields("TABLE_NAME") <> Table Then
Debug.Print .Fields("TABLE_NAME").Value
End If
Debug.Print , .Fields("COLUMN_NAME").Value
Table = .Fields("TABLE_NAME").Value
.MoveNext
Loop
End With
End Sub

This gives the columns of queries too. You will have to do some filtering
to get just your tables.

--
Lyle
(for e-mail refer to http://ffdba.com/contacts.htm)

[DFS]

"Joe User" <jo*@user.com> wrote in message
news:bs**********@tribune.mayo.edu...

QUESTION for the experts out there :)

Is it possible to write a query that would list the datafields by each table in a database? How would I do that?!?!

TIA
Joe

Don't know about a query, but this code will give you a list of tables and
fields

dim i,j
dim db as database
set db = currentdb()

For i = 0 To db.TableDefs.Count - 1
For j = 0 To db.TableDefs(i).Fields.Count - 1
MsgBox "Table: " & db.TableDefs(i).Name & " Field:" &
db.TableDefs(i).Fields(j).Name
Next j
Next i