Ａｃｃｅｓｓ97VBAにてオブジェクトの説明欄の内容を取得したい

質問

ACCESS97のVBAにて開発をしています。

データベースウィンドウに表示される、各オブジェクトの説明欄の値（テーブルやフォームなど、オブジェクトを右クリック-プロパティにて、「説明」という欄に入力したもの）を取得したいのですが、指定の仕方がわかりません。

前提としては、Microsft　DAO　3.5　Object　Libraryを参照設定に追加してあります。
テーブル名やフォーム名は、DocumentオブジェクトのNameプロパティにて取得できたのですが・・・

ご存知の方がいらっしゃいましたら、是非教えてください。

回答No.1

taka_tetsu · ベストアンサー

Dim tds As DAO.TableDefs
Dim td As DAO.TableDef
Set tds = CurrentDb.TableDefs
Set td = tds("テーブル1")

MsgBox td.Properties("Description").Value
MsgBox td.Fields("フィールド1").Properties("Description").Value

こんな感じ

お礼

さっそくのご回答、どうもありがとうございます。
試してみたところ、うまくいきました！
どうもありがとうございました。