كل الانشطه

السلام عليكم مرفق لحاضرتكم ملق اكسيل مكون عدد من اوراق العمل اريد كود vba لمعرفه اعداد الذكور و اعداد الاناث و اعداد الغير محدد طبقا للرقم القومي حيث يعتمد علي الشيت الاساسي Sheet_Main العمود I في الجدول الاول و هو النوع تم استخراجه بواسطه معادله بناء علي الرقم القومي و العمود S يحتوي علي نوع العميل للعملاء للمصروفه مع العلم ان لو العميل اجنبي فبالتالي لم استطع الحصول علي نوعه ذكر ام انثي و كذلك لم استطع الحصول علي سنه لذا تم كتابتها غير محدد علما بان اسماء العملاء ليست فريده اي انها ممكن ان يكون فيها تكرارات اريد كود VBA لحساب عدد الذكور عدد الاناث عدد الغير محدد و اجمالي المبالغ لكل فئه و عدد العمليات التي نفذها كل فئه شكرا جزيلا للمساعد و مرفق عينه بسيطه من العملاء كلمة المرور vbaproject:0404701219 النسخه النهائيه+++++++++++.xlsm

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

تم طرح نفس المشكلة تقريباً في موضوع قديم هنا :- وللأسف كانت فكرتك مبنية على أنك لا تريد أن يتم الغاء التنشيط أو الرول باك .. صحيح !!

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

والله انا كنت عامل استعلامين ( ذكور - إناث ) وتقريرين ( ذكور واناث ) واختار الفصل الدراسي والفئة والصف من النموذج وعامل زر للذكور وزر للإناث ويجلب الدور الأول والدور الثاني بس المشكلة في تكرار الصفوف عندي كما ذكرتك عااليا

ايضا انت نسيت حاجة طلاب ناجحون الدور الأول + طالبات طلاب ناجحون الدور الثاني + طالبات على طريقتك سوف تعمل اربع استعلامات واربع تقارير .. والصحيح استعلام واحد وتقرير واحد .. والتصفية من خلال النموذج

الله ينور علي حضرتك ويبارك فيك هو بالضبط هعمل للذكور والإناث بس انا اخدت مثال علي الذكور للتسهيل وبعدين كنت هطبق عليه لللإناث

السبب هو الرقم السري لا يتم اضافته الى نتيجة الترم الثاني وبكذا لا يمكن التجميع دعنا من هذا .. حيث يمكن علاجه ولكن السؤال لماذا تخصص استعلام للذكور وتقرير يخصهم ؟ هذا يعني انك ستعمل شيءا مماثلا للاناث وهذا عمل المبتدئين الم تفكر باستعلام واحد وتقرير واحد للكل .. والتصفية تتم من خلال النموذج ؟

مشكلتك من الذي تحذر منه كود الفترة شغال 100% مشكلتك في الكود عند تحميل النموذج BASEL2.rar

هذه بسيطة إن شاء الله ,, لكن تعليقي على هذه :- حيث ان عند تحويل الأوقات الى دقائق :- 300 + 360 + 300 + 300 + 389 + 300 + 375 + 366 + 270 + 380 + 300 + 380 + 375 + 270 + 330 + 300 + 375 + 375 + 300 + 375 + 300 = 7020 دقيقة وعند التحويل بقسمة المجموع على 60 7020 ÷ 60 = 117 ساعة إذاً الناتج يكون 117 ساعة .. أما في طلبك الإضافي :- SELECT Tbl_Salary.Mmonth, Format(Sum(DateDiff("n",[Start_Day],[End_Day]))\60,"00") & ":" & Format(Sum(DateDiff("n",[Start_Day],[End_Day])) Mod 60,"00") AS Total_Work_Time, Count(Tbl_Salary.ID) AS Work_Days, Round(Sum(DateDiff("n",[Start_Day],[End_Day]))/300,2) AS Actual_Work_Days FROM Tbl_Salary GROUP BY Tbl_Salary.Mmonth ORDER BY Min(Tbl_Salary.DDate); Mmonth Total_Work_Time Work_Days Actual_Work_Days May 153:30 28 30.7 June 117:00 21 23.4 July 139:28 25 27.89 August 133:35 23 26.72

أخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند فتحه يظهر نموذج عند الضغط علي زر التقارير يظهر نموذج عند اختيار الفصل الدراسي ( مثلا الثاني ) ثم اختيار الفئة ( مثلا العليا ) ثم اختيار الصف ( السادس مثلا ) ثم الضغط علي زر ( طلاب ناجحين ) يظهر تقرير بالطلاب الذكور الناجحين المبني علي استعلام ( qry_Temp_succful_boys ) المشكلة في التقرير ان الصف يتكرر مرتين يعني مسلسل 1 يتكرر مرتين ببياناته . فما السبب ؟ Data128.rar

وعليكم السلام ورحمة الله وبركاته الملف المرفق بالمعادلات به كل ما يخص الرقم القومي و حساب السن لطلبة المدارس حساب السن بالرقم القومي.xlsx

خالص الشكر معلمى الفاضل طلب اخير ليكتمل العمل مثلا فى شهر august عدد الايام 23 يوم والساعات والدقائق التى عملت فيها 133:35 اذا كان اليوم 5 ساعات عمل133:35 تساوى كام يوم مثلا 26.67 يوم عشان اعرف الوقت الاضافى اريد اضافة حقل فى الاستعلام ييظر عدد الايام بعد القسمى على 5 ساعات ملحوظة فى التجميع اليدوى شهر june = 116:00 فى جدول حضرتك مكتوب امام شهر june = 117:00 برجاء اعادة التجميع لان فر فروق فى باقى الاشهر لك خالص الشكر

وعليكم السلام ورحمة الله وبركاته .. استخدم هذا الاستعلام :- SELECT Tbl_Salary.Mmonth, Format(Sum(DateDiff("n", [Start_Day], [End_Day]))\60,"00") & ":" & Format(Sum(DateDiff("n", [Start_Day], [End_Day])) Mod 60,"00") AS Total_Work_Time, Count(Tbl_Salary.ID) AS Work_Days FROM Tbl_Salary GROUP BY Tbl_Salary.Mmonth ORDER BY Min(Tbl_Salary.DDate); سيعرض لك اسم الشهر ، ومجموع ساعات العمل فيه ، وعدد أيام العمل أيضاً Que_Foksh Mmonth Total_Work_Time Work_Days May 153:30 28 June 117:00 21 July 139:28 25 August 133:35 23 ملفك بعد التعديل :- JO_TIME.zip

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

اشكركم جميعا على تنويري بالرد على سؤالي شكرا لكم مافائد هذه المكتبات ؟

عليكم السلام هل هذه حزورة ؟؟ كيف تريد التعديل على الكود .. مع عدم التغيير ؟ اذا انت تقصد الابقاء على استخدام Me.Filter في التصفية .. يمكن السؤال يكون على النحو التالي : اريد تصفية البيانات بناء على الاختيار من مربعي التحرير باستخدام Me.Filter

الخبراء الافاضل بعد التحية عند جدول حضور وانصراف قمت بعمل فرق للوقتين بمساعدة الافاضل اعضاء المنتدى والان اريد تجميع هذا الفارق بمعنى حضو ر8:40 AM وانصراف PM 5:25 الفرق = Wowk_time 8:45 اريد فى استعلام تجميع عدد ساعات العمل حسب الشهر مثلا مايو = 153:42 يوتيو = 161:23 وهكذا اليكم القاعدة للتعديل عليها يتم التجميع حسب اسم الشهر Mmonth JO_TIME.rar

جرب الملف المرفق هدية من عمالقة المنتدى جزاهم الله عنا خير الجزاء الرقم القومي نهائي.xls

وعليكم السلام ورحمة الله وبركاته .. هذه الرسالة تعني ان هناك دالة أو وظيفة أو ماكرو يحمل نفس الإسم : Kh_Date_Gender_Province قد يكون على سبيل المثال اسم الدالة بأحد هذه الخيارات :- Sub Kh_Date_Gender_Province() أو Public Function Kh_Date_Gender_Province تحقق من أن اسم الدالة غير مكرر في نفس الأكواد

ملف به المديول المحافظة.rar

شكرا جزيلا أخي الفاضل وبارك الله فيك

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

اكملت يعمل بملايين السجلات للعرض التقارير للمعاينة قبل الطباعة مع التقسيم =========================================( @Foksh 🌹☕ 64 bit مع اقل ذاكرة 4 GB والمفترض يكون على القليل 8 GB احسن من 32 يسخن ويحترق اقصد يعطب لا يستوعب الامكانيات 😂 المهم عرفة وين يشتغل ==================================( استاذ @ابو جودي❤️🌹☕ والمهم ملاحظاتك قبل الرفع واستكمال الموضوع الثاني ====================( ممكن اعدل على الكود

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