1. DAO.TableDefs
Могу чуть где-то ошибиться.
2. ADO
См схемы, вот так сходу код не напишу. В результате список таблиц можно получить в виде ADODB.Recordset.
Код:
Dim tdfs as DAO.TableDefs
Dim tdf as DAO.TableDef
Dim db as DAO.Database
Set db = CurrentDb
Set tdfs = db.TableDefs
For each tdf in tdfs
msgbox tdf.Name
Next tdf
Могу чуть где-то ошибиться.
2. ADO
См схемы, вот так сходу код не напишу. В результате список таблиц можно получить в виде ADODB.Recordset.
Комментарии
6