kanory قام بنشر يوليو 7, 2017 مشاركة قام بنشر يوليو 7, 2017 السلام عليكم ورحمة الله وبركاته........... كل عام والجميع بخير وصحة في المثال المرفق كود لحذف جيمع جداول وعلاقات القاعدة الحالية ....... المطلوب كرما منكم التعديل على الكود . لحذف جداول وعلاقات قاعدة خارجية ....... ولكم مني الشكر سلفا ... kanory.rar 1 رابط هذا التعليق شارك More sharing options...
Ibrahim IQ قام بنشر يوليو 7, 2017 مشاركة قام بنشر يوليو 7, 2017 وعليكم السلام تفضل فقط غير مسار القاعدة و اسم القاعدة واسماء الجداول - الاسماء للحزف Delete table.rar 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 7, 2017 مشاركة قام بنشر يوليو 7, 2017 السلام عليكم استبدل هذا السطر Set db = CurrentDb() بهذا السطر Set db = OpenDatabase(Me.txtPath) 2 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 8, 2017 الكاتب مشاركة قام بنشر يوليو 8, 2017 3 ساعات مضت, Rebaz Bahram said: وعليكم السلام تفضل فقط غير مسار القاعدة و اسم القاعدة واسماء الجداول - الاسماء للحزف Delete table.rar اشكرك أخي على جهدك معى ولكن كان المطلوب حذف الجداول من القاعدة علما أن اسماء الجداول متغيرة بتغير القاعدة بارك الله فيك 3 ساعات مضت, صالح حمادي said: السلام عليكم استبدل هذا السطر Set db = CurrentDb() بهذا السطر Set db = OpenDatabase(Me.txtPath) اشكرك أخي بالفعل هذا هو المطلوب ... ولكن يافرحة ما تمت اتضح الكود يحذف كل محتويات القاعدة ما عدا النموذج الذي عليه الكود ............... ولكن السؤال هل يمكن تعديل هذا الكود ليحذف الجداول فقط دون بقية الكائنات .... أو هناك كود أخر بديل ..... بارك الله فيكم جميعا ... 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة صالح حمادي قام بنشر يوليو 8, 2017 أفضل إجابة مشاركة قام بنشر يوليو 8, 2017 7 ساعات مضت, kanory said: ولكن يافرحة ما تمت اتضح الكود يحذف كل محتويات القاعدة ما عدا النموذج الذي عليه الكود ............... تفضل جرب هذا المرفق و إن شاء الله راح تم الفرحة kanory.rar 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 8, 2017 الكاتب مشاركة قام بنشر يوليو 8, 2017 3 ساعات مضت, صالح حمادي said: تفضل جرب هذا المرفق و إن شاء الله راح تم الفرحة kanory.rar أشكرك أخي صالح ..... بارك الله فيك وفي عمرك ووقتك ..... تم المطلوب ..... 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 8, 2017 الكاتب مشاركة قام بنشر يوليو 8, 2017 أسف .... ممكن لو تيسر معك شرح للكود ...... 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 8, 2017 مشاركة قام بنشر يوليو 8, 2017 السلام عليكم 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 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 9, 2017 الكاتب مشاركة قام بنشر يوليو 9, 2017 اشكرك استاذي على الشرح ...... بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان