حذف علاقات الجداول بالكود

السلام عليكم ..

مازال الموضوع للرفع :

المطلوب يا أخواني : مساعدتي في الآتي :

كود يقوم بالآتي :

1- حذف الجداول وعلاقاتها في القاعدة الحالية

2- استيراد جدول وعلاقاتها من قاعدة بيانات محدد مسارها مسبقاً .

3 - وسلامتكم

السلام عليكم ...

أيش يا جماعة الحكاية .. هي حبكت على كذا ّ!!!!

وين النخبة .... وين الأساتذة ؟؟!؟!؟

:s :unsure: :wacko: :blink: :(

ما زال الموضوع للرفع ......

وما زلت افتح المنتدى كل دقيقة .. أتحرى الرد والأجابة !

أخي الكريم / فتى الوادي

أنتة لم تقم بمراعاة قوانين المنتدى

حيث ان المشاركة موجودة في منتدى آخر

وهو منتديات أوفسينا

انتة لم تتقيد بالقوانين وهي

في هذا الرابط

/index.ph...ndpost&p=203211

وهذا رابط المشاركة في منتديات أوفسينا

http://www.officena.com/ib/index.php?showt...indpost&p=30314

ياريت تراعي قوانين المنتدى

ولكم خالص التحيات ،،،

عبدالمانع

السلام عليكم ..

أخي الكريم عبدالمانع :

هل ترى هذا هو سبب عدم التفاعل مع الموضوع ؟!!!

انا لو اعرف منتديات اخرى مثل هذا المنتدى لرفعت الموضوع فيها كلها :D

ثم ان هناك ملاحظات من وجهة نظري أرى أنها أهم من ملاحظة تكرار المشاركة في أكثر من منتدى وهي :

ان يكون عنوان المشاركة دالاً على المشاركة نفسها

وهذه لم أرى أن المشرفين متقيدين بها ..

على العموم هذا المنتدى هو جامعتى الأولى قبل أي منتدى من ايام الأخ ( مسافر وابو حمود ... )

ومازال الموضوع للرفع

اتبع ما يلي :

1- قم بإنشاء وحدة نمطية وضع فيها الكود التالى :

Function DeleteAll()
    Dim dbs As DAO.Database
    Dim i As Integer
    Set dbs = CurrentDb

    ' Loop backwards through relations
    For i = dbs.Relations.Count - 1 To 0 Step -1
        dbs.Relations.Delete dbs.Relations(i).Name
    Next i

    ' Loop backwards through tabledefs
    For i = dbs.TableDefs.Count - 1 To 0 Step -1
        If Left(dbs.TableDefs(i).Name, 4) <> "MSys" Then
            dbs.TableDefs.Delete dbs.TableDefs(i).Name
        End If
    Next i

    Set dbs = Nothing
End Function

2- ضع زر فى نموذج جديد وفى حدث عند النقر ضع ما يلي :

=DeleteAll()

وهي من منشء التعبيرللدالة المذكوره أعلاه .

جرب وشوف النتيجة . ستجد إن شاء الله الجداول كلها تم حذفها .

مثال مرفق على ماذكر أعلاه .

DeleteRelation_Ash.rar