アクセスでテーブル更新時刻の表示方法

テーブル作成クエリで作られたテーブルの作成日時をフォーム上に表示させたいのですがどの様にすれば良いのでしょうか？
宜しくお願い致します。

No.2 回答者： 30246kiku 回答日時： 2009/01/15 16:31

参照だけのクエリにしてください。

以下をクエリのSQLビューに貼り付け実行すると、現状のテーブルの DateCreate/DateUpdate を抽出できます。
テーブル名：テーブルA　を抽出するには

SELECT MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like 'MSys*') AND ((MSysObjects.Type)=1));

テーブル名：テーブルA　を抽出するには

SELECT MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Name) Like 'テーブルA') AND ((MSysObjects.Type)=1));

になるかと。
読み取り専用にするのは、クエリのプロパティでレコードセットをスナップショットにしてください。
クエリではなく、DLookupでもできると思います。
（クエリを参考にしてください）

No.1 回答者： noname#140971 回答日時： 2009/01/15 16:13

[イミディエイト]

? GetTableCreated("tab1")
2008/12/25 16:29:55

Public Const conACSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\DB12.mdb"

Public Function GetTableCreated(ByVal tblName As String) As String
　　Dim catDB As ADOX.Catalog

　　Set catDB = New ADOX.Catalog
　　catDB.ActiveConnection = conACSTRING
　　GetTableCreated = catDB.Tables(tblName).DateCreated
End Function

詳しくは、ADOXのヘルプを！

DateCreated=オブジェクトが作成された日付を示します。
DateModified=オブジェクトが最後に修正された日付を示します。