moho58

السلام عليكم أخي الكريم @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 وكذلك رسالة التنبيه أخي التي أضفتها رغم ان السنة و الشهر للموظف غير موجودين في الموظف : مع ذلك تأتي رسالة تخبرك بوجوده من قبل وشكرا كثيرا

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

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد تعديل لكود إدراج بيانات جدول (مرتبط بجدولين آخرين) في جدول آخر: اني عندي جدول اسمه tbl_info_fonctionnaire الكود الحالي يقوم بادراج بيانات جدول tbl_info_fonctionnaire في جدول : tbl_evaluation (الكود موجود في النموذج وفي الزر المسمى إدراج). لاحتياجاتي في العمل : اريد إضافة بيانات ( حقلين آخرين من جدولين آخرين ) في جدول tbl_evaluation : الحقلين هما: الحقل الذي اسمه: situation_special من جدول : tbl_situation_juridique_mouv الحقل الذي اسمه: nom_poste من جدول : tbl_poste_superieur الجدولين عندهم علاقة بالجدول tbl_info_fonctionnaire : عن طريق الحقلين num و code_fonctcode كما في الصورة يعني في النهاية أجد في جدول tbl_evaluation بيانات الحقلين situation_special و nom_poste والذين يتم ادراجهما بياناتهم من الجدولين tbl_situation_juridique_mouv و tbl_poste_superieur الرجاء المساعدة والتوجيه وجزاكم الله خيرا ان شاء الله BASEM.accdb

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

وهو كذلك اخي الكريم - هذا هو المطلوب بالضبط جزاك الله كل الخير ألف شكر وامتنان

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد استخراج كلمة من مربع سرد وتحرير (الموجودة مباشرة بعد الرمز / ) و وضعها في مربع نص: في النمودج عندما اختار سنة العمل من مربع مربع السرد والتحرير : 2020/2019 تعطيني النتيجة في مربع النص المسمى a النتيجة: 2020 2021/2020 تعطيني النتيجة في مربع النص المسمى a النتيجة: 2021 2022/2021 تعطيني النتيجة في مربع النص المسمى a النتيجة: 2022 2023/2022 تعطيني النتيجة في مربع النص المسمى a النتيجة: 2023 .... وهكذا الرجاء المساعدة والتوجيه وبارك الله فيكم BASEK.accdb

بعد التجربة المطولة شغال الكود بامتياز ويؤدي الغرض المطوب جزاك الله كل خير الأستاذ الفاضل @kkhalifa1960 وجعله الله في ميزان حسناتك ورزقك خيرا في الدنيا والآخرة

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

معذرة على التأخر في الرد بعد التجرب أخي الكريم الكود رائع جدا أخي الفاضل و شغال - لكن لا يقوم بتخزين قيمة code_stagiere المنشأة في جدول info_stagiere وبارك الله فيك أخي و جزاك الله كل الخير ورفعك في العلم درجات

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل لدي جدول فيه بيانات طلاب كمايلي: السنة الوظيفة الإسم الأول الإسم الثاني عندي جدول آخر يمثل رموز وظائف الطلاب : مثال: الوظيفة : أستاذ: رمزها: A رقمها: 50 ---- الوظيفة : مساعد معلم رمزها B : رقمها: 60 في هذا الموضوع اريد إنشاء رمز (كود ) للطلاب كمايلي: من النمودج frm_stag : مثال: من النمودج أختار السنة 2024 والوظيفة : أستاذ تظهر قائمة الطلاب واعرض التقرير : في التقرير أريد إضافة رمز الطلاب : رمز الطلاب يكون كمايلي: الوظيفة المختارة هي أستاذ: رقم الوظيفة هو : 50 رمز الوظيفة هو : A حسب الجدول فيكون رمز الطلاب كمايلي: الطالب الأول A50 الطالب الثاني A51 الطالب الثاني A52 إلى غاية انتهاء الطلاب الموجودين في الجدول بالنسبة للسنة: 2024 والوظيفة : استاذ وحسب ترتيب ID للطالب إذن رمز الطلاب يتكون من : رمز الوظيفة + رقم الوظيفة (موجودين في جدول code_grade وبعد يكون إضافة رقم 1 (+1) إلى غاية نهاية الطلاب . نفس الشئ لباقي السنوات والوظائف . نتمنى أنه يمكن تنفيذ الفكرة بشرط الابقاء على حقل ID ترقيم تلقائي ومفتاح اساسي في جدول info_stagieire الرجاء المساعدة والتوجيه وبارك الله فيكم baseA.accdb