moho58

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

أخي الفاضل @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

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

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

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