Step #1
create this table as tblObjectsDescribed
tblObjectsDescribed type describe
-32768 form
-32766 macro
-32764 report
-32761 module
1 table
5 query
8 relationships
step #2
Create this query: SELECT tblObjectsDescribed.describe,
MSysObjects.Connect, MSysObjects.DateCreate, MSysObjects.DateUpdate,
MSysObjects.Name, MSysObjects.Database
FROM MSysObjects LEFT JOIN tblObjectsDescribed ON MSysObjects.Type =
tblObjectsDescribed.type
ORDER BY tblObjectsDescribed.describe DESC;
When the query is run, you will see the dates of the tables. Be sure to
avoid doing anything with the Msys.. tables!
That information, after manipulation, can then be used to delete the tables
or, perhaps, rename them so that code like this can delete them (this is not
my code ..I picked it up somewhere):
Access's MSysObjects system table contains information about all the tables
in a database. You can use this information to delete tables or queries that
meet specific criteria-and you don't need to unhide the system table to do
so. For instance, you can use the code shown below to delete all tables with
a name that begins with a "TEMP_" tag. If you want to change the code to
delete queries, simply set [Type] equal to 5 and change the acTable constant
to acQuery.
Public Function DelTable()
On Error GoTo DelTable_Err
Do While DCount("[Name]", "MSysObjects", _
"[Type]=1 And [Name] Like ""TEMP_*""") > 0
DoCmd.DeleteObject acTable, DFirst("[Name]", _
"MSysObjects", "[Type]=1 And [Name]
Like ""TEMP_*""")
Loop
DelTable_Exit:
Exit Function
DelTable_Err:
MsgBox Error$
Resume DelTable_Exit
End Function
Bob
