الساعة الرقمية

[فوزى فوزى]

عند تجولى فى المنتدى وجدت هذا الشيت العبقرى للاستاذ عبدالعزيز البسكرى ولكن به مشكله

عند فتح الشيت يظهر الفورم وبه ساعة ارقام فى غايه الجمال عند الدخول للمحرر الاكود والضغط على الفورم اعطانى هذا الخطا ممكن اصلاحه 

الساعة الرقمية.xls

[أ / محمد صالح]

هذا الخطأ يظهر نتيجة

إغلاق النموذج من زر الإغلاق والصواب حسب الكود كلك يمين على الزر الأيمن للساعة

ولتعديل ذلك حتى ينتهي تنفيذ الكود مع الغلق من زر الغلق

نقل آخر سطر من حدث UserForm_Initialize إلى حدث.UserForm_Activate

مع إضافة هذا الحدث الخاص بزر الإغلاق

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
OK = False
Me.Hide
End Sub

بالتوفيق 

[فوزى فوزى]

روعة وتميز بلا حدود حفظك الله ورعاك

[أ / محمد صالح]

جميعا بإذن الله تعالى