كود حذف الجداول المرتبطة فى اكسس 2010

[tiger wanted]

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته 

لو سمتحتم اريد كود حذف جميع الجداول المرتبطة فى اكسس 2010 ولكم الشكر والتقدير

[kanory]

4 ساعات مضت, tiger wanted said:

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته 

لو سمتحتم اريد كود حذف جميع الجداول المرتبطة فى اكسس 2010 ولكم الشكر والتقدير

هل جربت هذا الكود ؟؟؟؟؟؟

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

 

[tiger wanted]

اشكرك يا اخى الكود رائع وجارى تطبيقه على عدد من الجداول المرتبطة وشكرا

[kanory]

بالتوفيق ....