كل الانشطه

تحية طيبة أستاذنا @ابوخليل و شكرا كثيرا على المتابعة (لقد أضفت حقل في النموذج للتجربة أكثر فقط) أستاذنا بعد التجربة اتضح مايلي: عند الضغط على زر حفظ لحفظ البيانات تظهر الرسالة الموضحة في الصورة المرفقة وكذلك الكود الخاص بإلغاء التنشيط عند الخروج من النموذج أصبح لا يعمل جيدا عند ظهور الرسالة الخاصة بحفظ البيانات إذا ما قمت بتغيير للبيانات في النموذج أصبحت لا تعمل بشكل جيدا سواء عند الضغط على زر نعم أو لا : يتم حفظ البيانات تلقائيا. وبارك الله فيك 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

وعليكم السلام ورحمة الله وبركاته ,, حل مشكلتك إن شاء الله بسيط . في المديول اللي في مشروعك الرئيسي ، انقل الدالة التالية :- Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function الآن في النموذج استدعي الدالة التالية في مربع النص الذي تريد الترقيم فيه بدلاً من القديمة :- =RowNum([Form]) وأخبرنا بالنتيجة

السلام عليكم ورحمة الله وبركاته لدي في المرفقات قاعدة بيانات خاصة بالاجازات ولدي فيها نموذج اسمه emp-hol-between-twodates يختص ببيان اجازات الموظفين الواقعة بين تاريخين ويتم استدعاء هذا النموذج عن طريق نموذج اخر اسمه w_moka_mid11 ومشكلة هذا النموذج تتلخص في ترقيم النموذج نفسه فاءذا اخد الموظف اجازاتين او اكثر يكرر نفس الترقيم وحاولت ان اعدل ولم اتمكن من ذلك hol.accdb

أنا مركز معاك وبكل حرف وزي ما تحب وزيادة 😎 شكراً لك ولمصدر معلوماتك على هذه المداخلة 😏