VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsTableData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mlngNumRecords As Long
Private mdatWhenModified As Date
Private mdatWhenCreated As Date
Private mstrName As String
Public Sub ExtractStatusData(tblDef As TableDef)
mstrName = tblDef.Name
mdatWhenModified = tblDef.LastUpdated
mdatWhenCreated = tblDef.DateCreated
mlngNumRecords = tblDef.RecordCount
End Sub
Property Get Name() As String
Name = mstrName
End Property
Property Get NumRecords() As Long
NumRecords = mlngNumRecords
End Property
Property Get WhenModified() As Date
WhenModified = mdatWhenModified
End Property
Property Get WhenCreated() As Date
WhenCreated = mdatWhenCreated
End Property
