ارجو المساعدة !
عندي تقرير عن الطلاب والمطلوب حساب المعدل العام للصف كما يلي
مجموع معدلات الطلبة تقسيم عدد الطلبة
مع العلم ان كل طالب يطبع له تقرير في صفحة مستقلة
مرفق لكم الملف الذي فيه التقرير
مشكلة حسابية في التقرير
مغلق
بالنسبة لمعدل الفصل فهل تقصد مجموع معدلات الطلاب تقسيم عدد الطلاب أي أن :
معدل العام للصف= جميع معدلات الطلاب ÷ عدد الطلاب
اذا كان هذا ما تريد فإليك التعديل التالي في الملف المرفق .
الف شكر لكم جميعا - نعم الاخوان انتم وتحياتي للجميع
في المثال الذي طرحة الاخ مهند عبادي ترتيب الطلبة ارقام وقد حاولت عن طريق دالة IIF ان احوله الى ترتيب كتابة مثلا " الاول - الثاني - الثالث ... الخ " ولكن لم استطع تجاوز الترتيب " الخامس عشر " هل ممكن الوصول بالترتيب كتابة الى " ثلاثون" مثلا
وشكر حاص للاخوة مهند عبادي والمكترث وتحياتي للجميع
أنت بحاجة إلى Function خاص لعمل ذلك ..
وإن شاء الله قريباً سأضعه لك
هذا هو الFunction
Function WordSorter(N As Integer) As String Dim A(9) As String, B(9) As String, D As String, S As String Dim p1 As Byte, p2 As Byte A(0) = "" A(1) = "الحادي" A(2) = "الثاني" A(3) = "الثالث" A(4) = "الرابع" A(5) = "الخامس" A(6) = "السادس" A(7) = "السابع" A(8) = "الثامن" A(9) = "التاسع" B(0) = "" B(1) = "عشر" B(2) = "العشرون" B(3) = "الثلاثون" B(4) = "الأربعون" B(5) = "الخمسون" B(6) = "الستون" B(7) = "السبعون" B(8) = "الثمانون" B(9) = "التسعون" S = Format(Str(N), "00") p1 = Val(Left(S, 1)) p2 = Val(Mid(S, 2, 1)) D = IIf(p2 = 0 Or p1 < 2, " ", " و") If N = 1 Then WordSorter = "الأول" ElseIf N = 10 Then WordSorter = "العاشر" Else WordSorter = A(p2) & D & B(p1) End If End Function
تم تعديل هذه المشاركة بواسطة مهند عبادي في 31 مايو 2004 في 21:28
الف شكرا اخي مهند على تجاوبك السريع وشكرا لجميع الاخوان المشاركين في هذا المنتدى وانا الان سوف اجرب الدالة التي وضعتها يا اخ مهند وارجو ان انجح في استخدامها
اخي العزيز مهند حاولت تطبيق الدالة ولكن لم انجح في ربطها , دائما احصل على رسلة خطا ولم استطع اكتشاف الخطا الذي وقعت فيه ! ارجو اذا ممكن وضعها في المثال السابق لقاعدة البيانات التي تكرمت بتعيديلها سابقا. وجزاك الله الف خير.
اسعد الله اوقاتكم بكل خير
في التقرير المرفق استطعت بمساعدة الاخ مهند و بعض الاخوة من القيام بحساب المعدل لكل طالب وحساب معدل الصف واجراء التصنيف للطلبة ( ممتاز, جيد جدا, ...الخ ) بناء على الدرجات التي حصل عليها الطالب .
بقيت الان مشكلة ترتيب الطلبة ( الاول , الثاني, وحتى الثلاثين مثلا ) استطعت عن طريق دالة IIF ان اضع ترتيب الطلبة بشكل صحيح حتى الخامس عشر ____ ثم قدم لي الاخ مهند دالة تقوم بالترتيب ولكن لم استطع استخدامها ارجو من الجميع المشاركة لتعم الفائدة واوكد لكم باني بدأت في هذا الملف ولم تكن عندي اي خبرة تذكر وبفضل ومشاركات ومناقشلت الاخوة في المنتدى استطعت احرز تقدم ملحوظ
تحياتي للجميع
الى جميع الاخوان الكرام اسعد الله اوقاتكم جميعا
ارجو المساعدة في طريقة تطبيق الدالة التي كتبها الاخ مهند مشكورا على التقرير .
تحياتي للجميع
أخي بيجان
اعمل وحدة نمطية جديدة .. ضع فيها الدالة التي كتبتها فوق ثم احفظ هذه الوحدة النمطية باس اسم كان
اذهب للتقرير .. في مربع النص الذي تريده أن يعرض لك ترتيب الطالب .. اكتب مصدر عنصر التحكم :
= WordSorter(N)
حيث N يجب أن تستبدلها باسم حقل ترتيب الطالب
شكرا ياخ مهند على التجاوب وارجو ان تستحملني لان كل محصلتي في الاكسس هي من هذا المنتدى والحمدلله استطيع الان ان اعمل برامج مفيده لزملائي في العمل وهذا بفضلكم . شكرا جزيلا مرة ثانية
سأطبق ما قلت وسوف اخبركم بالنتيجة
بارك الله فيك أستاذ مهند ..
حاولت تطبيق الوحدة النمطية على أحد البرامج التي وضعها أحد الأخوان ولكن يبدو أن هناك خطأ فيها من الرقم (2) إلى الرقم (9) أما الأرقام (1) و(10) وما فوقها فهي صحيحة تقريباً إن شاء الله .. أنظر الملف المرفق لترى الخطأ .
تحياتي ..
يعطيك العافية يااخ مهند الدالة تفي بالغرض ولكن مثلما قال الاخ فهد الدوسري هناك خطاء في الترتيب من الثاني الى التسع (قيمة B ) ولكن انا عدلت القيم B وكانت النتيجة ممتازة
شكرا جزيلا
أخي الكريم فهد وأخي بيجان
آسف على وجود هذا الخطأ لأني كتبت الدالة بسرعة ولم أقم بتجريبها ..
على أي حال لقد أصلحتها في الموضوع فوق
وهذا الملف الذي أرسله أخي فهد للتجريب بعد إصلاح الدالة فيه أيضاً
بارك الله فيك أخي مهند
بكل صراحة انا استفدت كثيرا من مجرد متابعتي لاي موضوع اجد فيه مشاركة من الاخ مهند عبادي ومداخلة من الاخ فهد الدوسري ,لان الحوار بينهم يبسط المسائل الصعبة ويفتح افاق جديدة للتعلم بطريقة سهلة
شكرا لكم جميعا
هذا الموضوع مغلق.