Как узнать имя БД, на которую ссылается связанная таблица?

Народ, доброго всем времени суток! Простенький вопрос, однако я что-то не могу сообразить... Когда мы наводим мышь на связанную таблицу, выплывает всплывающая подсказка с полным именем (адресом) БД, в которой лежит "оригинал" этой таблицы. Как эту информацию для конкретной таблицы захватить кодом в стринг?
P/S/ заранее благодарен.

CurrentDb.TableDefs(...).Connect

Wipeout2097,
для 2003:
открыть эту таблу правой кнопкой мыши -> коструктор (будет предупреждение), затем открыть свойства...,
там будет строка - "описание"

Hезабайнин
Wipeout2097, для 2003: открыть эту таблу правой кнопкой мыши -> коструктор (будет предупреждение), затем открыть свойства..., там будет строка - "описание"

Это типа кодом? Сначала программно жмем на правую кнопку, потом программно закрываем предупреждение, потом программно читаем окно свойств...

Владимир Саныч
Это типа кодом? Сначала программно жмем на правую кнопку, потом программно закрываем предупреждение, потом программно читаем окно свойств...

А это новый современный стиль кодирования легким движением руки и взгляда.

Владимир Саныч
Hезабайнин Wipeout2097, для 2003: открыть эту таблу правой кнопкой мыши -> коструктор (будет предупреждение), затем открыть свойства..., там будет строка - "описание" Это типа кодом? Сначала программно жмем на правую кнопку, потом программно закрываем предупреждение, потом программно читаем окно свойств...

ну да, потом загоняем в буфер и готово!... делов то...

Владимир Саныч
CurrentDb.TableDefs(...).Connect

Спасибо...

Владимир Саныч
Это типа кодом? Сначала программно жмем на правую кнопку, потом программно закрываем предупреждение, потом программно читаем окно свойств...

можно и кодом

Чо за фигня?!

Public Sub Fignya()
Dim tdf As TableDef
Set tdf = CurrentDb.TableDefs("Таблица1")
Debug.Print tdf.Connect
Set tdf = Nothing
End Sub

Вылетает ошибка: указан недопустимый объект или объект более не задан...
Это чо?!
P.S. Таблица1 - реально существует...

Wipeout2097, а так:

Dim db As Database
Set db = CurrentDb
Dim tdf As TableDef
Set tdf = db.TableDefs("Таблица1")
Debug.Print tdf.Connect
Set tdf = Nothing

Wipeout2097
Чо за фигня?! Public Sub Fignya() Dim tdf As TableDef Set tdf = CurrentDb.TableDefs("Таблица1") Debug.Print tdf.Connect Set tdf = Nothing End Sub Вылетает ошибка: указан недопустимый объект или объект более не задан... Это чо?! P.S. Таблица1 - реально существует...

Прилинкованная?..