السلام عليكم ورحمه الله ، الاخوه الاعزاء هل يمكن اظهار الجملة البرمجية المسببه للخطأ كامله في رساله . كما في الكود ادناه ؟
Public Static Function arth9()
On Error GoTo arth9_Err
Me.Image1.Picture = "D:\358546725.jpg"
Me.Image2.Picture = "D:\358546725.jpg"
Me.Image3.Picture = "D:\358546725.jpg"
Me.Image4.Picture = "tttttttttw"
Me.Image5.Picture = "D:\358546725.jpg"
Me.Image6.Picture = "D:\358546725.jpg"
Me.Image7.Picture = "D:\358546725.jpg"
arth9_Exit:
Exit Function
arth9_Err:
MsgBox Error$
MsgBox " الخطأ في الجملة : Me.Image4.Picture = ttttttttw "
Resume arth9_Exit
End Function