VBからACCESSのテーブル等の取得をするには (ID:91453)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 --- [開発環境] --- VB6.0(SP6) ACCESS2000 ----------------- いつもお世話になっております。 VBからACCESSで作成したmdb内の 【フォーム】【テーブル】【クエリー】 【マクロ】【レポート】【モジュール】 を取得し、それらを別mdb内のものと 比較し、異なる場合は上書きコピーを行うツールを 開発しております。 そこで、上記6個のオブジェクトを取得するために以下の ようなコーディングを行いました。 Dim obj As Object db.OpenCurrentDatabase sMe.txtMdbPath For Each obj In db.CurrentProject.AllForms sMe.lstLData(0).AddItem obj.Name Next For Each obj In db.CurrentData.AllTables If StrComp(Left(obj.Name, 4), "MSys", vbTextCompare) <> 0 Then sMe.lstLData(1).AddItem obj.Name End If Next For Each obj In db.CurrentData.AllQueries sMe.lstLData(2).AddItem obj.Name Next For Each obj In db.CurrentProject.AllReports sMe.lstLData(3).AddItem obj.Name Next For Each obj In db.CurrentProject.AllMacros sMe.lstLData(4).AddItem obj.Name Next For Each obj In db.CurrentProject.AllModules sMe.lstLData(5).AddItem obj.Name Next db.CloseCurrentDatabase 上記コーディングにより、各オブジェクトの名前を取得する事には 成功したのですがタイムスタンプの取得ができません。 また、別の案としまして、 MSysObjectsテーブル内のレコードを参照し、 【DataUpdate】【Name】列より値を参照しようとしましたが、 「権限がありません」というエラーが発生し、参照することが できませんでした。 各MDB単位で設定する必要がありそうですので、 この案は敗れ去りました＾＾； どなたか、ご教授願います。