[عبدالله الصافي]

كود :

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

فأرجو من الأخوة توضيح الأمر
وتوضيح كيف اعدد دالة الخطأ في حدث واحد
ولكم جزيل الشكر

[Ahmed_Mansoor]

أهلا أخي الكريم , إستخدم هذه الطريقة إن شاء الله تضبط معك :

كود :

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