كل الانشطه

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

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

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

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

مشكلتك من الذي تحذر منه كود الفترة شغال 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

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

دوال API سوف تحتاج لمعالجة خاصة مع كلتا النواتان عند كتابة الكود ان اردت التطبيق يعمل مع اى منهما نركز شوية يا فؤش أفندى من فضلك الخلاصة سياسة مايكروسوفت الرسمية مايكروسوفت تنصح باستخدام Office 64-بت فقط إذا: تتعامل مع ملفات ضخمة جدا (ملفات Excel أو Power BI) لديك RAM أكثر من 4GB وتحتاج الاستفادة منها بالكامل أما بالنسبة لـ Access فتوصي مايكروسوفت بـ Office 32-بت إذا كنت: تستخدم قواعد بيانات قديمة أو إضافات COM تعتمد على ActiveX أو كائنات VB6 وعلشان محدش يدخل بعد كده يقول لى انت جايب الكلام ده منين : من هنا رابط سياسية مايكروسوفت فى اختيار الانوية وملخص المقال كلاتى : متى تختار Office 64‑بت: إذا كنت تتعامل مع ملفات كبيرة جدا مثل Excel تتعدى 2 GB أو تستخدم Power Pivo - Power BI أو صور وفيديوهات ضخمة في PowerPoint جهازك يحتوي على ذاكرة RAM أكبر من 4 GB وتريد الاستفادة من السعة الكاملة لذاكرة الوصول هذا النوع من الاستخدام يستفيد من قدرة 64 بت على الوصول إلى مساحة عناوين كبيرة جدا (حتى تيرابايت) متى تختار Office 32‑بت: لديك إضافات COM اذن لابد من استخدام 32 بت أو مكتبات ActiveX قديمة لا تتوفر بنسخة 64 بت تستخدم ملفات Access تم ( تشفيرها ) إنشاؤها مسبقا بصيغة mde أو accde بصيغة 32 بت تعتمد في كودك على دوال Windows API أو وحدات Declare غير متوافقة مع 64 بت إلا بعد تعديل (PtrSafe و LongPtr) في هذه الحالات يظل الإصدار 32 بت هو الخيار الأكثر موثوقية واستقرارية -------------------------------------------------- الأفضل غالبا بالنسبة للتعامل مع قواعد بيانات الاكسس وهذا رأى انا الشخصى : 64 بت الأسباب: أكثر توافقا مع الأنظمة الحديثة (ويندوز 64 بت – وهو الغالب حاليا) أداء أفضل عند التعامل مع ملفات Excel أو ملفات Access ضخمة جدا (خاصة عند استخدام استعلامات خارجية أو روابط) أفضل دعم أمني على مستوى النظام (بسبب استبعاد مكتبات 32 بت القديمة غير الآمنة) استقرار أكبر على أنظمة حديثة تستخدم Office 64 بت بشكل كامل ولكن: إذا كنت تستخدم أحد التالي: مكتبات DAO/ADO قديمة ملفات ACCDE/OCX مبنية على 32بت إضافات مثل شجرة TreeView أو Mscomctl.ocx تعليمات API بدون PtrSafe الأفضل: 32 بت لأنك ستتجنب مشاكل التوافق وإعادة كتابة أو تعديل الكود لكن كمطور قواعد بيانات أكسس : بغض النظر عن النواة أفضل ممارسة هي كتابة الكود بصيغة متوافقة مع النواتين (باستخدام If VBA7 Then- PtrSafe- LongPtr# وغيرها حسب وضع الكود) بحيث تعمل برامجك على أي بيئة دون مشاكل مستقبلية