A97: Programatically determine table creation date

[RonMcIntire]

All:

In my application, I use a table of members from an Access database (generated by a parent society to which my chapter belongs) to create an on-line directory of officers, members and other information. I only access this source table and DO NOT in anyway alter its contents. Thus, my "source" information always remains just as it comes from the society.

Since I download the data from the society to update my on-line directory it would be helpful if I could always know the creation date of the "source" table so I can be sure I am using the most current data.

Can anyone tell me how to programatically determine the creation date of a table within a database?

Thanks,

Ron McIntire

 

[KenReay]

HI

try

Dim db As Database
Dim qdf As QueryDef
'
Set db = CurrentDb()
Set qdf = db.QueryDefs(0)
Debug.Print qdf.DateCreated Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[randysmid]

Ron,
Try this bit of code:

Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb
For Each tbl In db.TableDefs
Debug.Print "Table: " & tbl.Name & " ***"
Debug.Print " created: " tbl.DateCreated
Next tbl HTH,
Randy Smith
California Teachers Association

 

[RonMcIntire]

Ken Reay and Randy Smith:

Thanks for your help. That's exactly what I needed. Your responses were timely and helpful.

Ron McIntire