Show when last revised (1 Viewer)

Walter

New member
Local time
Today, 15:44
Joined
Jan 11, 2000
Messages
9
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

Registered User.
Local time
Today, 15:44
Joined
Oct 3, 1999
Messages
14
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
 

Users who are viewing this thread

Top Bottom