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

حدوث خطاء 2008 عند تشغيل كود حذف كل كائنات قاعدة البيانات


SAROOK

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

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

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

ولكن

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

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

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

 

DeleteDatabase.rar

رابط هذا التعليق
شارك

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

On Error Resume Next

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

Function DeleteAllFormsAndReportsss()
On Error Resume Next

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

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

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

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



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

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

Important Information