Jag har öppnat en databas och vill hämta alla tabellnamn. Jag har försökt med koden nedan men den funkar bara om jag har databasen öppen i Access. Finns det något annat sätt att få tag på tabellnamnen, utan att ha databasen öppen i Access?

Dim Table As AccessObject

For Each Table In Application.CurrentData.AllTables

Msgbox Table.Name
Next

/John

Du kan använda ADO eller DAO för att hämta alla tabeller i databasen.

Kanske exemplen som följer med MSDN kan hjäla dig kolla på "visdata".

MVH
Leif