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

كود :

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

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