Table Properties

[bestbefore99]

How do I find Table Properties in the Current Database?

So far I have only managed to get information on Table Names, but I want more info such as Creation Date, Nr of Records, etc

Thanks gurus!

Max

 

[NVSbe]

CurrentDb.TableDefs("tbl1&quot.DateCreated
CurrentDb.TableDefs("tbl1&quot.RecordCount

and some other options.. tbl1 is the name of the table

--------------------------------------
It's not the monsters under your bed, it is the men next door.
That make you fear, make you cry. Make you cry for the Child.
All the wars are fought amongst those lonely men. Unharmed, unscarred.

 

[bestbefore99]

THanks a lot NVSBe.

My code for getting the list of tables however was

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
Open "C:\Tabelle.txt" For Output As #3

For Each obj In dbs.AllTables

Write #3, obj.Name

Next obj

Close #3

Is any other way of finding the Tables Names using DAO?



My problem actually is more general. I have to keep track of who is doing what on a database (Auditing Function)


Thanks
Massimo

 

[NVSbe]

I'd use the following code. It also puts the Access System tables in the output file though, I'm not sure if you want those.

Dim obj As Object

Open "C:\Tabelle.txt" For Output As #3

For Each obj In CurrentDb.TableDefs

Write #3, obj.Name, obj.DateCreated, obj.RecordCount

Next obj

Close #3
--------------------------------------
It's not the monsters under your bed, it is the men next door.
That make you fear, make you cry. Make you cry for the Child.
All the wars are fought amongst those lonely men. Unharmed, unscarred.