كيف يمكن حذف جميع جداول قاعدة خارجية

[kanory]

السلام عليكم ورحمة الله وبركاته........... كل عام والجميع بخير وصحة 

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

kanory.rar

[Ibrahim IQ]

وعليكم السلام

تفضل فقط غير مسار القاعدة و اسم القاعدة واسماء الجداول - الاسماء للحزف

Delete table.rar

[صالح حمادي]

السلام عليكم

استبدل هذا السطر

Set db = CurrentDb()

بهذا السطر

 Set db = OpenDatabase(Me.txtPath)

[kanory]

3 ساعات مضت, Rebaz Bahram said:

وعليكم السلام

تفضل فقط غير مسار القاعدة و اسم القاعدة واسماء الجداول - الاسماء للحزف

Delete table.rar

اشكرك أخي على جهدك معى ولكن كان المطلوب حذف الجداول من القاعدة علما أن اسماء الجداول متغيرة بتغير القاعدة بارك الله فيك

 

3 ساعات مضت, صالح حمادي said:

السلام عليكم

استبدل هذا السطر

Set db = CurrentDb()

بهذا السطر

 Set db = OpenDatabase(Me.txtPath)

اشكرك أخي بالفعل هذا هو المطلوب ... ولكن يافرحة ما تمت اتضح الكود يحذف كل محتويات القاعدة ما عدا النموذج الذي عليه الكود ............... ولكن السؤال هل يمكن تعديل هذا الكود ليحذف الجداول فقط دون بقية الكائنات .... أو هناك كود أخر بديل ..... بارك الله فيكم جميعا ...

[صالح حمادي]

7 ساعات مضت, kanory said:

ولكن يافرحة ما تمت اتضح الكود يحذف كل محتويات القاعدة ما عدا النموذج الذي عليه الكود ...............

تفضل جرب هذا المرفق و إن شاء الله راح تم الفرحة

 

kanory.rar

[kanory]

3 ساعات مضت, صالح حمادي said:

تفضل جرب هذا المرفق و إن شاء الله راح تم الفرحة

 

kanory.rar

أشكرك أخي صالح ..... بارك الله فيك وفي عمرك ووقتك ..... تم المطلوب ..... 

[kanory]

أسف .... ممكن لو تيسر معك شرح للكود ......

[صالح حمادي]

السلام عليكم

For Each tbl In app.CurrentData.AllTables للإنتقال بين جميع جداول القاعدة
    If Left(tbl.Name, 3) <> "MSy" Then    إذا كانت الأحرف الثلاثة الأولى من اسم الجدول تختلف عن MSyمن أجل عدم حذف جداول النظام
       app.DoCmd.DeleteObject acTable, tbl.Name هذا الكود يقوم بحذف الكائن من نوع جدول
    End If
Next tbl

 

[kanory]

اشكرك استاذي على الشرح ...... بارك الله فيك