اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم جميعا

لدي في المرفقات قاعدة بيانات تحتوى وحدة نمطية لحذف كل كائنات قاعدة البيانات .الوحدة النمطية تعمل بصورة ممتازة

ولكن

عند وصولها لحذف النموذج الذي تم منه استدعاء الوحدة النمطية يظهر خطاء 2008

والذي يقول انه لايمكن حذف نموذج مفتوح.... وهذا امر طبيعي 

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

 

DeleteDatabase.rar

قام بنشر (معدل)

افتح module5 وفي اعلى الكود في اسفل الاسم الفونيكشن اكتب
 

On Error Resume Next

اي راح يصير هكذ

Function DeleteAllFormsAndReportsss()
On Error Resume Next

لكن هناك ملاحظة : النموذج اللي بواسطتها تعمل العملية ما يحذف نفسه
تحياتي

تم تعديل بواسطه Shivan Rekany
  • Like 1
قام بنشر

اخي  Shivan Rekany

ياسلام على البساطة

ممكن ان يكون وصف الاجابة " السهل الممتنع "

اشكرك كثيرا للاهتمام والاجابة 

وفقك الله 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information