تكرار Error

اخي VB_SMSM_2005 اولاً

يفضل في حالة معالجة الإخطاء خاصة إذا كنت تتوقع حدوث عدة إخطاء في الدالة التي كتبتها إن تقوم بعمل Function خاص بمعالجة جميع إخطاء البرنامج ثم تعمل بعد ذلك إستدعاء للدالة في حال حدوث خطأ .

الملاحض في الكود الي وضعته أن البرنامج ينفذ عملية CAse_Err: حتى ولو لم يحدث خطأ يعني يقوم بقراءة الكود .

دالة On Error GOTO تستخدم للقفز من مكان حدوث الخطا الى مكان المعالجة المتمثل هنا في كودك ب CAse_Err في هذه الحالة يجب عليك وضع كلمة exit Sub قبل جملة CAse_Err لماذ كي يخرج من الإجراء في حال لم يحدث اي خطأ وإن حدث خطا سينفذ CAse_Err :

كودك بعد التعديل

Sub addloop()

On Error GoTo CAse_Err
Do While Not REC.EOF
A = A + 20
loop

EXit Sub
CAse_Err:

Select Case Err.Number
Case 3516
A = 10
End Select

End Sub

طيب يمكن رقم الخطأ مايكون 3516

لو تعمل إيقاف للبرنامج عند جملة ( select ) عشان تشوف رقم الخطأ ...

on error goto errorhandler
'
'
'
your code
exit sub

errorhandler:
msgbox(err.description)
exit sub
end sub

بس ده حيطلع ال error بالانجليزي بس