هل جربت هذا الكود ؟؟؟؟؟؟
Dim FrontObj As AccessObject, FrontDB As Object
Set FrontDB = Application.CurrentData
For Each FrontObj In FrontDB.AllTables
If Left(FrontObj.Name, 4) <> "MSys" Then
DoCmd.DeleteObject acTable, FrontObj.Name
End If
Next FrontObj
Set FrontDB = Nothing