Foksh

العفو يا صديقي .. انا لم اقدم شيئاً مقارنة مع ما قدمه معلمنا @ابوخليل جزاه الله كل الخير لما أفادني فيه من معلومات

وإياكم يا صديقي 🤗.. هنا يبدو أن المشروع ضخم جداً بناءً على كلامك 😅 .

أخي الكريم اعتذر عن التأخير ، ولكن نهاية الأسبوع تكون مزدحمة في العمل عندي للأسف ,, على كل حال ، في فكرة ادخال البيانات لـ 3 جداول غير الجدول الرئيسي طبعاً أمامك طريقين :- 1. باستخدام نماذج فرعية عدد 3 ويتم الربط بينها لإدخال البيانات لنفس الموظف . 2. باستخدام نموذج واحد يحتوي جميع الحقول التي تريدها ولكن باستعلام إضافة الى الجداول الـ 4 سوية وكل مربع نص الى حقله وجدوله . وهنا علي إخبارك بالفروقات فيما بينها :- إذا كان المشروع مستقر ولا يتطلب تغييرات كبيرة مستقبلاً ، فإن استخدام المربعات النصية غير المنضمة قد يكون مفيداً إذا كنا بحاجة إلى تصميم مرن أو واجهة مخصصة لهذه الغاية . أما إذا كنت تتوقع تغييرات مستمرة في هيكل البيانات أو تبحث عن طريقة أكثر تنظيماً وسهولة في الصيانة على المدى الطويل ، فالنماذج الفرعية هي الخيار الأفضل والأكثر أماناً . هنا لك حرية الإختيار .

تم الخلط بين موضوع المادة وموضوع الصف .. تم تعديل المشاركة .. وللأسف تشتت أفكاري بين هنا وهناك اعتذر 😫

هههههه ذكرته فأتى

في الواقع ما كنت قد فتحت المرفق لأنني كنت بعيد عن الكمبيوتر ، ولكن فعلاً قد رأيتها وقد راقت لي الفكرة ,, سؤالي ، هل فقط الصفوف الأول والثاني من تتبع لهذه السياسة في تحديد نسبة أيام الحضور ؟؟؟ أم سيكون هناك لكل صف نسبة مختلفة !!!! وهذا لا اعتقد انه وارد ، ولكن من باب الفضول في التمعن في فكرة النموذج

تقصد في هذا النموذج ؟؟ أم في أي نموذج ؟؟؟

فيما يلي ، مرحلة التعديل على الإستمارة التي وصلت اليها للصفوف الدنيا ( الأول و الثاني ) حالياً

حال وصولي للكمبيوتر ان شاء الله في العمل سأقوم بالتطبيق على الملف وارفاقه

بارك الله بكم معلمي الفاضل ,, هذا من فضل الله، ثم توجيهاتكم والتي أتعلم منها . ما شاء الله ، تبارك الرحمن ,, اختصرت جهد في الدالة Public Function funCountDays() Dim cntday As Integer cntday = Nz(DLookup("Darajh", "Tbl_materil_Detail", "mat_NO=15"), 0) funCountDays = (50 * cntday) / 100 End Function طبعاً هنا تم تقييد وتحديد النسبة المئوية = 50 ، ولم يتم منح الحرية لعدد أيام الحضور لكل عام ؟؟ أما أنا قد فاتني التركيز على هذه النقطة . وحتى ان المرفق الأخير أكثر شمولاً لكل الصفوف .. ابدعت .. وجزاك الله خيراً .. وإنني انتظر شكل و نتيجة النسبة التي ستعرض في نتيجة الحضور مع اعلم أنني في طور تقديم حل لمعالجة نقاط الضعف التي ذكرتها لي ، في تعديل لاحق حال الانتهاء منه ان شاء الله . ما لم يكن هناك أي مانع من تعديلاتي على مجمل الكود العام

الملف الذي خرجت به .. Database28.zip

في محاولتي ، خرجت بهذه النتيجة بعد تجربة المرفق الأخير لأستاذي ابو خليل

طيب استحملوني في استفساراتي حتى نعلم كيف يمكننا حصر المشكلة والخروج بحل مناسب . كيف سيتم حصر عدد ايام الحضور في العام الدراسي ؟؟ لذا افكر في جدول مخصص لإعدادات هذه المشكلة ، بحيث يضم الحقول التالية على سبيل المثال :- حقل العام الدراسي = 2024 / 2025 م على سبيل المثال وكما هو متبع في تأسيسكم . حقل عدد أيام الحضور الكلي . ويتم تحديدها من طرف الإدارة أو المسؤول . حقل النسبة المئوية المطلوبة = لجعل الفكرة أكثر مرونة عند التطبيق . 4 حقول تمثل ( تاريخ بداية ونهاية الفصل الأول والثاني ) منفصلة . حالة العام الدراسي = حقل اختياري من نوع Yes/No ما رأيكم ؟

رأيي في معلمي .. سامحك الله أستاذي الفاضل .. العين لا تعلو عن الحاجب ، بل أضف إليها ( لا و لن ) على العموم بتصوري لشكل النتيجة سيكون كالتالي :- انا كتبت هذا التعليق وظننت أني قد ارفقته ، على العموم سأحاول المشاركة في إبداء رأيي المتواضع والبحث عن فكرة أخرى مساندة ونشكركم لثقتكم

لي مداخلة ايضاً حاولت تتبعها لكني الصحيح دخلت في دوامة .. في الجدول Tbl_student حيث رقم الطالب الفريد = id_student صحيح ؟؟ بينما في الجدول Tbl_degree_Detail حيث معرف الطالب = Stu_card !!!! ولدي ايضاً سؤال آخر ( مؤجل في الوقت الحالي ) حتى أفهم أكثر آلية العمل التي تم تأسيسها في المشروع على العموم ، هل الصورة التالية تعكس النتيجة المطلوبة كقيم لمادة الحضور ؟؟ أم أنني ابتعدت عن محور الحديث والمطلوب 😅😅 ؟؟ لم أطلع على المرفق من طرف أستاذي ابو خليل لعدم تحديثي للصفحة

أخي الكريم @The best ، فقط للتذكير . ذكرني بأسماء الجداول التي تتعلق بمعلومات العميل الرئيسية .. شوف الصورة دي من الجدول الخاص بمعلومات العميل .. ولا في معلومات وبيانات تانية خاصة بجداول تانية هتملاها من نفس النموذج ؟؟؟

الى حد ما توضحت الفكرة .. ولكن لي تعليق على ما تفضلت به سابقاً !!! هذه الجملة " فى حالة total =صفر واسم المعمل فارغ اريد اسم المريض واسم المعمل بدون تنسيق " عكس هذا الطلب كلياً .. " عندما يكون اسم المعمل فارغ Total_out اكبر من صفر يصبح اللون الخلفية ازرق فى اسم المعمل واسم المريض " هل ما تقصده total = Total_out هو نفسه ؟؟؟؟؟ على العموم هل الفكرة التالية صحيحة :-

المطلوب غير واضح أخي الكريم

ليس من طبعي عدم استكمال بداية قد بدأتها ،ولكنك اخي الكريم في كل مرة تقوم بتوجيه طلب مختلف ، أو انك من البداية لم تقم بتوضيح المطلوب بشكل جيد . وها ما جعلني استنكف عن المتابعة . لكن على العموم ، اتمنى ان لايكون الهدف في رأسك غير الذي أشرت اليه مؤخراً . ولذا فهذه تجربتي علها تكون ما تريده . المديول سيصبح بهذا الشكل ( التعديل فقط على الدالة الأخيرة ) .. Function DurationToWords(StartDate As Variant, EndDate As Variant) As String Dim diff As Integer If IsNull(StartDate) Or IsNull(EndDate) Then DurationToWords = "لم يتم إدخال تاريخين للمقارنة" Exit Function End If diff = DateDiff("yyyy", StartDate, EndDate) If Month(EndDate) < Month(StartDate) Or _ (Month(EndDate) = Month(StartDate) And Day(EndDate) < Day(StartDate)) Then diff = diff - 1 End If Select Case diff Case Is < 0 DurationToWords = "تاريخ غير صالح" Case 0 DurationToWords = "أقل من سنة" Case 1 DurationToWords = "سنة واحدة" Case 2 DurationToWords = "سنتان" Case 3 To 10 DurationToWords = NumberToArabicWords(diff, True) & " سنوات" Case Else DurationToWords = NumberToArabicWords(diff, True) & " سنة" End Select End Function Function NumberToArabicWords(ByVal Number As Long, Optional IsFeminine As Boolean = False) As String Dim UnitsMasc, UnitsFem, Tens, TeensMasc, TeensFem, Hundreds UnitsMasc = Array("", "واحد", "اثنان", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة") UnitsFem = Array("", "واحدة", "اثنتان", "ثلاث", "أربع", "خمس", "ست", "سبع", "ثمان", "تسع") TeensMasc = Array("عشرة", "أحد عشر", "اثنا عشر", "ثلاثة عشر", "أربعة عشر", "خمسة عشر", "ستة عشر", "سبعة عشر", "ثمانية عشر", "تسعة عشر") TeensFem = Array("عشرة", "إحدى عشرة", "اثنتا عشرة", "ثلاث عشرة", "أربع عشرة", "خمس عشرة", "ست عشرة", "سبع عشرة", "ثماني عشرة", "تسع عشرة") Tens = Array("", "عشرة", "عشرون", "ثلاثون", "أربعون", "خمسون", "ستون", "سبعون", "ثمانون", "تسعون") Hundreds = Array("", "مئة", "مئتان", "ثلاثمئة", "أربعمئة", "خمسمئة", "ستمئة", "سبعمئة", "ثمانمئة", "تسعمئة") Dim Words As String Dim n As Long Dim h, t, u As Integer If Number = 0 Then NumberToArabicWords = "صفر" Exit Function End If If Number = 10 Then NumberToArabicWords = IIf(IsFeminine, "عشر", "عشرة") Exit Function End If If Number > 999 Then Dim Thousands As Long Thousands = Number \ 1000 Words = NumberToArabicWords(Thousands, False) & " ألف" n = Number Mod 1000 If n > 0 Then Words = Words & " و" & NumberToArabicWords(n, IsFeminine) NumberToArabicWords = Words Exit Function End If h = Number \ 100 t = (Number Mod 100) \ 10 u = Number Mod 10 If h > 0 Then Words = Hundreds(h) If (Number Mod 100) >= 11 And (Number Mod 100) <= 19 Then If Words <> "" Then Words = Words & " و" If IsFeminine Then Words = Words & TeensFem((Number Mod 100) - 10) Else Words = Words & TeensMasc((Number Mod 100) - 10) End If Else Dim UnitsArray UnitsArray = IIf(IsFeminine, UnitsFem, UnitsMasc) If t > 1 Then If u > 0 Then If Words <> "" Then Words = Words & " و" Words = Words & UnitsArray(u) & " و" & Tens(t) Else If Words <> "" Then Words = Words & " و" Words = Words & Tens(t) End If ElseIf u > 0 Then If Words <> "" Then Words = Words & " و" Words = Words & UnitsArray(u) End If End If NumberToArabicWords = Words End Function Function GetDurationStatus(StartDate As Variant, EndDate As Variant) As String If IsNull(StartDate) Or IsNull(EndDate) Then GetDurationStatus = "" Exit Function End If If EndDate < Date Then GetDurationStatus = "Expired" Else GetDurationStatus = "Current" End If End Function وفي التنسيق الشرطي استدعينا الدالة بها الشكل كما في الصورة :- حيث تم استدعاء الدالة مع تحديد اذا كانت النتيجة = Expired أو Current لتحديد اللون . المرفق الأخير :- تفقيط التاريخ 1 (2).accdb

بدايةً اعتذر عن عدم الرد سابقاً ، وان شاء الله إن استطعت الليلة سأقوم باقتراح نموذج يلبي الاحتياجات.

طيب استحملني في كم سؤال كده .. بما اني ما حملتش الملف في الوقت الحالي ، هل لديك جدول خاص بالحضور ؟؟؟؟ وكيف يتم ربط جدول الدرجات بجدول الحضور (مفتاح الربط) اذا كان موجود ؟؟

اعتذر عن المتابعة .. فأنت لا تعرف ماذا تريد 🙄

أخي الكريم @2saad ، قرابة اليوم ولم تجد اي إجابة .. صحيح ؟؟ يبدو انك لم تقم بالتوضيح المطلوب والشرح الوافي كي تساعد من يمر من هنا على فهم المعطيات بشكل جيد . فالأستاذ @ابوخليل جزاه الله خيراً كان معك من بداية الطريق عندما بدأتم تصميم الفكرة ، وهو على دراية بمخرجات ومدخلات سير العمل على مشروعك . لذا نرجو منك زيادة الشرح بإسهاب كي تتوضح لنا فكرة العمل التي نريد التعديل عليها , وجزاكم الله كل خير

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