| |
|
|
| | Всем привет.
Такая вот проблема, надо через Containers различить таблицу и запрос. Например dbs.Containers!Tables указывает на оба обьекта. Можно как то это сделать? | |
| |
| |
| |
|
|
| | Почему обязательно Containers?
почему не tabledefs и querydefs? | |
| |
| |
| |
|
|
| | А как через tabledefs и querydefs получить имена имеющихся в базе таблиц и запросов? С помощью Containers я получаю имена так:
Set ctr = dbs.Containers!Forms
Set str_tab = dbs_f.OpenRecordset("forms", dbOpenDynaset)
For Each doc In ctr.Documents
name_f = doc.Name
date_time = doc.LastUpdated
Next doc
str_tab.Close | |
| |
| |
|
|
|
|
| |
|
|
| |
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 | |
| |
| |
| |
|
|
| | Спасибо большое, буду смотреть.
То что надо  | |
| |
| |
