ник: osmor
Function listbl()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim qdf As DAO.QueryDef
Set db = CurrentDb()
Debug.Print "*************таблицы****************"
For Each tbl In db.TableDefs
Debug.Print tbl.Name
Next
Debug.Print "*************Запросы*************"
For Each qdf In db.QueryDefs
Debug.Print qdf.Name
Next
End Function
|
и еще вот это почитайте:
http://hiprog.com/index.php?option=com_content&task=view&id=297&Itemid=35