moho58

تحية طيبة مرة اخرى استاذنا @Moosak نعم هذا ما أريد اعطاء جميع الطلاب الدرجة الافتراضية مثلا 10 في مادة التربية الفنية لكن كيف يتم ذلك؟

السلام عليكم تحية طيبة استاذنا @Moosak شكرا كثيرا على هذا الشرح المفصل سامحني ربما لم أستطع ايصال الفكرة كما أريد ما كنت اقصد مثلا: تثبيث الدرجة ( النقطة ) 10 لجميع الطلاب في مادة التربية الفنية يعني جميع الطلاب حصلوا على الدرجة (النقطة) 10 يعني الطلاب الاربعة الموجودين في الجدول حصلوا على النقطة 10في مادة التربية الفنية . فالنقطة (العلامة) 10 هي قيمة افتراضية. لجميع الطلاب في مادة التربية الفنية. (عند فتح النموذج نجد النقطة 10 لجميع الطلاب في مادة التربية الفنية) وجعل القيمة الافتراضية هذه يكون بالاستعانة بالنموذج فقط . وعدم الاستعانة بالجدول ( كجعل مثلا قيمة حقل التربية الفنية في الجدول تساوي 20)

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع اريد طريقة لكيفية تثبيت قيمة افتراضية لمربع نص انطلاقا من النموذج فقط وليس بالاعتماد على الجدول: مثلا: اريد : ثبيث الدرجة :10 لجميع الطلاب في مادة التربية الفنية ثبيث الدرجة :12لجميع الطلاب في مادة التربية البدنية وهذا بالاعتماد و انطلاقا من النموذج فقط الرجاء المساعدة والتوجيه وبارك الله فيكم baseV.accdb

تحية طيبة أخي @Foksh أنا لي أعتذر منك ربي يجازيك ويجعلها صدقات جارية على كل من تقدمه من يد المساعدة في هذا المنتدى الجميل بعد التجربة: الكود الخاص بـــــ : زر الفلترة وانهاء الفلترة : يشتغل جيدا زر حفظ: يشتغل جيدا الإشكالية موجودة عند الخروج مباشرة من النموذج: عند القيام بالتعديل على السجل و الخروج مباشرة من النموذج دون الضغط على زر "حفظ" الموجود في النموذج: - إذا قمت بتغيير على سجل واحد : والخروج مباشرة هنا : هنا الكود يشتغل جيدا: سواء قمت بالضغط على "نعم" أو "لا" في الرسالة الخاصة بتأكيد الحفظ. - إذا قمت بتغيير على عدة سجلات : والخروج مباشرة هنا : هنا الكود يشتغل جيدا: إذا قمت بالضغط على "نعم" -- أما إذا قمت "لا" في الرسالة الخاصة بتأكيد الحفظ.: هنا الإشكالية: الحفظ تلقائي لجميع السجلات (يقوم بحفظ التغييرات التي قمت بتعديلها ) - ما عدا السجل الأخير فلا يحفظه يبقيه كما هو إدا قمت بتغيير مثلا 3 سجلات فإنه يقوم بحفظ التغييرات تلقائيا ما عدا السجل الأخير التي قمت بتغييره فإنه لا يقوم بحفظ التغييرات التي طرأت عليه. الكود الموجود سابقا كان يقوم بهذه الوظائف : لكن تعارض مع كود الفلترة وبارك اللـه فيك أخي

بعد التجربة أخي الكريم روعـــــــة شغال بامتياز وبدون مشاكل أخي جزاك اللــه كل الخيـــــر و البركـــــــــــــــــات .و ربي يرزقك من حيت لا تحتسب . آميـــــــــــن ألف شكر وامتنان وتقدير

الأخ الكريم @Foksh عندما تتيح لك الفرصة قم بتغيير اي قيمة في النموذج - وبعدها قم بالخروج من النموذج وعندما تأتيك رسالة الحفظ أضغط على "لا" هنا نلاحظ بأنه يقوم بحفظ البيانات والتعديلات تلقائيا حتى وان قمنا بالضغط على "لا" وجزاك الله كل خير

ربي يبارك فيك أخي

السلام عليكم الأخ الكريم @Foksh تحية طيبة ، بعد تجربة على عدد كبير من الموظفين 69 موظف أصبح يعرض (سنتين فقط ) 2023/2022 2022/2021 ولا يعرض سنة 2021/2020 رغم انها موجودة في الجدول كما في الصورة جزاك الله كل خير BASEK2025.accdb

اخي @Fokshعمل رائع . هذا هو المطلوب بالضبط جزاك الله كل الخير. وبارك الله فيك وزادك في العلم ألف شكر وامتنان

السلام عليكم أخي الكريم @Foksh ممكن تعديل مثل الصورة الصورة المرفقة إن أمكن تجسيده وشكرا كثيرا

ان شاء الله استاذ @Foksh مرة اخرى . جزاك الله كل الخير

مشكور جدا مرة أخرى أخي على الرد والاهتمام بموضوعي بعد التجربة أخي @Foksh نختار مثلا السنة 2024/2023 الاسم الأول : خالد الاسم الثاني : العيدوسي يعطيني النتائج التالية السنوات التلاثة الأخيرة السنة العلامة 2023/2022 19 2024/2023 18 السنة: 2024/2023 العلامة: 19 ممتاز لاشئ لكن المفروض تكون النتائج كمايلي: السنة 2024/2023 الاسم الأول : خالد الاسم الثاني : العيدوسي السنوات التلاثة الأخيرة السنة العلامة 2021/2020 15 2022/2021 16 2023/2022 19 السنة: 2024/2023 العلامة: 18 ممتاز لاشئ و جزاك الله كل خير أخي

أخي الفاضل قم بتعديل : عند الخروج من النموذج : عندما تأتي الرسالة الخاصة بتأكيد الحفظ إضغط على "لا" : سوف يقوم بحفظ التعديلات تلقائيا من الرغم أني اخترت "لا" و شكرا كثيرا لك الصبر والمتابعة

أخي الفاضل @Foksh مزالت نفس المشكلة: عند الخروج من النموذج حتى و إن لم تضغط على زر حفظ الموجود في النموذج يتم حفظ التعديلات والتغيرات تلقائيا وكذلك عند الخروج من النموذج وعندما تأتي رسالة تأكيد حفظ التغيرات من عدمها يتم الحفظ تلقائيا حتى عند الضغط على زر "لا" بينما في السابق كانت تشتغل عادي مرة اخرى اخي جزاك الله كل الخير - وبارك الله فيك

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد استخراج 3 قيم من جدول وفق معايير محددة : الشرح: كمثال مثال : من النموذج نختار السنة : 2024/2023 ونفتح التقرير الذي يظهر علامات تقييم الموظفين خلال السنوات المختارة اخترت السنة 2024/2023 فيظهر في التقرير الجزء السفلي: السنة 2024/2023 (السنة المختارة من النموذج) وأمامها العلامة التي تحصلها عليه الموظف وكذا ملاحظة المسؤول المباشر وكذلك ملاحظة الموظف: في الجزء العلوي من التقرير : السنوات الثلاثة الأخيرة : اريد هنا أن تظهر كل سنة والعلامة التي تحصل عليها الموظف في السنة الموافقة: وهنا : تظهر 3 سنوات فقط التي تسبق السنة التي يتم اختيارها من النموذج: في مثالنا اخترنا : 2024/2023 السنوات التي تظهر : في هذا الجزء 2021/2020 2022/2021 2023/2022 السنوات التي تكون اقل من السنة التي اخترناها من النموذج frm_imprimer_note_administratif (السنوات الاقل وتكون موجودة في جدول ) * إن كانت موجودة فعليا في الجدول 3 سنوات أقل من السنة التي اخترناها من النموذج: يتم اظهارها كلها * إن كانت موجودة فعليا في الجدول سنتين أو سنة أقل من السنة التي اخترناها من النموذج: يتم اظهارها كلها * اذا كان عندي سنوات كثيرة اقل من السنة التي اخترتها من النموذج : يتم اختيار الثلاثة الأخيرة فقط: شرح : في مثالي أنا اخترت : 2024/2023 في الجدول: يوجد مثلا: 2019/2018 2020/2019 2021/2020 2022/2021 2023/2022 هنا يوجد سنوات كثيرة (5 سنوات) أقل من السنة ( 2024/2023) التي اخترتها من النمودج : النتيجة تكون 2021/2020 2022/2021 2023/2022 * إذا كانت لا توجد سنوات أقل من السنة التي اخترتها من النموذج: يعني توجد فقط السنة التي اخترتها من النموذج: هنا تكون النتيجة والخانة فارغة -------------------------------------- توضيح في موضوعي هذا : هنا انا سميت السنة بهذه الصيغة: 2024/2023 : وهنا أقصد بها سنة و هي نفس مفهوم كمثال: سنة : 2024) عندما أقول : سنة 2024 : انا سميتها هنا : سنة 2024/2023 عندما اقول 3 سنوات أقل من سنة : 2024 هي : سنوات 2023 و 2022 و 2021 عندما اقول 3 سنوات اقل من سنة: 2024/2023 هي : سنوات : 2023/2022 و 2022/2021 و 2021/2020 نتمنى أن اكون قد أوصلت الفكرة ويمكن تجسيدها الرجاء المساعدة والتوجيه وبارك الله فيكم BASEK.accdb

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

تحية طيبة و شكرا كثيرا أخي الفاضل @Foksh بعد التجربة: زر انهاء الفلترة: يشتغل زر الفلترة: لا يعطي النتيجة المطلوبة وتظهر البيانات فارغة كمافي الصورة المرفقة

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

بعد التجربة أخي شغال بامتياز هذا هو المطلوب جزاك الله كل خير - جزاك الله كل خير ألف شكر أخي الكريم

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع إريد إضافة معيار أو شرط where على جملة select الكود الذي أريد التعديل هو: DoCmd.RunSQL "INSERT INTO tbl_note_administrative (num,nom_arabe,prenom_arabe, date_naissance, lieu_naissance, wilaya_naissance, situation_familiale,nombre_enfant,grade_poste_actuel,sifa,grade,date_effet_grade_actuel,loi_fondamontale,situation_poste_travail,classement_liste, annet, nom_poste, situation_special )" & vbCrLf & _ "SELECT tbl_info_fonctionnaire.num, tbl_info_fonctionnaire.nom_arabe, tbl_info_fonctionnaire.prenom_arabe, tbl_info_fonctionnaire.date_naissance, tbl_info_fonctionnaire.lieu_naissance, tbl_info_fonctionnaire.wilaya_naissance, tbl_info_fonctionnaire.situation_familiale,tbl_info_fonctionnaire.nombre_enfant,tbl_info_fonctionnaire.grade_poste_actuel,tbl_info_fonctionnaire.sifa,tbl_info_fonctionnaire.grade,tbl_info_fonctionnaire.date_effet_grade_actuel,tbl_info_fonctionnaire.loi_fondamontale,tbl_info_fonctionnaire.situation_poste_travail,tbl_info_fonctionnaire.classement_liste, [forms]![frm_AddMonth]![annet1] AS Expr4, tbl_poste_superieur.nom_poste, tbl_situation_juridique_mouv.situation_special " & vbCrLf & _ "FROM (tbl_info_fonctionnaire LEFT JOIN tbl_poste_superieur ON tbl_info_fonctionnaire.num = tbl_poste_superieur.code_fonct) INNER JOIN tbl_situation_juridique_mouv ON tbl_info_fonctionnaire.num = tbl_situation_juridique_mouv.code_fonct; " DoCmd.SetWarnings True MsgBox "Êã ÅÏÑÇÌ ÇáÓäÉ ÇáãÎÊÇÑÉ", , "ÊäÈíå" أريد إضافة الشرط التالي في الكود: "موظف " = tbl_info_fonctionnaire.situation_poste_travail ربما الطلب بسيط وسهل : لكن الأخوة الأفاضل حاولت كثيرا ولم أنجح. الرجاء المساعدة و التوجيه وبارك الله فيكم

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

السلام عليكم تحية طيبة استاذنا الجليل ابو خليل و أعتذر على كيفية تجهيز المثال بعد التجـــــــربــــــة : الطريقة ناجحة و ممتازة وتفي بالغرض وبدون مشاكل - فجزاك الله كل الخير - وبهذا أصبح لنا طريقتين لالغاء الحفظ التلقائي في النماذح المستمرة سواء عن طريق انشاء نموذجين (نموذج للعرض وآخر للتعديل) أو الاعتماد مباشرة على نموذج واحد (المثال الأخير). مرة اخرى اتوجه إليكم بالشكر الجزيل: الاستاتذة الكرام على مساهماتكم في هذا الموضوع جزاكم الله كل خير

جزاك الله كل الخير الأخ والأستاذ الفاضل وربي يبارك لك في جميع أمورك هذا هو المطلوب بالضبط فقط انا قمت بكتابة LEFT مكان INNER حتى يظهر جميع الموظفين في جدول tbl_evaluation وهذا عند الضغط على زر إدارج ، حتى وإن كان الموظفين غير موجودين في جدول : tbl_poste_superieur ألف شكر وامتنان أخي

اخي الكريم تقريبا هذا هو المطلوب فقط في النموذج وعند اختيار الشهر يوجد كود في حدث بعد التحديث لم اضعه انا من قبل ونسيته لكي تستعمله انت في الكود الجديد الخاص بك الكود هو وعند اختيار الشهر اجراء حدث بعد التحديث: Me.Text1 = Me.mois.Column(2) Me.Text2 = Me.mois.Column(1 وجزاك الله خير

تحية طيبة أخي الكريم جزاك الله كل الخير تقريبا هذا هو المطلوب بالضبط أعذرني نسيت ولم انتبه أن اضع كود في النموذج وعند اختيار الشهر اجراء حدث بعد التحديث: Me.Text1 = Me.mois.Column(2) Me.Text2 = Me.mois.Column(1) لانهما موجودين في الكود السابق: If IsNull(Me.annet) Or IsNull(Me.mois) Then Beep MsgBox "يجب ادخال السنة والشهر", , "تنبيه" Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl_evaluation (classementliste,loifondamontale,num, numFonctionnaire, prenomArabe, gradePosteActuel, annet, mois, part_year ) " & vbCrLf & _ "SELECT tbl_info_fonctionnaire.classement_liste,tbl_info_fonctionnaire.loi_fondamontale,tbl_info_fonctionnaire.num, tbl_info_fonctionnaire.num_fonctionnaire,tbl_info_fonctionnaire.prenom_arabe, tbl_info_fonctionnaire.grade_poste_actuel, [forms]![frm_AddMonth]![annet] AS Expr1, [forms]![frm_AddMonth]![mois] AS Expr2, [forms]![frm_AddMonth]![text1] AS Expr3 " & vbCrLf & _ "FROM tbl_info_fonctionnaire" DoCmd.SetWarnings True MsgBox "تم الادراج", , "" End If وكذلك رسالة التنبيه أخي التي أضفتها رغم ان السنة و الشهر للموظف غير موجودين في الموظف : مع ذلك تأتي رسالة تخبرك بوجوده من قبل وشكرا كثيرا