كل الانشطه

اعرض الملف أداة إنشاء مجموعات الخيارات المخصصة {سلسلة الأدوات المساعدة المخصصة} من منا لم يواجه عند تصميم تطبيق ما لحالات تتوقف على إستجابة المستخدم لتوجيه سير العمل بإتجاه مختلف عن الآخر وأغلب هذه الحالات نستخدم فيها مربع الحوار MsgBox فنطلب منه مثلاً الرد بنعم أو لا أو موافق أو إلغاء الأمر .... إلخ حسناً ماذا لو واجهت حالات تتطلب أكثر من ثلاثة خيارات مثلاً وأريد أن تكون هذه الخيارات مكتوبة بشكل صريح فسيكون من الصعب إستخدام MsgBox فنحن سنكون محكومين بمسميات الأزرار الإفتراضية والتي قد لا تعبر عن المطلوب بطريقة صحيحة صحيح أنه يمكننا إستخدام أداة مربع حوار المهام TaskDialog لنحصل على النتيجة المطلوبة وأحسن ولكن قد يرى البعض أنه ليس بحاجة لإستخدامها لأي سبب من الأسباب وسيفضل أن يقوم بإنشاء نموذج مخصص لهذه الحالة فقط ... حسناً وماذا إذا إحتاج إلى قائمة خيارات أخرى؟ عندها سيضطر إلى إنشاء نموذج ثاني وثالث ... وهكذا لكل ما سبق أقدم لكم اليوم أداة أعتبرها من الأدوات المثيرة للإعجاب وذلك لأنها رغم بساطتها إلا أنها تقدم خدمة لاغنى عنها بل وتوفر علينا الكثير من الوقت والجهد ولبساطتها لم أحتاج إلى كتابة أي تعليمات لشرح طريقة عملها فكل ماهو مطلوب هو تعبئة بعض مربعات النص فقط ويمكن مشاهدة النتيجة مباشرة وعند الإنتهاء يتم النقر على زر النسخ ولصق الكود في أي حدث تريد ... هذا كل شيء ماعليك إلى أن تكمل التعليمات البرمجية المترتبة على نتيجة التحديد وكما تعودنا ستجدون في المرفقات ملفي أكسس الأول بإسم القالب ويحتوي على نموذجين ووحدة نمطية والحقيقة أنك لست بحاجة إلا إلى نموذج واحد إلى جانب الوحدة النمطية في النسخ النهائية (وهما ماستجدونهما في النسخة التوضيحية) أما نموذج منشئ صيغة أمر الإستدعاء فلن تحتاجه إلا خلال التطوير وهنا يجب علي أن أتقدم بألشكر للأخ العزيز @Foksh والذي دائماً ما يتحفنا بهدايا تقدم في ظاهرها وظائف رئيسية وفي باطنها تقدم وظائف أخرى فرعية أو مخفية لاتقل في أهميتها عن الوظيفة الأساسية التي تقدمها الأداة ومن ضمن هذه الهدايا المخفية كانت وظيفة تحويل أي تطبيق إلى وظيفة إضافية Add-in لذا فقد قمت بإستخدام الكود الخاص به لمنح إمكانية حفظ الأداة كوظيفة إضافية ليمكن للجميع الإستفادة من الإداة في جميع تطبيقات أكسس دون الحاجة إلى إستيراد نموذج منشئ صيغة أمر الإستدعاء ملف أكسس الآخر فهو بإسم (النسخة التوضيحية) وستجدون فيه بعض الأمثلة لطريقة الإستفادة من الأداة (أحد الأمثلة أعتبره هدية بحد ذاته) ملاحظة مهمة : أرجو قراءة التعليقات المرفقة بالكود الخاص بكل زر أمر لكل مثال فستجدون فيها توضيح لكل إجراء في الأخير أرجو أن تنال الأداة إعجابكم وأن تجدو فيها الفائدة في أعمالكم وإذا كان لدى أي أحد أي إستفسار أو ملاحظة فلا يبخل علينا بها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 09/01/26 الاقسام قسم الأكسيس  

حتماً لن ينفعل ولا حل لأننا نجهل أسماء الحقول ولا بنية الاستعلامات أصلاً .. وبعد أن توضحت المشاكل التي في أساس عدم نجاح الفكرة .. الاستعلام 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 من نهاية الكود