MS Access 2013 objects (tables, queries) display created or modified date

Question

Is there any way I can make Access 2013 display created and modified date? Access 2003 used to display those features and can't seem to find any solution to Access 2013?

Answer 1

You can right-click the object list header, and do View -> Details. But that's still not a very good overview.

(Oh how I miss the Access 2003 database window...)

A better way is to query the MSysObjects table, e.g.:

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;

See here for the object type constants:
Meaning of MsysObjects values -32758, -32757 and 3 (Microsoft Access)

You may also be interested in this free "Database window replacement" add-in:
http://www.avenius.de/index.php?Produkte:DBC2007

Answer 2

If Access hasn't got a baked-in solution and you have a lot of objects to look at, you could always create your own with a table set up something like this:

And then write some VBA to loop through the object collections and write the properties you're interested in to the above table. The example below loops through the Tables and Queries collections, but you could write additional loops for Forms, Reports, etc. (There may even be a simpler way to just loop through all Access objects).

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