currentdata.AllTables(0).DateModified

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have four linked tables in my Access 2000 db. I would like to check all
tables and see the last time they changed. I am hoping to try and detect if
the data is new every day. Using the information I would build a table to
display the results, which could then be displayed on a form. Any help would
be appreciated.
 
Oops! I just realized I did not send the complete answer, sorry, but here it
is:

Sub WhenChanged()
Dim tbls As AllTables
Dim intCnt As Integer

Set tbls = Application.CurrentData.AllTables
For intCnt = 0 To tbls.Count - 1
Debug.Print tbls(intCnt).Name & " - " & tbls(intCnt).DateModified
Next intCnt

End Sub
 
OK the more I dable the more I realize I need to take some classes.
When I run that code I get a runtime error 438.
 
Back
Top