DateCreated, LastUpdated Properties Example

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