返回一个 Date 值,表明上一次对指定对象的设计进行修改的日期和时间。只读。
expression.DateModified
expression 必需。返回“应用于”列表中的一个对象的表达式。
下面的示例列出当前数据库中的所有报表,以及这些报表的设计被创建和修改的时间。
Dim acobjLoop As AccessObject
For Each acobjLoop In CurrentProject.AllReports
With acobjLoop
Debug.Print .Name & " - Created " & .DateCreated _
& " - Modified " & .DateModified
End With
Next acobjLoop