Datestamping Design Mods

[roaftech]

I know how to datestamp a report when it is run (using the Now() function) but I also want to show which version of a report (or form) has been used. To do this I want to use the "modified" field that appears in the main database window and in the report or form properties.

I tried using this to populate a text box called 'RevisedDate'

    Dim strFDate As String
    strFDate = "20/Dec/2012"                  ' this works fine
'    strFDate = Me.Properties.Modified       ' this doesn't work

    Me.RevisedDate.Caption = "Format revised: " & strFDate

The hard-code version works fine but I can't figure out the syntaxt for the second version.


Is there a way to capture these properties?

[ketbdnetbp]

roaftech -

You could search Access Help or the Access VBA Reference or just Google the "DateModified Property".

Hope this gets you started.

Jim

[A S MANN]

Try
Dim strFDate As String
strFDate = "20/Dec/2012" ' this works fine
strFDate = Me.Modified.Value
Me.RevisedDate.Caption = "Format revised: " & strFDate

[roaftech]

Thanks Guys.
I have explored the various resources as suggested and also tried the 'Modified' option.

I inserted a mini-routine to test the syntax, derived from the Access help files:

    With Me
        Debug.Print .Name & " " & .DateModified
    End With

I tried several variations such as 'modified', 'modified.value', etc and the most promising seems to be as shown above. I use the old trick of typing all my code in lower case and allowing the interpreter to captialise the keywords that it recognises; 'datemodified' was duly recognised.

However, everytime I run this code I get the "Method or data member not found" error message. If I put a comment marker in front of the first '&' the immediate window shows the filename as expected. Since 'DateModified' is a native keyword, ie no declaration required, why is this happening?
I have some recollection from twenty years ago about linked libraries but I have looked at that and it seems ok.

Any ideas?

[roaftech]

Further to previous response, I dumped the whole example code from
http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

Dim acobjLoop As AccessObject  
For Each acobjLoop In CurrentProject.AllReports     
   With acobjLoop         
      Debug.Print .Name & " - Created " & .DateCreated & " - Modified " & .DateModified     
   End With 
Next acobjLoop

into my code and it all worked at expected, including correctly reporting the latest modification to the report which runs the code.
This rules out any library problems and any problem with getting file data from within the same file.

Still puzzled!