فتى الوادي قام بنشر مارس 1, 2005 مشاركة قام بنشر مارس 1, 2005 (معدل) السلام عليكم ... إذا كان لدي جدولين أو أكثر وهو مرتبطة بعلاقة مع بعضها .. وأحاول أن أحذف هذه الجدول بواسطة ماكرو .. يطلع لي رسالة : فهل هناك كود يقوم بحذف العلاقات بين الجداول ( جدولين أو أكثر ) محددة في الكود ... ثم يقوم بأستيراد جدوال من قاعدة بيانات ( محد مسارها في الكود ) ونسخها في القاعدة الحالية التي يوجد بها الكود ؟؟!! والمثال مرفق هنا : المثال هنا تم تعديل مارس 1, 2005 بواسطه فتى الوادي رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر مارس 2, 2005 الكاتب مشاركة قام بنشر مارس 2, 2005 الموضوع للرفع .... رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 2, 2005 مشاركة قام بنشر مارس 2, 2005 السلام عليكم أخي فتى الوادي ، بارك الله فيك 1. لقد قمت بإنشاء اقتران عام تطلبه ممرا له اسم العلاقة ويقوم بحذفها برمجيا. 2. في البرنامج المرفق يمكنك اختيار العلاقة التي تريد حذفها من كومبو وهو يطلب الاقتران السابق ويحذف العلاقة. مع الاحترام DeleteRelationByVBA.rar رابط هذا التعليق شارك More sharing options...
أبو هادي قام بنشر مارس 2, 2005 مشاركة قام بنشر مارس 2, 2005 السلام عليكم روعة أخي خضر ، بارك الله فيك . تحياتي . رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر مارس 2, 2005 الكاتب مشاركة قام بنشر مارس 2, 2005 السلام عليكم ... سأجرب يا اخي خضر .... بارك الله فيك وجزاك الله خيراً .. مقدماً رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر مارس 2, 2005 الكاتب مشاركة قام بنشر مارس 2, 2005 جميل جداً يا اخي خضر ... لكن انا اريد كود يقوم بالأتي : 1- حذف الجداول الموجودة في القاعدة الحالية ( سواءً كانت بعلاقة أو بغير علاقة ) 2- استيراد جداول من قاعدة محدد مسارها في الكود 3- وسلامتك ومن يقرا ومن يقول . رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر مارس 3, 2005 الكاتب مشاركة قام بنشر مارس 3, 2005 السلام عليكم ايه الحكاية يا جماعة .. حبكت على كذا ... طيب : لو فيه تعديل بسيط على كود الأخ خضر .. وهو أن يتم حذف العلاقات اللي بين الجدول .. ثم حذف الجداول .. ونترك قضية استيراد الجداول بواسطة الماكرو ..... والسلام عليكم . رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 3, 2005 مشاركة قام بنشر مارس 3, 2005 السلام عليكم أخي فتى الوادي ، بارك الله فيك المثال التالي يحذف الجداول و/أو العلاقات حسب طلبك. مع الاحترام DeleteRelationOrTableByVBA.rar رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر مارس 3, 2005 الكاتب مشاركة قام بنشر مارس 3, 2005 (معدل) السلام عليكم ... أخي خضر .... أعجز عن شكرك ... غفر الله لي ولك .... لكن أنا أريد حذف الجداول والعلاقات بدون أن اقوم بأختيارها .... يعني يحذف الجداول الموجودة في القاعدة مها كان عددها ومهما كان علاقاتها .... لقد اطلت عليك .... لكن احتسب الأجر ... والسلام عليكم . تم تعديل مارس 3, 2005 بواسطه فتى الوادي رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر مارس 5, 2005 الكاتب مشاركة قام بنشر مارس 5, 2005 السلام عليكم .. مازلت أنتظر بفارغ الصبر ... وعلى أحر من الجمر ... :') :) :h :o :pp: :p رابط هذا التعليق شارك More sharing options...
ashraf قام بنشر مارس 5, 2005 مشاركة قام بنشر مارس 5, 2005 (معدل) اتبع ما يلي : 1- قم بإنشاء وحدة نمطية وضع فيها الكود التالى : CODEFunction 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- ضع زر فى نموذج جديد وفى حدث عند النقر ضع ما يلي : CODE=DeleteAll() وهي من منشء التعبيرللدالة المذكوره أعلاه . جرب وشوف النتيجة . ستجد إن شاء الله الجداول كلها تم حذفها . تم تعديل مارس 5, 2005 بواسطه ashraf رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.