بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الأخوة والأخوات مشرفي وأعضاء المنتدى الكريم قمت بتصميم قاعدة بيانات وقمت بإدارج كود ووضعته في نموذج بدء التشغيل حيث يعمل هذا الكود على حذف الجداول والعلاقات بين الجداول في تاريخ معين وهذا هو الكود : Private Sub Form_Load() If Date = #10/1/2012# Then 'لحذف العلاقات بين الجداول Dim DB As DAO.Database, i As Integer Dim totalRelations As Integer Dim RS As Recordset Dim TableName As String Set DB = CurrentD