طريقة كتابة كود عام داخل النموذج

[husseinharby]

السلام عليكم 

استخدم الكود التالي كثيرا داخل النموذج الواحد

On Error Resume Next
وفي كل مرة اكتب كود اقوم بكتابته قبل الكود

هل يوجد طريقة اقوم بكتابته مرة واحدة فقط داخل النموذج ويسمع لكل الاكواد المكتوبة

 

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

بدايةً لن أنصحك بالإعتماد على كود تخطي الأخطاء هذا بشكل أساسي في مشاريعك ، لأنه قد يترتب عليه تخطي خطأ باكمال معلومة أو معادلة أو إجراء أو نتيجة ستكون قد بنيت عليها إجراءات أخرى ، وعليه تقع في مشاكل ..

- على العموم استخدم الكود في حدث عند التحميل للنموذج ، وسيبقى مفعلاً لكل الأكواد الأخرى داخل النموذج طالما لم يتم تغييره في أي إجراء آخر .
- أولاً لم أقم بتجربتها ، جرب استعماله في حدث On Error للنموذج كإجراء عام .

تم تعديل مارس 7 بواسطه Foksh

[kkhalifa1960]

تفضل أخي @husseinharby مع التحفظ عليه ....  كود من مايكروسوفت .

Private Sub UserForm_Initialize()
    On Error Resume Next
End Sub