كيف نحول وحدة نمطية الى وحدة نطية عامة ؟

[عبيد شهاب]

بسم الله الرحمن الرحيم

سؤال يراودني منذ فترة طويلة واحببت ان اطرحه ضمن هذا المنتدى الجميل وهو :

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

مثال : هذه وحدة نمطية لزر امر في نموذج :

Sub الصفةrUpdate()

If [الصفة] = "موظف" Then

[التعويض] = "20"

ElseIf [الصفة] = "مستخدم" Then

[التعويض] = "10"

End If

واريد ان اجعلها وحدة نمطية عامة .

اتمنى ان يكون السؤال واضح .

[التقني]

السلام عليكم

يمكنك ذلك من خلال عمل روتين خاص نضع فيه هذا الكود بحيث يتم استدعاؤه في كل مرة نحتاج الى هذا الكود.

[التقني]

اطلع على هذا الموضوع ففيه فائدة كبيرة وهي من عمل الأخ حارث جزاه الله كل خير :

اكتب بنفسك روتين فرعي أو وظيفة

بالتوفيق

[عبيد شهاب]

بسم الله الرحمن الرحيم

شكرا لك اخي الكريم , سأحاول ان اقرأ ما كتبه الاخ حارث واذا لم انجح فلي عودة لاثقل عليكم مرة ثانية .

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

تم تعديل فبراير 15, 2006 بواسطه obaid70

[عبيد شهاب]

بسم الله الرحمن الرحيم

اخواني اهل الخبرة والكرم

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

جزى الله الجميع كل الخير .