AbuuAhmed

أنا قمت بتنظيم الأحداث حتى تسهل علي مراجعة المطوب .. أرجو أن لا تبدل في الأكواد حاليا. وتم التعديل في الجدول كذلك بتبديل أنواع الحقول. الآن أعد صياغة مطالبك الحسابية من جديد وبشكل مفصل. بانتظارك Calculate_astalt_01.accdb

جرب هذه المعادلة: =IF(C24="أنثى",IF(C23="ناجح","قد نجحت","لها برنامج علاجي"),IF(C23="ناجح","قد نجح","له برنامج علاجي")) & " في امتحان الصف"

نبارك لكم الترقية ونتمنى لكم التقدم والنجاح المستمرين .. وعساكم ع القوة.

تم التعديل وتصحيح هفوة اكتشفتها بالصدفة. اختر هذه المشاركة كأفضل إجابة بعد إلغاء الاختيار الأسبق. التكرار في اللجان_06.xlsm

حسب فهمي: قراءة اليومية_01.xlsx

تم التعديل على أكوادي والتصرف بأكوادكم المضافة أخيرا.

لكن هذا المرفق ليس الأخير!! ودائما احرص على تقديم مثال متكامل منذ البداية ، الأكواد تكتب بعد دراسة المثال وحيثياته ، هكذا المثال تبدلت ملامحه السابقة. حتى مناداة كود البحث تبديله يحتاج إلى جهد إضافي فالمناداة من الزر يختلف عنه في حدث عند التحديث فالأمر ليس تبديل مسميات فقط. طبعا أنا يعز علي أن أعمل عملا ويذهب فيه جهدي في مهب الريح ، فإذا أردت التعديل فارفع النسخة الأخيرة رقم 4 وليست 3.

سأحاول الليلة إن شاء الله فإن وفقت في الحل رفعته لك. مع المعذرة .. حققت لك جزء من طلبك واسمح لي بالتوقف عند هذه النقطة موفقين. التكرار في اللجان_04.xlsm

مقارنة بين Int و Fix مع التاريخ والوقت: Sub FixDateTest() Dim DateTest As String DateTest = "1899/12/29 10:25:30" Debug.Print CDate(DateTest), Fix(CDate(DateTest)), Int(CDate(DateTest)) DateTest = "1899/12/31 10:25:30" Debug.Print CDate(DateTest), Fix(CDate(DateTest)), Int(CDate(DateTest)) End Sub والنتائج كالتالي: 29/12/1899 10:25:30 29/12/1899 28/12/1899 31/12/1899 10:25:30 31/12/1899 31/12/1899

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

ما تصلح يا عزيزي ، وتستطيع تجربتهما مع تاريخ ووقت قيمتها الرقمية بالسالب وكذلك التي قيمتها بالموجب وسترى الفرق.

ويمكن استحصال التاريخ فقط باستخدام دالة Fix أيضا.

أنصح بتعديل بيانات الجدول أولا ثم اختبار الحل من جديد وأخمن أن تاريخ النهاية هو الخاطئ ويحتاج إلى زيادة شهر ، طبعا يبقى احتمال خطأ تاريخ البداية قائم. الخلاصة يجب تصحيح أحد التاريخين إما البداية بإنقاصها أو النهاية بزيادتها شهرا واحدا.

بعد التعديل حسب طلبك. التكرار في اللجان_03.xlsm

سؤال هامشي شاهدت هناك عدم تواصل في المدد وبفاصل شهر كالتالي: من 8/2020 الى 3/2022 من 4/2022 الى 1/2023 من 2/2023 الى 8/2023 يفترض أن يكون بداية الفترة التالية هي نفسها نهاية الفترة السابقة وإلا يعتبر هناك شهر مفقود ، (إلا إذا كانت مقصودة). المهم في الأمر أنا رفيق الكل.

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

الأمور غير واضحة ، ويبدو لي أن بيانات الجدول فيها تكرار ، على كل حتى البيانات في الجدول غير مفهومة. كما أن الدالة تستقبل متغيرين غير مستعملين Q و actv ولا دور لهما في الدالة. وقد قمت بفلترة الجدول بعدة أشكال ولكن مع كل النتائج أرى أن هناك سجلات متشابهة!! الصورة غير واضحة. - إما أن توضح أكثر وبتفاصيل واضحة جدا أو ترفع نسخة أخرى تحتوي على نموذج لمناداة الدالة وتوضيح أين تود إضافة نتائجها.

الحل كما فهمت 🙂 النسبة المئوية_01.xlsx

جرب هذه الفكرة ، هذا اللي في بالي الآن ، قد تكون أفكار أفضل عند الزملاء. أعتقد الاستعلام الوحيد الذي يحتاج تدخل يدويا عند زيادة أو نقص عدد المواد هو استعلام Q_Grades_Result وهذه المشكلة ممكن التغلب عليها بتصميم الاستعلام بالكود عند الرغبة. اترك التجارب عليك ، احذف أو زد مادة وافحص النتائج. Gradedata_03.accdb

جرب استخدام استعلام Crosstab وسوف تجد فيه الكثير من المتعة والمنفعة. أضفت لك هذا الاستعلام إلى مثالك ، مع ملاحظة أنه يمكنك التعديل على الاستعلام بعد انشائه. موفقين. Gradedata_02.accdb

=Count(*) مشكلة التقرير في هذه الدالة ، لا أنصح باستخدامها فهي من "تخرب" الترتيب. شكرا عمي على تفضلكم.

هكذا: Nz(DLookup("[متوسط سعر الشراء]"; "[qryItemsCosts]"; "[اسم الصنف]='" & [اسم الصنف] & "'"); 0)

أعود لكم الليلة إن ساء الله

أعود لكم الليلة إن شاء الله.

@saad 77 @saad alyousif @فوزى فوزى @مصطفى محمود مصطفى @mohameddeela @فارس حسن3