MS Access 2013オブジェクト（テーブル、クエリ）に作成日または変更日が表示されます

Question

可能な方法はありますかアクセス2013表示createdおよびmodified date？ アクセス2003これらの機能を表示するために使用されており、解決策が見つからないようですアクセス2013？

Answer 1

。しかし、それはまだ非常に良い概要ではありません。

（ああ、私はAccess 2003のデータベースウィンドウを欠場か...）

良い方法は、例えば、MSysObjectsテーブルを照会することです：

SELECT MSysObjects.Type, MSysObjects.Name, MSysObjects.DateUpdate, MSysObjects.DateCreate 
FROM MSysObjects 
WHERE (((MSysObjects.Type)<>2 And (MSysObjects.Type)<>3 And (MSysObjects.Type)<>-32757) 
    AND ((Left([Name],1))<>'~') AND ((Left([Name],4))<>'Msys')) 
ORDER BY MSysObjects.Type, MSysObjects.Name; 

オブジェクト型定数についてはこちらをご覧ください：
を Meaning of MsysObjects values -32758, -32757 and 3 (Microsoft Access)

ます。また、この無料の「データベースウィンドウの交換」に興味がある可能性がありアドイン：
http://www.avenius.de/index.php?Produkte:DBC2007

Answer 2

アクセスが焼きでソリューションを持っていない、あなたが見て、オブジェクトの多くを持っている場合、あなたは常にこのような何か設定テーブルを使用して独自に作成することができます。

は、

そして、いくつかのVBAをオブジェクトコレクションをループするように記述し、興味のあるプロパティを上記の表に書き込みます。以下の例は、テーブルとクエリのコレクションをループしますが、Forms、Reportsなどのループを追加することもできます（すべてのAccessオブジェクトをループする簡単な方法もあります）。 >詳細 - あなたがオブジェクトリストヘッダを右クリックし、表示を行うことができます

Public Sub CreatedModified() 

    Dim db As DAO.Database 
    Dim rs As DAO.Recordset 
    Dim tdf As DAO.TableDef 
    Dim qdf As DAO.QueryDef 
    Dim strSql As String 

    strSql = "DELETE * FROM tblCreatedModified" 

    Set db = CurrentDb 

    db.Execute strSql 

    Set rs = db.OpenRecordset("tblCreatedModified") 

    With rs 

     ' tables 
     For Each tdf In db.TableDefs 
      If Not (tdf.Name Like "*MSys*" Or tdf.Name Like "~*") Then 
       .AddNew 
       !ObjectType = "Table" 
       !ObjectName = tdf.Name 
       !DateCreated = tdf.DateCreated 
       !DateModified = tdf.LastUpdated 
       .Update 
      End If 
     Next 

     ' queries 
     For Each qdf In db.QueryDefs 
      If Not (qdf.Name Like "*MSys*" Or qdf.Name Like "~*") Then 
       .AddNew 
       !ObjectType = "Query" 
       !ObjectName = qdf.Name 
       !DateCreated = qdf.DateCreated 
       !DateModified = qdf.LastUpdated 
       .Update 
      End If 
     Next 

    End With 

    rs.Close 
    Set rs = Nothing 
    Set db = Nothing 

End Sub