حذف جميع الجداول من قاعدة البيانات

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

أخوتي في الله

بمناسبة العيد الأضحى المبارك

أسمحوا لي أن أقدم لكم هذه الفكره البسيطه

وكل عام و أنتم بخير ( عساكم من عواده )

أردت أن أصنع كودا يقوم بحذف جميع الجداول الموجوده بالقاعده

اليكم الكود الذي تم صنعه

On Error Resume Next
Dim db As DAO.Database, t As DAO.TableDef, i As Integer
Dim totalRelations As Integer
Set db = CurrentDb()

totalRelations = db.Relations.Count
If totalRelations > 0 Then
For i = totalRelations - 1 To 0 Step -1
db.Relations.delete (db.Relations(i).Name)
Next i
Debug.Print Trim(Str(totalRelations)) + " Relationships deleted!"
End If


For i = db.TableDefs.Count - 1 To 0 Step -1
Set t = db.TableDefs(i)
If Not t.Name Like dbSystemObject Then
db.TableDefs.delete t.Name

End If
Next i

db.Close

الكود مكون من جزئين

الجزء الأول يقوم بحذف العلاقات إن وجدت

الجزء الثاني يقوم بحذف الجداول نهائيا

منتظر ردكم الكريم

xx.rar