如何得知某张表何时更新何时建立？

时　间:2017-04-16 08:20:18
作　者:MDZZ   ID：47512  城市：南京
摘　要:如何得知某张表何时更新何时建立？
正　文:

Function LastUpdateDate_DAO()
    Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
        Debug.Print tbl.Name & " 最后更新日期：" & tbl.LastUpdated & " 建立日期：" & tbl.DateCreated
    Next
End Function
Function LastUpdateDate_ADOX()
    '记得引用ADOX
    Dim tbl As ADOX.Table
    Dim cat As New ADOX.Catalog
    cat.ActiveConnection = CurrentProject.Connection
    For Each tbl In cat.Tables
        Debug.Print tbl.Name & " 最后更新日期：" & tbl.DateModified & " 建立日期：" & tbl.DateCreated
    Next
End Function
2种办法都可以实现