تكرار Error

هذا الموضوع معدل انا أخطأت فى تكرارة نسيت أوضح شغلة لذلك أرجو من المراقبين لا يحذف

:(

السلام عليكم

عندى مشكلة فى أمر On Error GOTO Err_Case

مثال على المشكلة لكن هذا الكود لا يوجد مشكلة فية ولكن بس للتوضيح تركيب الكود

Sub addloop()

On Error GoTo CAse_Err

Do While Not REC.EOF

A = A + 20

loop

CAse_Err:

Select Case Err.Number

Case 3516

A = 10

End Select

End Sub

-- تفصيل المشكلة

الأن الكود الأعلى نفترض به مشكلةعندما تتكرر المشكلة لا يوجد تفاعل بـجملة On Error GoTo CAse_Err هل هذا عطل فى الفجوال عندى أو ماذا

و رغم ذلك نفس رقم المشكلة و انا أعمل فى المرة الاولى فى ظهور المشكلة أن يذهب إلى مكان لحل المشلكة مثل ان يذهب إلى CAse_Err: فى كل مرة تحصل المشكلة ولو نفسها

فإنة يعطى Error كأن الكود لا يوجد به On Error GoTo CAse_Err

;) يارب تكونوا فهمتوني الموضوع فى غاية التعقيد

ورونى شطارتكم

ملاحظة : المشكلة هذه فى المرة الثانية فى ال Loop الثاني أما الاول مرة لا يوجد أى اشكالية