troubleshooting Question

Delete all tables except last day

Avatar of Giulio Benvenuti
Giulio BenvenutiFlag for Italy asked on
VBA* Access
3 Comments1 Solution6 ViewsLast Modified:
Function delTBackupDatabase()
 Dim db As DAO.Database
 Dim tdf As DAO.TableDef
 Set db = CurrentDb
 For Each tdf In db.TableDefs
    If ("TBackupDatabase " & Format(Date, "dd/mm/yyyy")) < (Date - 3) Then
       DoCmd.DeleteObject acTable, tdf.Name
    End If
 Next

Access.RefreshDatabaseWindow
End Function
Trying to delete all tables after 3 days. It doesnt work. What's wrong?
What about to create a new table to make it once every day?
ASKER CERTIFIED SOLUTION
Daniel PineaultPresident / Owner CARDA Consultants Inc.
Join our community to see this answer!
Unlock 1 Answer and 3 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros