ник: Romiras
дату последнего редактирования наврядли вот пример может поможет
This example demonstrates the DateCreated and LastUpdated properties by adding a new Field to an existing TableDef and by creating a new TableDef. The DateOutput function is required for this procedure to run.
Sub DateCreatedX()
Dim dbsNorthwind As Database
Dim tdfEmployees As TableDef
Dim tdfNewTable As TableDef
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
With dbsNorthwind
Set tdfEmployees = .TableDefs!Employees
With tdfEmployees
Print current information about the Employees
table.
DateOutput "Current properties", tdfEmployees
Create and append a field to the Employees table.
.Fields.Append .CreateField("NewField", dbDate)
Print new information about the Employees
table.
DateOutput "After creating a new field", _
tdfEmployees
Delete new Field because this is a demonstration.
.Fields.Delete "NewField"
End With
Create and append a new TableDef object to the
Northwind database.
Set tdfNewTable = .CreateTableDef("NewTableDef")
With tdfNewTable
.Fields.Append .CreateField("NewField", dbDate)
End With
.TableDefs.Append tdfNewTable
Print information about the new TableDef object.
DateOutput "After creating a new table", tdfNewTable
Delete new TableDef object because this is a
demonstration.
.TableDefs.Delete tdfNewTable.Name
.Close
End With
End Sub
Function DateOutput(strTemp As String, _
tdfTemp As TableDef)
Print DateCreated and LastUpdated information about
specified TableDef object.
Debug.Print strTemp
Debug.Print " TableDef: " & tdfTemp.Name
Debug.Print " DateCreated = " & _
tdfTemp.DateCreated
Debug.Print " LastUpdated = " & _
tdfTemp.LastUpdated
Debug.Print
End Function