MS Access 2013 Objekte (Tabellen, Abfragen) Anzeige erstellt oder geändert Datum

Question

Gibt es eine Möglichkeit, die ich machen kann Access 2013 Anzeige created und modified date? Access 2003 verwendet, um diese Funktionen anzuzeigen und scheint keine Lösung zu finden Access 2013?

Answer 1

Sie können mit der rechten Maustaste auf die Objektliste Header und Ansicht tun -> Details. Aber das ist immer noch kein sehr guter Überblick.

(Oh, wie ich die Access 2003 Datenbank-Fenster verpassen ...)

Ein besserer Weg ist es, die MSysObjects Tabelle abzufragen, zB:

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; 

hier für die Konstanten Objekt-Typ:
Meaning of MsysObjects values -32758, -32757 and 3 (Microsoft Access)

Sie auch in diesem kostenlosen "Datenbank-Fenster Ersatz" Add-in interessieren:
http://www.avenius.de/index.php?Produkte:DBC2007

Answer 2

Wenn Access hat keine backene in Lösung bekommt, und Sie haben eine Menge von Objekten zu sehen, man konnte immer Ihre eigene mit einer Tabelle erstellen, so etwas wie dies einzurichten:

Und dann schreiben Sie einige VBA, um die Objektkollektionen durchzulaufen und schreiben Sie die Eigenschaften, an denen Sie interessiert sind, in die obige Tabelle. Das folgende Beispiel durchläuft die Tabellen- und Abfragengruppen, aber Sie können zusätzliche Schleifen für Formulare, Berichte usw. schreiben. (Es kann sogar eine einfachere Möglichkeit geben, alle Access-Objekte durchzulaufen).

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