تقييم الموضوع :
  • 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 , عبد العزيز البسكري



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


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