تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
On Error GoTo
#1
كود :
Private Sub Command1_Click()
On Error Resume Next
If label6 = "6" Then Text1 = "1"

On Error GoTo tamer1:
FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
Exit Sub

tamer1:

Text1 = "1"
On Error GoTo tamer2:
FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
Exit Sub
tamer2:
Text2 = "2"

End Sub
إخواني الكرام هذا كود كنت اجرب فيه
هل ممكن تعدد دالة الخطأ في نقس الحدث
فعملت المثال السابق مع تعمد عدم وجود الملف المطلوب في مساره
فيتحقق معي الخطأ الأول ويعمل تمام وينتقل الي tamer1
ولكن في الخطأ الثاني تظهر لي رسالة الخطأ ولا ينتقل الي tamer2

فأرجو من الأخوة توضيح الأمر
وتوضيح كيف اعدد دالة الخطأ في حدث واحد
ولكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
أهلا أخي الكريم , إستخدم هذه الطريقة إن شاء الله تضبط معك :

كود :
Private Sub Command1_Click()
On Error Resume Next
If label6 = "6" Then Text1 = "1"

FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
If Err.Number <> 0 Then Err.Clear: GoTo tamer1
Exit Sub

tamer1:
Text1 = "1"

FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
If Err.Number <> 0 Then Err.Clear: GoTo tamer2
Exit Sub

tamer2:
Text2 = "2"

End Sub
الرد
تم الشكر بواسطة: Amir_Alzubidy , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد حل لمشكلة "Run Time Error "13 Ahmed Abdulla 1 190 29-11-18, 12:10 AM
آخر رد: عبدالله الصافي
  ضهور مسج run time error 6 cr7 1 227 12-02-18, 07:56 AM
آخر رد: sendbad100
  ظهور رسالة خطأ RUN-TIME ERROR '339 cr7 1 311 15-12-17, 08:15 PM
آخر رد: tamer2005
  ظهور رسالة خطأ RUN-TIME ERROR '339 cr7 3 846 07-12-17, 11:52 PM
آخر رد: Ahmed_Mansoor
  مساعدة في حل رسالة خطأ تظهر لي Error 5000 loayrefai 3 502 15-10-17, 01:50 AM
آخر رد: Amir_Alzubidy
  (تم الحل) ارجو المساعده ب runtime error 70 permission denied scsi7000 4 1,320 26-07-17, 04:29 PM
آخر رد: scsi7000
  Run time error 3343 أبو عقيل 19 1,549 26-05-17, 03:09 AM
آخر رد: أبو عقيل
  [سؤال] path/file access error على وندوز 7 mhareek 6 887 30-11-16, 12:41 PM
آخر رد: abulayth
  [vb6.0] اين المشكلة run-time error (80040e14) syntax محمد ئوزبك 2 658 04-03-16, 01:05 AM
آخر رد: محمد ئوزبك
  هل من حل لمشكلة compile error tighrmte 0 870 21-11-15, 04:06 PM
آخر رد: tighrmte

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم