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.

Application.Currentdata.AllTables(0).DateModified


"AirgasRob" wrote:

> 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


"Klatuu" wrote:

> Application.Currentdata.AllTables(0).DateModified
>
>
> "AirgasRob" wrote:
>
> > 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.

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.

"Klatuu" wrote:

> 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
>
>
> "Klatuu" wrote:
>
> > Application.Currentdata.AllTables(0).DateModified
> >
> >
> > "AirgasRob" wrote:
> >
> > > 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.

Interesting. I ran it just fine on my system before I sent it.

Acess 2003/XP Pro

"AirgasRob" wrote:

> 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.
>
> "Klatuu" wrote:
>
> > 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
> >
> >
> > "Klatuu" wrote:
> >
> > > Application.Currentdata.AllTables(0).DateModified
> > >
> > >
> > > "AirgasRob" wrote:
> > >
> > > > 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.