How to delete all records from multiple tables with VBA loop? Access 2010

Question

I want a VBA loop function that will delete all records from any table with a name like \"d2s_*\".

I\'ve found code to delete all records:

DoCmd.SetWarni         


        

Answer 1

Try:

Dim T As TableDef
DoCmd.SetWarnings False
For Each T In CurrentDb.TableDefs
    If T.Name Like "d2s_*" Then
        DoCmd.RunSQL "DELETE * FROM " & T.Name
    End If
Next T
DoCmd.SetWarnings True