Show when last revised

[Walter]

hi i've been trying to figure out a way to show in a text box when a for was last revised. anyone have any clues? i know you probaly have to store some information in a table but i just havent got it right yet.
If anyone could help it would be appreciated thanks,
walter

 

[Clarence]

The following code will list each form together with when it was last modified. Look up DOCUMENTS in the help file for more specific information.


Sub DocumentModified()
Dim dbs As Database, ctr As Container, doc As Document

' Return reference to current database.
Set dbs = CurrentDb
' Return referenct to Forms container.
Set ctr = dbs.Containers!Forms
' Enumerate through Documents collection of Forms container.
For Each doc In ctr.Documents
' Print Document object name and value of LastUpdated property.
Debug.Print doc.Name; " "; doc.LastUpdated
Next doc
Set dbs = Nothing

End Sub

Hope this helps
Regards