how to gather all names of 500 tables in one table automatically

[ahmed222too]

i have an access file (database) contains 500 tables
I want to gather the names of the 500 table in one table(index table) or in one text file automatically
How can i make this?
thank you

[missinglinq]

How about a query?

Goto Queries in the Object Dialog box

Select Create a Query in Design View

Close the "Show Table" box

Goto View and click on SQL View

Paste this code in

SELECT [Name] FROM MSysObjects WHERE [Name] Not Like '~*' AND [Name] Not Like 'MSys*' AND [Type]=1; 

Welcome to TheScripts!

Linq ;0)>

[ADezii]

i have an access file (database) contains 500 tables
I want to gather the names of the 500 table in one table(index table) or in one text file automatically
How can i make this?
thank you

If you want all the Table Names in a Text File:

Dim tdf As TableDef
 
Open "C:\MyTables.txt" For Output As #1
 
For Each tdf In CurrentDb.TableDefs
  If Left$(tdf.Name, 4) <> "MSys" And Left$(tdf.Name, 1) <> "~" Then
    Print #1, tdf.Name
  End If
Next
 
Close #1