[sniperjawadino]

سلام إحواني

جئت بسؤال آخر 

الكود يحتوي على تلات أسطر
السطر الأول خطأ
التاني و التالت صحيح

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

[elgokr]

الفكرة التى تريد ان تصل لها لم تصل لى حتى الان

حتى اتمكن ان افيدك بالطريقة المناسبة لما تريد فعله

فاتمنا لو تقوم بالتوضيح اكثر

تذكر ان نتائح الرسائل الثلاثة عبارة عن

hh2 || 3  || 4

تحياتى لك

وتمنياتى لك التوفيق

[sniperjawadino]

مرحبا أخي elgokr 

نتيجة السطر الأول هي خطأ برمجي
La conversion de la chaîne "hh" en type 'Double' n'est pas valide.

أريد من البرنامج أن يضهر لي الخطأ ثم يكمل النتائج الأخرى

[elgokr]

(21-02-19, 03:00 PM)sniperjawadino كتب : مرحبا أخي elgokr 

نتيجة السطر الأول هي خطأ برمجي
La conversion de la chaîne "hh" en type 'Double' n'est pas valide.

أريد من البرنامج أن يضهر لي الخطأ ثم يكمل النتائج الأخرى

جميل هنا تكون الصورة واضحة لما تقصده

فى البداية انت هنا يتقوم بالغاء كود Try

ليصبح الحدث يحتوى على التالى

كود :

       MsgBox("hh" + 2)
       MsgBox(1 + 2)
       MsgBox(2 + 2)

الان لدينا خطاء فى الرسالة الاولى بسبب جمع رقم مع نص

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

كود :

       On Error GoTo VNext
       MsgBox("hh" + 2)
VNext:
       MsgBox(1 + 2)
       MsgBox(2 + 2)

طيب الكود غير ثابت ولست تعلم اذا كان اذا كان الخطاء يظهر بالرسالة الاولى او الثانية او اذا كانت فى الاخيرة

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

كود :

       On Error Resume Next
       MsgBox("hh" + 2)
       MsgBox(1 + 2)
       MsgBox(2 + 2)

وبكده تكون تجنبت جميع الاخطاء التى قد تظهر ...

طيب ماذا تعنى الكود الاول

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

طيب لنقول ان المشكلة فى الخطاء فى الرسالة رقم 2 وليس الاولى

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

طيب الكود الثاني ماذا يعنى

الكود الثاني هو نفس الكود الاول ولكن فكرته بسيطة وهى

عند وجود خطاء عند سطر محدد تخطي السطر واذهب للسطر التالى

والسطر هنا تعنى بداية فتحة الكود الى نهايته مثل For وخلافه التى تعتمد لعى اكثر من سطر

اتمنى ان تكون الفكرة وضحت معك وان الامور اصبح بسيطة معك

وان الطريقة التى ذكرتها تناسبك لما تريد ان تفعله

تحياتى لك

وتمنياتى لك التوفيق

[sniperjawadino]

السلام عليكم



الفكرة واضحة أخي elgokr

وكل شيئ أصبح واضح فعلا

جزاك الله كل خير


فقط يبقى السؤال الأساسي هو هل ممكن البرنامج أن يضهر لي الخطأ ثم يكمل النتائج الأخرى

فهذه إصطياد الخطأ دون توقف مهمة البرنامج

[elgokr]

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

بخصوص

إقتباس :هل ممكن البرنامج أن يضهر لي الخطأ ثم يكمل النتائج الأخرى

نعم يمكنك ذلك كل الامر انك تجعل كود الحدث على هذا الشكل دون استخدام Try

كود :

       On Error GoTo ErrorMessage
       MsgBox("hh" + 2)
       MsgBox(1 + 2)

       Exit Sub
ErrorMessage:
       MsgBox(Err.GetException().Message) ' ضع ما تشاء من الرسالة هنا
       Resume Next

ولاحظ جيداً وجود 

كود :

       Exit Sub

اعلى سطر 

كود :

ErrorMessage:

فهو الزامى جداً

بحيث الفكرة انا بقول فى حالة وجود خطاء اذهب الى السطر تحت مسمى [اى كان الاسم]

وخلال هذا السطر يقوم باظهار رسالة طبقاً لما تريد من ثم يعيد متابعة الامر لما بعد الخطاء اى السطر التالي للامر

وطبعاً من غير وجود 

كود :

       Exit Sub

فيعنى عند الانتهاء من الحدث ولا يوجد اى خطاء

سيقوم بعرض الرسالة ويعيد محاول الرجوع لما بعد الخطاء سيجد لا يوجد ثم يقوم انهاء الامر

ولتجنب هذا تم وضع سطر اغلاق الحدث لتجنب هذا الامر

بكده تكون فعلت ما تريد تماماً وكما هو مطرح فى السؤال

تحياتى لك

وتمنياتى لك التوفيق

[sniperjawadino]

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

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

وتمنياتى لك التوفيق