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

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

قام بنشر

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

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

ولكن

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

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

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

 

DeleteDatabase.rar

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

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

On Error Resume Next

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

Function DeleteAllFormsAndReportsss()
On Error Resume Next

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

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

اخي  Shivan Rekany

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

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

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

وفقك الله 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information