How can I show the date of last update ? 1

[Lizard]

Hello,

I have a DB that is refreshed every day (normally) from a DB2 database. I would like to show to the users the date of the last update. Is it possible to put on a form the "modified" date of a table ? This would indeed reflect the last update.

Thanks

Olivier

 

[tlbroadbent]

Access tracks schema update dates but not data update dates. You'll need to create a table to track update data and time. You can then query that table for the last modified date on your form. Terry

http://members.home.net/tlbroadbent/sqlarticles.htm

"The greatest obstacle to discovery is not ignorance -- it is the illusion of knowledge." - Daniel J Boorstin

 

[gwinn7]

What about simply getting the file details of the MDB and extracting the 'Date Modified' attribute?

Gary
gwinn7

 

[rpol79]

Oliver,

I've had the same problem. I got around it by creating my own property on the table:

Function AddTimestampProperty()
Dim TimeStamp As Property, MYDB As Database
Set MYDB = CurrentDb
Set TimeStamp = MYDB!tblName.CreateProperty("TimeStamp&quot
TimeStamp.Type = dbDate
TimeStamp.Value = Date
MYDB!tblName.Properties.Append TimeStamp
End Function

This function is run only once. It adds
a user-defined property (TimeStamp) to
any table. This property is used as a
source for the "Last Import into Access"
text box controls on the main menu of
my application.
Note - to re-use, change table name
references below. Run thru Immed Window.

When the import runs, I call this function:

Function UpdateTimeStamp()
'Updates the TimeStamp property of
'tblInventoryEOM with the current system
'date. (See AddTimestampProperty() in this
'module). Called when user imports End
'of Month inventroy data.

Dim MYDB As Database, EOM As TableDef
Set MYDB = CurrentDb
Set EOM = MYDB![tblInventoryEOM]
EOM.Properties!TimeStamp = Now
Set EOM = Nothing
Set MYDB = Nothing

End Function

(Old style punctuation - I wrote it in 2.0)
Hope this helps,
John

 

[rpol79]

Oliver,

I forgot this part - on the form load event:

'Populate "Last Import into Access" control
Dim MYDB as Database
Dim COST As TableDef
Set MYDB = CurrentDb
Set COST = MYDB![tblInventoryEOM]
thedate = COST.Properties!TimeStamp
Forms![frmMainMenu]![txtLastLoad]=Format(thedate, "m/d/yy h:nn AM/PM&quot

John