الزر في النموذج الفرعي لا يعمل

[خليل خليل داماس]

السلام عليكم
ممكن يا شباب, حدا يعدل بالملف.
الزر Main-Zoom-In في النموذج الرئيسي لا يعمل
و لكن الزر Zoom-In في النموذج الفرعي يعمل
و لكم جزيل الشكر

Test.rar

[ابو عارف]

تفضل اخي 

Private Sub Main_Zoom_In_Click()
On Error Resume Next
Table1!Image1.Width = Table1!Image1.Width + 500
Table1!Image1.Height = Table1!Image1.Height + 500
End Sub

Private Sub Main_Zoom_Out_Click()
On Error Resume Next
Table1!Image1.Width = Table1!Image1.Width - 500
Table1!Image1.Height = Table1!Image1.Height - 500
End Sub

Test.rar

[خليل خليل داماس]

ألف ألف شكر إلك يا الغالي . و آسف على تأخري في الرد عليك
و كل عيد فطر و انتم بألف خير