*كود* حذف كائن من القاعدة بالكود

بواسطة هذا الكود يمكنك حذف ما شئت من كائنات قاعدة البيانات

DoCmd.DeleteObject acForm, "aaaaa5"

مع مراعاة استبدال نوع الكائن Form - Table - Query

وكذلك اسم الكائن والذي رمزت له aaaaa5

والله الموفق

أبو بشاير

أخي الحبيب Access XP جزاك الله خيرآ جواب سهل ممتنع ولكن ماذا إذا أردت أن أحذف جميع الجداول بدون ذكر إسم كل جدول هل هذا ممكن ؟ كيف

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

وجزاكم الله ألف خير(f)

بالنسبة لمسح الكل فيمكن عمل Loop بنفس طريقة الطباعة

فى موضوع

*كود* طباعة هيكل الجداول و الاستعلام و الحقول

الموجود فى الارشيف

اما عن العلاقات

فأعتقد أنه يمكن عمل مسح لللاقات بنفس طريقة انشاؤها

راجع الارشيف : موضوع

*كود* كود لعمل العلاقات مع تحديد خواص تتالي الحذف و التحديث

لم أبحث عن الكود و لكن ما دامت يمكن انشاؤها بالكود فغالبا يمكن مسحها بالكود

أيضا هذا كود لمسح الجداول لكي من ال DAO و ال ADO

مع ضرورة مراجعة المراجع

Public Sub DeleteTableADO()             ' ADO Version
  Dim cnnLocal As ADODB.Connection
  Dim cmdLocal As ADODB.Command

  ' Create Connection Object and open it on CHAP28.MDB
  Set cnnLocal = New ADODB.Connection

  cnnLocal.ConnectionString = "dsn=Chap28;UID=admin;PWD=;"
  cnnLocal.Open

  Set cmdLocal = New ADODB.Command
  Set cmdLocal.ActiveConnection = cnnLocal
  cmdLocal.CommandText = "DROP TABLE tblFoods"
  cmdLocal.Execute
End Sub

Sub DeleteTableDAO()               ' DAO Version
  Dim dbsLocal As Database

  Set dbsLocal = CurrentDb
  dbsLocal.TableDefs.Delete "tblFoods"
End Sub

جرب كل هذا و أخبرنا بالنتيجة

فى انتظارك

أشكرك من أعماق قلبي على جهودك الجبارة و الظاهرة بالمنتدى

جربت الكود الذي أشرت إليه كما قلت لي وقد عمل بشكل جيد وهذا هو

Private Sub DeleTables_Click()
  Dim dbsLocal As Database
  Dim tblLocal As TableDef

  Set dbsLocal = CurrentDb
  For Each tblLocal In dbsLocal.TableDefs

    Select Case tblLocal.Name
    Case "MSysAccessObjects" 'لايمكن حذفه
    Case "MSysAccessXML" 'لايمكن حذفه
    Case "MSysACEs" 'لايمكن حذفه
    Case "MSysObjects" 'لايمكن حذفه
    Case "MSysQueries" 'لايمكن حذفه
    Case "MSysRelationships" 'لايمكن حذفه
    Case Else ' غير ذلك
         DoCmd.DeleteObject acTable, tblLocal.Name
    End Select

  Next tblLocal
  MsgBox "تم حذف جميع جداول القاعدة"
End Sub

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

قام أخوكم محسن محمد باعداد هذا المثال

مثال محسن اضغط بالزر الايمن واختار حفظ باسم