وضع قيمة افتراضية لحقل في جدول بشرط معين - تعديل كود-

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

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

الكود السابق الجميل  للأخ الأستاذ @ Foksh يؤدي المطلوب على اكمل وجه

أردت فقط  تغيير الفكرة   وجعل نموذج واحد  يحتوي على 3 أنواع بعدما كان نوع واحد فقط   في نموذج (لأن الأنواع الثلاثة لها نفس معايير التقييم لذا أردت ان اجعله في نموذج)

النوع الأول: المهندسين   النوع الثاني : المعليمن     النوع الثالث: الأساتذة

أريد تغيير الكود السابق (الموجود الوحدة النمطية   ) بشرط يؤدي المطلوب كما في السابق :

في السابق كان كالتالي:

    If typ = "مهندسين" Then

والآن اريد التعديل

=if typ

"مهندسين "  أو    "معلمين "  أو    "أساتذة"

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

رابط الموضوع السابق:

ـ

BASE-E5.accdb

[AbuuAhmed]

ربما هو المطلوب

BASE-E5_02.accdb

[Foksh]

مشاركة الأستاذ @AbuuAhmed ، جميلة وتؤدي الغرض بكفاءة باستعمال Case بدلاً من الجملة الشرطية If ..

ومشاركة معه ضمن نفس الاسلوب باستعمال If

            If typ = "مهندسين" Then
                rs!evalu_moubadara_chaksia = 4.5
                rs!evalu_itkan_elamel = 4.5
                rs!evalu_nachatat_tarbia = 4.5
                rs!evalu_absence = 8
                rs!evalu_retard = 4
                rs!evalu_tatwir = 4.5
            ElseIf typ = "أساتذة" Then  'عدل القيم اسفلها حسب رغبتك
                rs!evalu_moubadara_chaksia = 4.5
                rs!evalu_itkan_elamel = 4.5
                rs!evalu_nachatat_tarbia = 3
                rs!evalu_absence = 8
                rs!evalu_retard = 4
                rs!evalu_tatwir = 4.5
                rs!evalu_absence_prof = 12
                rs!evalu_retard_prof = 4
                rs!evalu_nadawat_prof = 6
                rs!evalu_nachatat_tarbia_prof = 6
                rs!evalu_mobadara_prof = 12
            Else
                rs!evalu_absence_prof = 12
                rs!evalu_retard_prof = 4
                rs!evalu_nadawat_prof = 6
                rs!evalu_nachatat_tarbia_prof = 6
                rs!evalu_mobadara_prof = 12
            End If

وسأنصحك باستعمال فكرة الستاذ أبو احمد اذا كانت الجمل الشرطية كثيرة لأنها أسرع في الأداء 😇

* وجهة نظري غير ملزمة طبعاً

[moho58]

السلام عليكم

الأخ @AbuuAhmed  والأخ @Foksh 

شكرا كثيرا لكما على الرد والمتابعة

بعد تجربة المثالين - لو سمحتما عندي ملاحظة مشتركة -

نحن وضعنا الشرط التالي:

إذا كانت قيمة تقييم الغياب فارغة أو قيمة تقييم المبادرة فارغة : تصبح التقييمات كلها تحمل القيمة الافتراضية

        If IsNull(rs!evalu_moubadara_chaksia) And IsNull(rs!evalu_absence) Then

              rs!evalu_moubadara_chaksia = 4.5
                rs!evalu_itkan_elamel = 4.5
                rs!evalu_nachatat_tarbia = 4.5
                rs!evalu_absence = 8
                rs!evalu_retard = 4
                rs!evalu_tatwir = 4.5

بعد تجربة المثالين: الخاصية هذه فقط  محققة عندما يكون If typ = "مهندسين"

أما باقي النوعين: معلمين وأساتذة فلا تتحقق.

كما في الصورة 1 : نجعل الحقلين المعنيين فارغين 

نغلق النموذج ونفتح من جديد : نلاحظ القيم الافتراضية التلقائية رجعت فقط للنوع : مهندسين أما باقي الأنواع فلا. - الصورة2-

حاولت كثيرا طبعا حسب معرفتي المحدودة- لكن لم تنجح محاولتي.

ان شاء الله يكون هناك حل

وبارك الله فيكما.

[Foksh]

17 ساعات مضت, moho58 said:

السلام عليكم

 

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

لا اعلم ان كان ما فهمته صحيحاً ، لكن جرب هذا التعديل في المرفق . مع العلم ان القيم افتراضية من عندي ، فجرب كما ترغب في القيم واعطنا النتيجة

 

BASE-E5.zip

[moho58]

12 ساعات مضت, Foksh said:

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

لا اعلم ان كان ما فهمته صحيحاً ، لكن جرب هذا التعديل في المرفق . مع العلم ان القيم افتراضية من عندي ، فجرب كما ترغب في القيم واعطنا النتيجة

 

BASE-E5.zip 48.94 kB · 5 downloads

جزاك الله خيرا وبارك الله فيك اخي @Foksh

كوني جاءني  سفر  غير مبرمج. وليس لدي جهاز كمبيوتر لأجرب وانا اتابع من الهاتف حاليا

عندما اعود يوم الأحد مساءا 

سأجرب الملف وأوافيك بالنتيجة 

ألف شكر مرة أخرى

[Foksh]

منذ ساعه, moho58 said:

كوني جاءني  سفر  غير مبرمج. وليس لدي جهاز كمبيوتر لأجرب وانا اتابع من الهاتف حاليا

 

بالسلامة أخي الكريم ..

خذ وقتك 

[moho58]

في 28‏/8‏/2025 at 00:56, Foksh said:

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

لا اعلم ان كان ما فهمته صحيحاً ، لكن جرب هذا التعديل في المرفق . مع العلم ان القيم افتراضية من عندي ، فجرب كما ترغب في القيم واعطنا النتيجة

 

BASE-E5.zip 48.94 kB · 16 downloads

تحية طيبة أخي @Foksh

و اعتذر ربما أخطأت ولم أشرح كما يجب

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

أما النوع: اساتذة أو معلمين فالقيم الافتارضية لا تظهر  وتظهر خانات فارغة

كما في الصورة المرفقة

أتمنى أن أكون قد أوصلت لك الفكرة :

و يمكن التعديل على الكود فيؤدي المهمة مع جميع الأنواع وتظهر القيم الافتراضية لجميع الأنواع عندي فتح النموذج

وبارك الله فيك

BASE-E6.accdb

[منتصر الانسي]

تم تعديل الكود

ملاحظة : في الجدول ومعيار تصفية النموذج عندك مكتوب (أستاذة) وفي الكود مكتوب (أساتذة) راجع أيهما خطأ وقم بتصحيحه

تحياتي

 

BASE-E6.rar

تم تعديل أغسطس 31 بواسطه منتصر الانسي

[moho58]

في 31‏/8‏/2025 at 17:56, منتصر الانسي said:

تم تعديل الكود

ملاحظة : في الجدول ومعيار تصفية النموذج عندك مكتوب (أستاذة) وفي الكود مكتوب (أساتذة) راجع أيهما خطأ وقم بتصحيحه

تحياتي

 

BASE-E6.rar 41.82 kB · 8 downloads

اعتذر عن التأخر في الرد

بعد التجربة . التعديل شغال و يؤدي المطلوب 

جزاك الله خيرا اخي @منتصر الانسي وجعلها في ميزان حسناتك

كما أتقدم كذلك  بخالص الشكر والامتنان للأخ @Foksh والاخ @AbuuAhmed

 

بارك الله فيكم جميعا