DateCreated()

[milte]

Hello All,

On my switchboard, I'd like to have a textbox that would give the date of the last update to the database (which is monthly). I need the datecreated date for a table shown in this textbox. The table name is tblUMD. Is this possible?

Milt

 

[Darrylles]

Hi,

Tools->Options->View tab-> tick 'System Objects' ON to view the system tables.

Look at the MsysObjects table, date created of all objects is in there.

Regards,

Darrylle

"Never argue with an idiot, he'll bring you down to his level - then beat you with experience." darrylles@totalise.co.uk

 

[PaulF]

there are 2 date fields in the MSysObjects table, one for DateCreated and one for DateModified. You can access the data from there, or you can use code to get the data from the TableDefs Collection. Personally I think the query is easier.

PaulF

 

[miltie]

Thanks for the reply, Darrylle and Paul. What code would I put in the text box to retrieve the info?

Milt

 

[PaulF]

in the Switchboards On Open Event add this as an Event Procedure

Dim db as DAO.Database, rst as DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("MSysObjects&quot
With rst
.FindFirst("Name = 'tblUMD'&quot
YourTextBoxName = rst!DateCreated
End With
Set db = Nothing
Set rst = Nothing

PaulF

 

[miltie]

Thanks Paul.

I'm getting a runtime error 3251, Operation is not supported for this type of object. I debug and the

.FindFirst ("Name = 'tblUMD'&quot statement is highlighted.

Any ideas?

Milt

 

[PaulF]

change

Set rst = db.OpenRecordset("MSysObjects&quot
to
Set rst = db.OpenRecordset("MSysObjects",dbOpenDynaset)

PaulF

 

[miltie]

Okay, I've got a little further. Next error is 'item not found in this collection' and the statement highlighted is: txtDate = rst!DateCreated txtDate is the name of my textbox.

 

[PaulF]

sorry, the Field name is DateCreate not DateCreated

PaulF

 

[milte]

Thanks Paul, I'm in business. I would have thought it'd be DateCreated.

Anyway, I appreciate your follow through to resolve this issue.

Milt