حكمت العراقي قام بنشر أغسطس 31, 2021 مشاركة قام بنشر أغسطس 31, 2021 السلام عليكم ارجو من الأساتذة الكرام مساعدتي في حل هذه المشكلة في حالة استخدام الكود On error goto يتم التنفيذ في حالة الخطأ الأول بالذهاب إلى المسار المحدد بعد goto ولكن في حالة حدوث خطأ آخر يتم الوقوف على الخطأ دون الذهاب إلى المسار المحدد في on error goto رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أغسطس 31, 2021 مشاركة قام بنشر أغسطس 31, 2021 انت ممكن تكتب السطر ده On Error Resume Next فى بدايو الكود عندك وهو هيتخطى كل الاخطأ ولا يظهر شئ منها للعميل 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 31, 2021 مشاركة قام بنشر أغسطس 31, 2021 19 minutes ago, حكمت العراقي said: السلام عليكم ارجو من الأساتذة الكرام مساعدتي في حل هذه المشكلة في حالة استخدام الكود On error goto يتم التنفيذ في حالة الخطأ الأول بالذهاب إلى المسار المحدد بعد goto ولكن في حالة حدوث خطأ آخر يتم الوقوف على الخطأ دون الذهاب إلى المسار المحدد في on error goto هذا الموضوع يفيدك 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 31, 2021 مشاركة قام بنشر أغسطس 31, 2021 يجب عليك تحديد ارقام الخطأ و وضع التصحيح لها كأفضل طريقة للتعامل مع الخطأ تفضل استخدم و سجل الأخطاء المحتملة و ضع لها الحلول المناسبة On Error GoTo ErrH ضع الكود كامل هنا Exit Sub ErrH: Select Case Err.Number Case = 0 ' رقم الخطأ ' ضع الإجراء التصحيحي للخطأ Case = 0 ' رقم الخطأ ' ضع الإجراء التصحيحي للخطأ End Select 4 رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر أغسطس 31, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 31, 2021 وعليكم السلام 🙂 اذا فهمت قصدك: في بداية الكود عندك كود هكذا مثلا (اخذته من احد برامجي 🙂 ) : نستعمل On Error Goto err_Form_Close في البداية ، بحيث اي خطأ يحدث في الكود سيذهب الى السطر :err_Form_Close من مكان هناك ، بدل الامر Goto ، نستعمل الامر Resume فبدل عن 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 جعفر 2 رابط هذا التعليق شارك More sharing options...
حكمت العراقي قام بنشر أغسطس 31, 2021 الكاتب مشاركة قام بنشر أغسطس 31, 2021 اشكركم على جهودكم المبذولة للمساعدة رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 31, 2021 مشاركة قام بنشر أغسطس 31, 2021 1 hour ago, حكمت العراقي said: اشكركم على جهودكم المبذولة للمساعدة اهم شي استاذ حكمت ان تتعرف على الخطأ .. وليس ان تتجاوزه 1 رابط هذا التعليق شارك More sharing options...
حكمت العراقي قام بنشر سبتمبر 1, 2021 الكاتب مشاركة قام بنشر سبتمبر 1, 2021 ماذا لو تطلب الامر الذهاب الى سطر معين حسب كل خطأ ماذا لو تطلب الامر الذهاب الى سطر معين حسب كل خطأ هنا لايمكن استخدام Resume Next رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر سبتمبر 1, 2021 مشاركة قام بنشر سبتمبر 1, 2021 6 ساعات مضت, حكمت العراقي said: ماذا لو تطلب الامر الذهاب الى سطر معين حسب كل خطأ هل قرأت مشاركتي بتمعن ، ففيه الجواب على سؤالك 🙂 جعفر رابط هذا التعليق شارك More sharing options...
حكمت العراقي قام بنشر سبتمبر 1, 2021 الكاتب مشاركة قام بنشر سبتمبر 1, 2021 استاذ جعفر هل تقصد نستخدم Resume بدلا من goto يحل المشكلة علما انني اريد تجاوز الخطأ والذهاب إلى سطر رقم مثلا 1 اي هل يمكن استخدام resume 1 بدلا من goto 1 وشكرا. رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر سبتمبر 1, 2021 مشاركة قام بنشر سبتمبر 1, 2021 خلينا ندخل في الثقيل ، واعطنا مثال ، علشان جوابنا يكون واضح 🙂 جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان