وجود أكثر من خطأ في حدث واحد أو أوprocedure

[حكمت العراقي]

السلام عليكم

ارجو من الأساتذة الكرام مساعدتي في حل هذه المشكلة

في حالة استخدام الكود

 On error goto

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

ولكن في حالة حدوث خطأ آخر يتم الوقوف على الخطأ دون الذهاب إلى المسار المحدد في on error goto

[عمر ضاحى]

انت ممكن تكتب السطر ده 

On Error Resume Next

فى بدايو الكود عندك 

وهو هيتخطى كل الاخطأ ولا يظهر شئ منها للعميل

[Eng.Qassim]

19 minutes ago, حكمت العراقي said:

السلام عليكم

ارجو من الأساتذة الكرام مساعدتي في حل هذه المشكلة

في حالة استخدام الكود

 On error goto

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

ولكن في حالة حدوث خطأ آخر يتم الوقوف على الخطأ دون الذهاب إلى المسار المحدد في on error goto

هذا الموضوع يفيدك

 

[د.كاف يار]

يجب عليك تحديد ارقام الخطأ و وضع التصحيح لها كأفضل طريقة للتعامل مع الخطأ

تفضل استخدم و سجل الأخطاء المحتملة و ضع لها الحلول المناسبة

On Error GoTo ErrH


ضع الكود كامل هنا

Exit Sub
ErrH:
Select Case Err.Number

Case = 0 ' رقم الخطأ
' ضع الإجراء التصحيحي للخطأ

Case = 0 ' رقم الخطأ
' ضع الإجراء التصحيحي للخطأ

End Select

 

[jjafferr]

وعليكم السلام 🙂

 

اذا فهمت قصدك:

في بداية الكود عندك كود هكذا مثلا (اخذته من احد برامجي 🙂 ) :

1. نستعمل On Error Goto err_Form_Close في البداية ، بحيث اي خطأ يحدث في الكود سيذهب الى السطر :err_Form_Close
2. من مكان هناك ، بدل الامر Goto ، نستعمل الامر Resume
3. فبدل عن  Goto Exit_Form_Close ، نستعمل Resume Exit_Form_Close

 

Private Sub Form_Close()
On Error GoTo err_Form_Close

.....

Exit_Form_Close:

Exit Sub
err_Form_Close:

    If Err.Number = 2450 Then
        'ignor
        Resume Next	'تخطى هذا الخطأ وانتقل الى السطر التالي
    ElseIf Err.Number = 52 Then
        'Folders don't exist, its a new location, ignor
        Exit Sub	'اخرج من الحدث
    ElseIf Err.Number = 76 Then
        'path not found
        MsgBox "مسار مجلد النسخ الاحتياطية غير موجود على حاسبتك"
        Resume Exit_Form_Close	' Exit_Form_Close اذهب الى السطر
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_Form_Close
      
      
End Sub

 

جعفر

[حكمت العراقي]

اشكركم على جهودكم المبذولة للمساعدة

[Eng.Qassim]

1 hour ago, حكمت العراقي said:

اشكركم على جهودكم المبذولة للمساعدة

اهم شي استاذ حكمت ان تتعرف على الخطأ .. وليس ان تتجاوزه

[حكمت العراقي]

ماذا لو تطلب الامر الذهاب الى سطر معين حسب كل خطأ

ماذا لو تطلب الامر الذهاب الى سطر معين حسب كل خطأ

هنا لايمكن استخدام Resume Next

[jjafferr]

6 ساعات مضت, حكمت العراقي said:

ماذا لو تطلب الامر الذهاب الى سطر معين حسب كل خطأ

هل قرأت مشاركتي بتمعن ، ففيه الجواب على سؤالك 🙂

 

جعفر

[حكمت العراقي]

استاذ جعفر

هل تقصد نستخدم Resume بدلا من goto يحل المشكلة

علما انني اريد تجاوز الخطأ والذهاب إلى سطر رقم مثلا 1

اي هل يمكن استخدام resume 1 بدلا من goto 1

وشكرا.

[jjafferr]

خلينا ندخل في الثقيل ، واعطنا مثال ، علشان جوابنا يكون واضح 🙂

 

جعفر