• 0
abo issa

كود لحذف مكونات النموذج

سؤال

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

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

DoCmd.DeleteObject acTable, "Tb1"
DoCmd.DeleteObject acTable, "TB2"
DoCmd.DeleteObject acTable, "TB3"
و ان لا يُظهر ما في النموذج من عناصر لعدم امكانية حذف النماذج كون الوحدات النمطية محمية بكلمة سر كمثال

Me.Command101.Visible = False

و ما اطلبه هنا هو كود لحذف عناصر النموذج بدلا من اخفائها مع رسالة تظهر توضح انه تم حذف عناصر النموذج

و ان كان بالامكان امر واحد لحذف جميع العناصر مرة واحدة بدل ذكر اسمها واحدا واحدا

 

بارك الله فيكم

و السلام عليكم

 

تم تعديل بواسطه abo issa
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

اخي الفاضل

 

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

ايضا اذا رغبت في حذف بعض عناصر النموذج فلا يوجد اي مشكلة سواء تختار عناصر محدده او جميع عناصر النموذج دفعة واحده .

 

ولكن اين يكمن الخطأ في ذلك ؟؟؟؟

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

ايضا هناك مشكلة ستقع فيها وهي عندما تقوم بحذف عناصر النموذج سيتم حذفها من على سطح النموذج اما جميع الأكواد الخاصة بهذه العناصر سواء كانت مربعات نص او ازرار اوامر فستبقى جميع الأكواد بداخل النموذج في جميع الأحداث الخاصة بها وعند فتح النموذج سيظهر لك العديد من الأخطاء بسبب عدم توفر المصدر اولا وكذلك وجود اوامر في النموذج ليس لها معرفات .

 

ايضا هناك نقطة هامه وهي عدم استطاعتك على حذف جميع الأكواد الغير مستخدمه بسبب حذف العناصر لأن الواحدات النمطية ستكون محمية بكلمة سر وهنا يجب ان تكون قاعدة البيانات غير محمية بواسطة كلمات سر الواحدات النمطية .

 

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

 

 

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل

 

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

ايضا اذا رغبت في حذف بعض عناصر النموذج فلا يوجد اي مشكلة سواء تختار عناصر محدده او جميع عناصر النموذج دفعة واحده .

 

ولكن اين يكمن الخطأ في ذلك ؟؟؟؟

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

ايضا هناك مشكلة ستقع فيها وهي عندما تقوم بحذف عناصر النموذج سيتم حذفها من على سطح النموذج اما جميع الأكواد الخاصة بهذه العناصر سواء كانت مربعات نص او ازرار اوامر فستبقى جميع الأكواد بداخل النموذج في جميع الأحداث الخاصة بها وعند فتح النموذج سيظهر لك العديد من الأخطاء بسبب عدم توفر المصدر اولا وكذلك وجود اوامر في النموذج ليس لها معرفات .

 

ايضا هناك نقطة هامه وهي عدم استطاعتك على حذف جميع الأكواد الغير مستخدمه بسبب حذف العناصر لأن الواحدات النمطية ستكون محمية بكلمة سر وهنا يجب ان تكون قاعدة البيانات غير محمية بواسطة كلمات سر الواحدات النمطية .

 

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

 

 

 

بالتوفيق

اختي الفاضلة

بارك الله فيك و رعاك

في سبيل توفير الحماية لقاعدة البيانات كان هناك خيارات كثيرة اخذت ببعضها و زيادة في ذلك في حال تم فكها و اختراقها فكرت بطريقة لحذف بعض عناصرها

و اليك اختي الكريمة هذه القاعدة التي سبق و ان ارفقتها لك في سؤال سابق عن امر غير هذا

كود الوحدة النمطية 123 و طبعا بالتأكيد انت تستطيعين فتحها بدونه

عند فتح اي نموذج دون ان يكون النموذج الرئيسي مفتوح سيتم حذف الجداول و في Form1 سيظهر فارغا لا شئ فيه اي ان القاعدة بعد محاولة العبث بها ستكون عديمة الفائدة

 

حقيقة وجدت ان خير وسيلة لاتعلم هو ان احاول التطبيق على هذه القاعدة .

بارك الله فيك و جزاك خيرا استاذتنا الكريمة

company.rar

تم تعديل بواسطه abo issa
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

هنا اختي الكريمة في المرفق الجديد تم التعديل بحيث يكون هناك نموذج يبقى بالخلفية و اعتقد انه يوجد كود لجعله مخفي و انتي اخبر و اعلم بهذا و اود تعلمه منك ( طالب العلم طماع :) و الطمع دائما يكون بالاجاويد )

لجأت لجعل النموذج startup12 يفتح مرة اخرى حتى اتمكن من حذف جميع الجداول التي لم يتم حذفها لارتباطها بالنماذج و من بعدها يتم غلق القاعدة و لا يبقى الا النماذج لا يمكن حذفها لوجود كود فيها و له كلمة سر و لكني في قاعدتي جعلت العمليات الحسابية جميعها ( و هي كثيرة و اساسية في البرنامج ) تتم من خلال الكودات اي ان احد لا يستطيع معرفة كيف تجري الامور بداخل النماذج الا ان استطاع فك كلمة سر الوحدات النمطية .

company.rar

تم تعديل بواسطه abo issa
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

يظهر ان الاخت الفاضلة زهرة بارك الله بها مع مشاغلها و كثرة الطلبات لم تنتبه لردي هنا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الملف به اكواد ان لم يتم فتح الفورم المسمى startup2

يتم مسح الجداول والفورمات المحددة 

 

وللعلم فكسر الحماية سهل ويمكن الوصول للاكواد 

 

وهذه صورة لمحرر الاكواد

 

 

 

 

 

post-235165-0-59968000-1361121499.png

post-235165-0-82713700-1361121517.png

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الملف به اكواد ان لم يتم فتح الفورم المسمى startup2

يتم مسح الجداول والفورمات المحددة 

 

وللعلم فكسر الحماية سهل ويمكن الوصول للاكواد 

 

وهذه صورة لمحرر الاكواد

اخي الكريم عبد الله

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

اعلم ان الحماية في الاكسس ضعيفة و لكني اسعى للوصول الى سلسلة من الحمايات تجعل الامر اصعب على من يحاول كسرها

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

بالنسبة للمرفق فقد وضعت في مشاركتي رقم الكودات السري 123 .

و في مرحلة لاحقة بالتأكيد ارغب في تعلم كيفية فك الوحدات النمطية المحمية فقد بدات هنا بالرغبة في وضع حلول لقاعدة البيانات الخاصة بي و لكن الآن لدي رغبة في التعلم اكثر و اكثر

شكرا لردك و ارجو ان كان لديك ما اطلبه ان تدرجه هنا

و السلام عليكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .