<div>
Normally you don't create and delete tables. &nbsp;This leads to bloating and other issues and make us question your data structure and normalization.<br><br>Normally, you delete records, or archive them. &nbsp;Add a Date\Time field to track the entries so you can sort/filter/...<br><br><blockquote>It doesnt work&nbsp;</blockquote>What happens exactly?<br><br>If the table is involved in relationships, then you won't be able to delete it until you delete the relationships first.
</div>


Normally you don't create and delete tables.  This leads to bloating and other issues and make us question your data structure and normalization.

Normally, you delete records, or archive them.  Add a Date\Time field to track the entries so you can sort/filter/...



> It doesnt work 

What happens exactly?

If the table is involved in relationships, then you won't be able to delete it until you delete the relationships first.

<div>
Also<br><br><pre><code class="code-1 nolinks" id="code-20-43293999-1">If ("TBackupDatabase " &amp; Format(Date, "dd/mm/yyyy")) &lt; (Date - 3) Then</code></pre>will never work.you're comparing a string against a date?
</div>


Also



If ("TBackupDatabase " & Format(Date, "dd/mm/yyyy")) < (Date - 3) Then

will never work.you're comparing a string against a date?

Giulio Benvenuti

<div>
<div class="content wysiwyg-content fr-view">
<pre><code class="code-10 nolinks" id="code-10-29216870-1">Function delTBackupDatabase()
&nbsp;Dim db As DAO.Database
&nbsp;Dim tdf As DAO.TableDef
&nbsp;Set db = CurrentDb
&nbsp;For Each tdf In db.TableDefs
&nbsp; &nbsp; If ("TBackupDatabase " &amp; Format(Date, "dd/mm/yyyy")) &lt; (Date - 3) Then
&nbsp; &nbsp; &nbsp; &nbsp;DoCmd.DeleteObject acTable, tdf.Name
&nbsp; &nbsp; End If
&nbsp;Next

Access.RefreshDatabaseWindow
End Function</code></pre>Trying to delete all tables after 3 days. It doesnt work. What's wrong?<br>What about to create a new table to make it once every day?
</div>
</div>



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?

Delete all tables except last day

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.