;كيف احول هذا الكود الطويل الى وحدة نمطية واستدعيها في مربع نص عند التحديث

[ali2017]

Private Sub a1_AfterUpdate()
If h1 = -5 And h2 = -5 And h3 = -5 And h4 = -5 And h5 = -5 And h6 = -5 And h7 = -5 And h8 = -5 And h9 = -5 And h10 = -5 Then h = -5 Else h = -6
m = Val(Nz(a1)) + Val(Nz(a2)) + Val(Nz(a3)) + Val(Nz(a4)) + Val(Nz(a5)) + Val(Nz(a6)) + Val(Nz(a7)) + Val(Nz(a8)) + Val(Nz(a9))
Select Case m
Case Is >= 0
m = Val(Nz(a1)) + Val(Nz(a2)) + Val(Nz(a3)) + Val(Nz(a4)) + Val(Nz(a5)) + Val(Nz(a6)) + Val(Nz(a7)) + Val(Nz(a8)) + Val(Nz(a9))
End Select
Select Case m
Case Is = -1
t = "ÛíÇÈ"
Case Is >= 306
t = "ããÊÇÒ"
Case Is >= 270
t = "ÌíÏ ÌÏÇ"
Case Is >= 234
t = "ÌíÏ"
Case Is >= 180
t = "ãÞÈæá"
Case Is < 180
t = "Ïæä ÇáãÓÊæì"
End Select
If h1 = -5 Then r1 = 0 Else r1 = 1
If h2 = -5 Then r2 = 0 Else r2 = 1
If h3 = -5 Then r3 = 0 Else r3 = 1
If h4 = -5 Then r4 = 0 Else r4 = 1
If h5 = -5 Then r5 = 0 Else r5 = 1
If h6 = -5 Then r6 = 0 Else r6 = 1
If h7 = -5 Then r7 = 0 Else r7 = 1
If h8 = -5 Then r8 = 0 Else r8 = 1
If h9 = -5 Then r9 = 0 Else r9 = 1
If h10 = -5 Then r10 = 0 Else r10 = 1
r = Val(Nz(r1)) + Val(Nz(r2)) + Val(Nz(r3)) + Val(Nz(r4)) + Val(Nz(r5)) + Val(Nz(r6)) + Val(Nz(r7)) + Val(Nz(r8)) + Val(Nz(r9)) + Val(Nz(r10))

End Sub

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

الاخوة الكرام  

اريد  وضع هذا الكود في وحدة نمطية   وكيفيه استدعائها في مربع نص  في حدث  بعد التحديث

[Shivan Rekany]

جرب لعل يفيدك

افتح محرر فيجوال و افتح وحدة نمطية جديدة

واكتب على الرأس

Function sha() 
'اكتب الكود اللي تريد
End Function

وفي حدث بعد التحديث

اكتب

call sha

جرب ووافيني بالنتيجه‌

[ali2017]

بارك الله فيك  جاري التجربة  وساوافيك 

لم تعمل   sha  ولم استطع ارفاق مثال  لان الملف ضخم       

[محمد ايمن]

39 دقائق مضت, ali2017 said:

بارك الله فيك  جاري التجربة  وساوافيك 

لم تعمل   sha  ولم استطع ارفاق مثال  لان الملف ضخم       

ما هو الخطا الذي ظهر لديك ؟؟

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

عليك استدعاء هذه المتغيرات مع الوحدة النمطية

مثلا هذه الوحدة النمطية

Public Function MyFunction (ByVal MyVar As Intiger)
Code
Code
Code
Code
Code
Code
Code
End Function

 

ويتم استدعائها بهذا الشكل

Call MyFunction(MyVar)

لاحظ انه عند تعريف الكود وضعنا متغير بين قوسين

وعند استدعاء الكود نضع القيمة المطلوبة للمتغير بين القوسين

 

قد تجد كلامي صعبا او غير مفهوم حاول ارسال المرفق اذا صعب عليك التنفيذ

 

تم تعديل ديسمبر 31, 2016 بواسطه محمد ايمن

[ali2017]

الاخ محمد ايمن بارك الله فيك على اهتمامك

 

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

 

db2017.rar

[محمد ايمن]

اخي الكريم

لايمكن القول انه يمكنك تحويل اي كود الى وحدة نمطية فهذا يعود الى طبيعة الكود بحد ذاته

في مثالك قمت بتكرار الكود مرتين

مرة عند الدخول الى الحقل و مرة بعد تحديث قيمة الحقل ؟؟؟؟؟ ما السبب ؟؟؟

فعليا اذا اردت تحويل الكود في مثالك الى وحدة نمطية فانت بحاجة الى عدد كبير من المتغيرات

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

db20171.rar

[Shivan Rekany]

11 ساعات مضت, محمد ايمن said:

لايمكن القول انه يمكنك تحويل اي كود الى وحدة نمطية فهذا يعود الى طبيعة الكود بحد ذاته

في مثالك قمت بتكرار الكود مرتين

مرة عند الدخول الى الحقل و مرة بعد تحديث قيمة الحقل ؟؟؟؟؟ ما السبب ؟؟؟

فعليا اذا اردت تحويل الكود في مثالك الى وحدة نمطية فانت بحاجة الى عدد كبير من المتغيرات

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

db20171.rar

شكرا لك يا استاذ محمد ايمن على مداخلك الجميل

16 ساعات مضت, ali2017 said:

بارك الله فيك  جاري التجربة  وساوافيك 

لم تعمل   sha  ولم استطع ارفاق مثال  لان الملف ضخم       

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

اخي الكريم انا نزلت قاعدة بياناتك

وكان بها نموذج رصيد رياضيات 1ع

وفي ذاك النموذج بها هذه مربعات نصية

وفي كود الاعلاه في مشاركتك الاولى

كان طلبت ان حين يكون مربع نصي باسم H1 الى H10  ....

اصلا في النموژج ما بها ژاك المربعات لژا راح ينگيك رساله‌ خطأ

مع تقدير 

 

تم تعديل يناير 1, 2017 بواسطه Shivan Rekany

[ali2017]

4 دقائق مضت, Shivan Rekany said:

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

اخي الكريم انا نزلت قاعدة بياناتك

وكان بها نموذج رصيد رياضيات 1ع

وفي ذاك النموذج بها هذه مربعات نصية

وفي كود الاعلاه في مشاركتك الاولى

كان طلبت ان حين يكون مربع نصي باسم H1 الى H10  ....

اصلا في النموژج ما بها ژاك المربعات لژا راح ينگيك رساله‌ خطأ

مع تقدير 

 

جزاك الله كل خير  اخي shivan