كل الانشطه

الآن توضحت المشاكل التي في أساس عدم نجاح الفكرة .. الاستعلام Qry_All_Year ، يعتمد أساساً على الاستعلام MY_Bouns ، يعني لو استخدمنا الدالة Dlookup داخل الاستعلام فإنك ستدوووووووور في دوامة لها بداية ما لها نهاية حسب عدد السجلات 😁 وبالتالي التعديل الصحيح برأيي سيكون على استعلامك MY_Bouns سيكون :- SELECT Tbl_Days_Months.Months_Number, Tbl_Days_Months.Months_English, Qry_New_Request.Mon_Year, Count(Qry_New_Request.TCode) AS T_Count, [T_Count]*2 AS Projects, DLookUp("[S_Youssef]","Qry_All_Year", "[Code_Month]=" & [Months_Number]) AS يوسف FROM Tbl_Days_Months LEFT JOIN Qry_New_Request ON Tbl_Days_Months.Months_Number = Qry_New_Request.Code_Month GROUP BY Tbl_Days_Months.Months_Number, Tbl_Days_Months.Months_English, Qry_New_Request.Mon_Year ORDER BY Tbl_Days_Months.Months_Number; يعني بس اللي عملناه هو إعادة ترتيب الحسابات مرة أخرى ، بحيث لا يعتمد الاستعلام على نفسه بشكل غير مباشر .

اتفضل المثال lab.rar لم يصلح ولا كود لذلك ارسلت مثال lab.rar

مشاركة مع أستاذنا @منتصر الانسي .. على الأقل أخي @jo_2010 لو ارفقت الجداول والاستعلامين 😅 .. على العموم لدي سؤال ، هل الحقل Mon_Year في كلا الاستعلامين تاريخ ؟؟ إذا كان خقل تاريخ ، فجرب اضافة الجملة التالية في الاستعلام المطلوب الإضافة له :- يوسف: DLookUp("[يوسف]";"Qry_All_Year";"Month([Mon_Year])=" & [No_Month] & " AND Year([Mon_Year])=" & Year([Mon_Year])) أو كـ حل أبسط باستعمال رقم الشهر :- يوسف: DLookUp("[يوسف]";"Qry_All_Year";"[No_Month]=" & [No_Month]) جرب ، وتابع بالنتيجة معنا ..

القاعدة كبيرة

ولماذا لم ترفق المثال ؟

اريد وضع كل قيمة أمام الشهر الخاص بها اما بكود الشهر أو اسم الشهر

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

اجعل مسميات مربعات النص بالعربي

الحمد لله تم اكتشاف الخلل فى مربع النص اختر نوع الاجازة مصدر الصف التصدير لاكسيل اسماء الاعمدة انجليزى ازاى تبقى عربى

بارك الله فيك اخي ابو عيد . - يبقى فقط عندما افتح سنة جديدة تختفي ولا تظهر معلومات في ورقة شيت الكشف الشهري لغيابات الاساتذة وورقة الاستفسار اريدك ان تربطها بصفحة غيايات الاساتذة حتى تظهر المعلومات ارجو منك مراجعتها التقرير اليومي معدل.rar

الخبراء الافاضل بعد التحية ماريدة موجود بالصورة مع العلم بان الاستعلمين استعلامات تجميعية

تفضل التقرير اليومي معدل.xlsb

عندي ملف اكسل اريد اضافة السنة الدراسية 2026/2027 التقرير اليومي 2025_2026 (3).rar

تحديث جديد ، وما تم فيه :- التعديل على سياسة إستعادة إعدادات آكسيس الإفتراضية ، بحيث تم منح المستخدم الصلاحية باستثناء مشاريع محددة - يحددها المستخدم - تم توثيق مساراتها في جهازه . وبالتالي لن يفقد التوثيق للمجلدات والإضطرار إلى إعادة توثيقها بشكل فردي ويدوي .. ملف تحديث الأداة الجديد ، مفتوح المصدر ، للتحميل :- Trust Center Update.zip

ممكن السبب عندى فى عدم توصيل الفكرة بشكل واضح أو تنفيذ التقارير بشكل صحيح فى القاعدة المرسلة سأقوم بالتوضيح زى ما قلت لحضرتك الفكرة قائمة على : 1- طباعة تقرير وتصديره الى ملف اكسيل لموظف معين واجازة معينة وفترة معينة / وتقرير آخر وتصديره لاكسيل لفترة معينة واجازة معينة ولكن هذه المرة لجميع الموظفين 2- طباعة تقرير وتصديره الى ملف اكسيل لموظف معين واجازة معينة للعام الحالى / وتقرير آخر وتصديره لاكسيل للعام الحالى واجازة معينة ولكن هذه المرة ايضا لجميع الموظفين ( ملحوظة : العام مثلا يبدأ من تاريخ 8/1 2025 الى 7/31 /2026) هذا كود للتقرير حسب موظف معين واجازة معينة وفترة معينة حاولت تظبيطه لكن لا يعمل ايضا MsgBox "(يجب اختيار اسم الموظف اولا)", vbCritical Exit Sub End If If IsNull(Me.a2) Then MsgBox "(يجب اختيار نوع الاجازة)", vbCritical Exit Sub End If If IsNull(Me.mn) Then MsgBox "(يجب اختيار بداية التاريخ)", vbCritical Exit Sub End If If IsNull(Me.el) Then MsgBox "(يجب اختيار نهاية التاريخ)", vbCritical Exit Sub End If DoCmd.OpenReport "rep_agaza", acViewPreview, , _ "rkm_mlf_Agz = " & Me.nas0 & _ " And name_agz = '" & Me.a2 & "'" & _ " And Vac_Start_Agz <= #" & Format$(Form_Frm_Regist.mn, "yyyy-mm-dd") & "#" & _ " And Vac_End_Agz >= #" & Format$(Form_Frm_Regist.el, "yyyy-mm-dd") & "#" وأنا تحت أمر حضرتك فى توضيح الأمر مرة اخرى إن لزم

طالما ظهرت بيانات في المثال الذي ارفقته لك فهذا يعني انه لم يتم تطبيق الحل بشكل صحيح يجب فهم الحل أولاً ليسهل تطبيقه مهما إختلفت بيئة العمل الحل كان يعتمد على إنشاء مربعي نص (txtFrom , txtTo) والذي من المفترض أنهما سيكونان مخفيان ولكني أبقيتهما ظاهران لغرض التوضيح عند النقر على أحد الأزرار الأربعة تحت التاريخين (mn و el) سيتم نقل هذين التاريخين إلى مربعي النص (txtFrom , txtTo) أما عند النقر على أحد الأزرار الأربعة تحت السنة سحتوي مربع النص txtFrom على تاريخ أول يوم في السنة المحددة وسيختوي مربع النص txtTo على تاريخ آخر يوم لنفس السنة وبهذا نكون قد وحدنا مصدر تاريخي بداية ونهاية الفترة للحالتين ليكون معيار التصفية للتقارير في معايير التصفية الخاصة بالاستعلام خلف التقريرين جعلت معيار تصفية حقل تاريخ بداية الإجازة مابين التاريخين في مربعي النص (txtFrom , txtTo) بالاضافة الى معيار التصفية لنوع الإجازة ورقم الملف للتقارير الخاصة بالموظف أرجو أن يكون الشرح واضح واذا كان هناك اي نقطة غير مفهومة فلا تتاخر في طلب توضيحها تحياتي

هذه محاولة اوفيسنا (1).xlsx

بعد التجربة مفيش بيانات فى التقارير

غير متأكد إذا فهمت الطلب صح ولكن تفضل جرب المرفق وحدة الاجازات السنوية.accdb

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

بالرغم من تجربتى للكود الاسماء تتغير ولا مشكلة تاكد من ان خيارات الحساب تلقائي وليس يدوي طباعة.xlsb

الفصول تتغير ولكن مازالت الأسماء ثابته

نعم صدقت اخذف من الكود السابق ( بالرغم من اهميته في التسريع) Application.Calculation = xlCalculationManual من بداية الكود وكذلك Application.Calculation = xlCalculationAutomatic من نهاية الكود

الأخوة الأفاضل هل الموضوع غير واضح

الأسماء تظل ثابته ولا تتغير أثناء الطباعه