في حالتك هذه أ/ @TAMER AGOOR
يمكنك اختصار الكود ووضع أسماء الجداول التي سيتم حذف بياناتها في مصفوفة
myT = Array("table1", "table2", "table3")
DoCmd.SetWarnings False
For Each T In myT
DoCmd.RunSQL "DELETE * FROM " & T & ";"
Next T
DoCmd.SetWarnings True
بالتوفيق