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

質問

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

回答No.2

30246kiku

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

以下をクエリの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

[イミディエイト]
? 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=オブジェクトが最後に修正された日付を示します。