Function primjer()
Dim Db As Database
Dim Tbl As TableDef
Dim ImeTabele As String
Dim BrjRedova As Integer
Dim DatumKreiranja As String

Set Db = CurrentDb
Set Tbl = Db.TableDefs("Table1")

With Tbl
ImeTabele = .Name
BrojRedova = .RecordCount
DatumKreiranja = .DateCreated
End With
End Function