طلب شرح ال error handling

اخي العزيز ارجو ان اقوم هنا بإفادتك

في اي sub يمكن حدوث اخطاء عند تشغيل البرنامج ويطلق عليها error run time وبالتالي فأن البرنامج يتوقف عند هذا الخطأ ولذلك نضع في بداية الsub الكود التالي :

on error goto mysol

حيث mysol هو اسم المكان الذي سيذهب إليه عند حدث خطأ ويمكن تسميته مكا تريد ليصبح الكود هكذا

privat sub xxxxxxxx
on error goto mysol





exit sub
mysol:


end sub

وفي الجزء الخاص mysol نستخدمين خاصيتين هما

err.number حيث نظهر قيمتها في msgbox وهي تعبر عن رقم الخطأ الحادث

err.description ونظهر قيمتها في msgbox وهي تعبر عن وصف الخطأ الذي حدث

بحيث يصبح الكود كالتالي

privat sub xxxxxxxx
on error goto mysol

يوضع هنا الاكواد المختلفة لهذا الجزء



exit sub
mysol:
msgbox err.number
msgbox err.description

end sub

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