ماهو أفضل كود لتجنب الأخطاء؟

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

بنستعمل كود

On Error Resume Next

لألغاء ظهور أى أخطاء ومن الخطأ أستعماله الا فى الحالات التى يجب فيها ألغاء ظهر أى أخطاء مثل فى حدث الـ Form_Resize و الكود :

On Error GoTo Err_Trap

'Your code here.

Exit Sub ' If sub , Exit Function if function & Exit Property if property
Err_Trap :
MsgBox "Error occurred , Error Number " & Err & " , Description : " & Err.Description ,,"Error" ' Or whatever you want to say.
Resume Next ' <- If you want the code to continue after the error.

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

مشكور أخي محمد سيد ، وملاحظة للأخ صاحب الموضوع :

الكود:

اقتباس

On Error GoTo .....

يستخدم مرة واحدة فقط في كل إجراء ولا يمكن إستخدامه مرتين بنفس الإجراء

شكرا لكم جميعا

لكن أخي محمد لم أفهم الكود الثاني فهل يمكن توضيحه

On Error GoTo Err_Trap

معناها : أمر للـ VB للذهاب الى ( تنفيذ ) الجزء المسمى Err_Trap

Exit Sub

معناها : أيقاف تنفيذ الكود و الهدف منها ايقاف تنفيذ الـ Err_Trap فى حالة عدم وقوع أخطاء

و هنا هى Exit Sub فى حالة ما أن كنا بـ Sub و نغيرها الى Exit Function أن كنا بـ Function أو Exit Property أن كنا بـ Property

الأكواد بعد كلمة Err_Trap: هى ما نريد عمله فى حالة وجود أخطاء , وفى الغالب نفضل MsgBox و يمكننا أستعمال Err للدلالة على رقم الخطأ و Err.Description للدلالة على وصف الخطأ.

Resume Next

تستعمل فى حالة أن كنا نريد أن يستمر تنفيذ الكود بعد السطر المحتوى على خطأ.

السيناريو بالكامل : نخبر الـ VB بتنفيذ الـ Err_Tap فى حالة ظهور أخطاء , يبدأ الـ VB بالتنفيذ و أذا لم تحدث أخطاء ينتهى التنفيذ عند Exit Sub , و فى حالة ظهور أخطاء يتجاهل الـ VB أى شئ حتى الـ Exit Sub باحثا عن الـ Err_Trap لينفذه , و وجود Resume Next للعودة الى السطر التالى للسطر المحتوى على خطأ ( أن كنا نريد ذلك).

كلمة Err_Trap يمكن أن تتغير الى أى شئ ليس من الـ Keywords

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

مشكورين اخواني علي هده الافادة