2saad

أخي الفاضل أبو خليل بعد السلام والتحية المرفق صح الكشف يسلم فارغ مفيش درجات والمعلم يملأه اللي محتاجة حقل الصف والفصل وأسماء التلاميذ لكل فصل والمواد ومعلم المادة للصف الخامس المدون في جدول الطلاب وهنستعين بجدول Tbl_link بمعني نعمل قائمة منسدلة بالصفوف وقائمة منسدلة بالفصول وعندما نختار الصف ثم نختار الفصل يتم ترحيل البيانات ( الصف والفصل وأسماء التلاميذ الموجودين بالفصل بحيث يتكرر الفصل بعدد المواد وعدد المعلمين لكل مادة وهكذا جميع الفصول بالصف المختار ) أتمني أن تكون الفكرة وصلت شكرا جزيلا

أخي العزيز أبو خليل بعد سلام الله عليكم ورحمة الله وبركاته مرفق الملف به تقرير اسمه ( Rebdragat_all456 ) وهوكشف لدرجات التلاميذ للصف الخامس اللي بيتسلم للمعلم عايز اربط الصف بالفصل بالمادة بالمعلم ويتم الطباعة مرة واحدة أنا حاولت بالاستعانة بجدول Tbl_link ولكن لم أفلح Dat9.accdb

شكرا جزيلا لكم جميعا وجعله الله في ميزان حسناتكم

شكرا جزيلا أخي الفاضل أبو خليل وآسف علي تأخيري في الرد لأن النت كان فاصل عندي

الله ينور عليك كده تمام لالا لا أنا عايز افهم اتعملت ازاي الله يكرمك وفيه حاجة كمان : أنا هنزل كل الصفوف علي البرنامج مع بداية السنة الدراسية الجدديدة لعمل قوائم الفصول والأشياء الإدارية وتم تحويل طالب من مدرسة الي مدرستنا وبالتالي هسجله من نموذج ادخال التلاميذ هل هينزل ويتسكن في مكانه ابجديا

إن شاء الله ربنا معاك

كلام حضرتك صحيح أنت حضرتك وصلتني لنقطة مهمة لو جاء تلميذ محول من مدرسة الي مدرستنا هسجله سواء في اي صف عن طريق نموذج تسجيل الطلاب وطبعا هيكون في اخر الجدول سواء ذكر أو انثي وعند قرب الامتحانات أنا عايز اطبع الاسماء ابجديا بالترتيب مع أرقام الجلوس ذكور ثم اناث ليسجل كل معلم درجة مادته في الشيت ( درجة الملف ) ليتم رصدها علي البرنامج طبقا لترتيب الشيت . وبعدها يتم رصد درجة الامتحان لكل مادة حسب الرقم السري . ازاي اطبع الاسماء ابجديا ذكور ثم اناث مع وضع رقم الجلوس مرتبا . بحيث يكون مطابق لنموذج رصد الدرجات . لأعطيه للمعلم .

شكرا لحضرتك أنا عارف أنا بتعب حضرتك معاي كثيرا ولكن بنتعلم وعلشان نتعلم لازم نخطأ ونجرب ونخطأ الي أن نصل للصح . لعله يكون مرجعا لكل الأخوة أنا في انتظار حضرتك

هو حضرتك كده المشكلة لا في النموذج ولا الجدول حضرتك كده المشكلة ان البرنامج بيرتب الاسماء حسب الحروف بغض النظر عن الذكر والانثي بياخد كل علي بعضه بمعني بياخد حرف اح مثل احمد وبعدين وبعدين اد زي ادم وبعدين اسراء من البنات وبالتالي ارقام الجلوس مش متسلسلة أنا عايز أرقام الجلوس تشتغل علي الذكور أولا متتالية لحد ما تخلص الذكور وبعدين يبدا في الاناث فماذا نفعل ؟

أخي ابو خليل نتخيل أنا برصد ملف لغة عربية من نموذج ادخال درجات وأنا قلت لحضرتك الاسماء مرتبة ابجديا الذكور اولا ثم الاناث في الرصد وأنا بتعامل في الرصد أن الاسم أمامه رقم الجلوس مطابق وياتي وراء بعضه متتالي لكن لاحظت أن أرقام الجلوس مش متتالية في نموذج الرصد انظر في الصورة رقم جلوس 521 جاي بعده 524 و (522 و523 ) نزلت تحت

شكرا جزيلا أخي الفاضل هجرب واوفيك بالنتيجة معلش أنا آسف بتعبك معاي تحملني وأرجو ان يتسع صدرك

شكرا أخي الكريم اين المثال الأخير ؟

أستاذي الفاضل أبو خليل بعد سلام الله عليكم ورحمة الله وبركاته جربت الملف علي الصف الخامس كاملا للتجربة وعملت تقسيم لأرقام الجلوس والسري كالآتي : عدد الصف 204 تلميذ وتلميذة ونزلت الأسماء في جدول التلاميذ مرتبة ابجديا الذكور أولا ثم الاناث وتم التقسيم علي ثلاث مجموعات المجموعة الأولي : عدد المجموعة ( 100 ) جلوس يبدأ من 501 والسري 401 المجموعة الثانية : عدد المجموعة ( 100 ) جلوس يبدأ من 601 والسري 301 المجموعة الثالثة : عدد المجموعة ( 4 ) جلوس يبدأ من 701 والسري 501 رجعت انظر الي جدول التلاميذ وشيت رصد الدرجات Dat7.accdbوجدت تقسيم الجلوس مش مظبوط الذكور داخله مع الاناث وطبعا ده غلط لأن شيت الدرجات يأتي الي من المدرسين مرتب ابجديا الذكور اولا وبعدها الاناث مع رقم الجلوس وعند رصد الدرجات نلاحظ شيت المدرسين غير اللي موجود في الملف يعني الترتيب مش هو ارجو حل المشكلة شكرا جزيلا لحضرتك مرفق ملف

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

الله يبارك فيك أستاذنا الفاضل ويبارك في صحتك وأولادك ويجعلهم من الصالحين بس مش هنقدر نستغني عنك أكيد هيبقي فيه أسئلة تانية

أخي الفاضل عايزين نعمل شاشة رئيسية علي مزاجك كده جميلة

شكرا جزيلا أخي الفاضل كنت عامل الخط كبير

أخي الفاضل شكرا جزيلا علي تعبك ومجهودك الرائع بعد التجربة بالنسبة للصفوف الأولي في نتيجة نهاية العام المفروض لما يكون التقييم Total_T يكون غ والنوع ذكر تكون النتيجة ( ناجح بحكم القانون ) المفروض لما يكون التقييم Total_T يكون غ والنوع انثى تكون النتيجة ( ناجحة بحكم القانون ) انظر للمرفق Dat2.accdb

اخي خالد أنا آسف لم استطيع أن ارد علي حضرتك لأن كنت في شغل كلام حضرتك يكون متفق مع أخي أبو خليل بس الربط لابد أن يكون إما بالرقم القومي للتلميذ أو الكود بتاع التلميذ لأنه فريد أما رقم الجلوس فمن الممكن أن يتكرر مثلا الصف الرابع عندي الجلوس يبدأ 401--------الي 580 والصف الخامس عندي الجلوس يبدأ 501 --------الي 700 نجد أن الجلوس يتكرر مثلا هنلاقي 503 في الصف الرابع وكذلك في الصف الخامس الا اذا استدعيت الصف بالرقم

الله يبارك فيك دنيا وآخرة أخي الفاضل أبو خليل وجعله الله في ميزان حسناتك هجرب واوافيك

شكرا جزيلا أخي الفاضل ومن حضرتك نستفيد اخي الفاضل أبو خليل مرسل لحضرتك الملفDb24.accdb

الملف بعد ضبط التقرير ليطبع في ليتسع الحقولDb24.accdb

أخي الفاضل ابو خليل بعد سلام الله عليكم ورحمة الله وبركاته شكرا جزيلا علي تعب حضرتك معي بعد تجربة الملف توجد ملاحظات : يوجد أخطاء منها لو فتحت حضرتك الملف واخترت نتيجة الفصل الدراسي الأول 2024 / 2025 هتلاحظ في النتيجة طلاب عنهم مواد رسوب وهو لونه أحمر ومكتوب في النتيجة ناجح وكمان مواد الرسوب 0 وكمان عدد مواد الرسوب 0 يبقي ازاي كمان فيه ملحوظة ثانية : *دالة النتيجة في الاستعلام الأول المفروض تختلف عن الاستعلام الثاني بتاع النتيجة النهائية دالة النتيجة في الاستعلام الأول تكون كالآتي: Public Function funresult(Total As String, contRsob As String, النوع As String) As String If Total >= 350 And النوع = "ذكر" And contRsob = 0 Then funresult = "ناجح" ElseIf Total >= 350 And النوع = "انثى" And contRsob = 0 Then funresult = "ناجحة" ElseIf Total < 350 Or contRsob <> 0 And النوع = "ذكر" Then funresult = "له برنامج علاجي" ElseIf Total < 350 Or contRsob <> 0 And النوع = "انثى" Then funresult = "لها برنامج علاجي" Else funresult = "" End If End Function * دالة مواد الرسوب في الاستعلام الأول تختلف عن الاستعلام الثاني بتاع نتيجة نهاية العام دالة مواد الرسوب في الاستعلام الأول تكون كالآتي : ' مواد الرسوب Public Function funFailMates(Studentcard As Double) As String Dim madah1, madah2, madah3, madah4, madah5, madah6, madah7, madah8 As String madah1 = DLookup("materil", "Tbl_materil", "rmz='" & "Ara" & "'") madah2 = DLookup("materil", "Tbl_materil", "rmz='" & "Eng" & "'") madah3 = DLookup("materil", "Tbl_materil", "rmz='" & "math" & "'") madah4 = DLookup("materil", "Tbl_materil", "rmz='" & "sin" & "'") madah5 = DLookup("materil", "Tbl_materil", "rmz='" & "Dra" & "'") madah6 = DLookup("materil", "Tbl_materil", "rmz='" & "Mha" & "'") madah7 = DLookup("materil", "Tbl_materil", "rmz='" & "Tecno" & "'") madah8 = DLookup("materil", "Tbl_materil", "rmz='" & "Din" & "'") Dim mwad1, mwad2, mwad3, mwad4, mwad5, mwad6, mwad7, mwad8 As String Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Tbl_degree_Detail") rs.MoveFirst r = 0 Do While Not rs.EOF If Studentcard = rs.Fields("Stu_card") Then If rs.Fields("Ara") + rs.Fields("sAra") < 50 Then mwad1 = "{" & madah1 & "}" & "-" r = r + 1 Else: mwad1 = "" End If If rs.Fields("Eng") + rs.Fields("sEng") < 50 Then mwad2 = "{" & madah2 & "}" & "-" r = r + 1 Else: mwad2 = "" End If If rs.Fields("math") + rs.Fields("smath") < 50 Then mwad3 = "{" & madah3 & "}" & "-" r = r + 1 Else: mwad3 = "" End If If rs.Fields("sin") + rs.Fields("ssin") < 50 Then mwad4 = "{" & madah4 & "}" & "-" r = r + 1 Else: mwad4 = "" End If If rs.Fields("Dra") + rs.Fields("sDra") < 50 Then mwad5 = "{" & madah5 & "}" & "-" r = r + 1 Else: mwad5 = "" End If If rs.Fields("Mha") + rs.Fields("sMha") < 50 Then mwad6 = "{" & madah6 & "}" & "-" r = r + 1 Else: mwad6 = "" End If If rs.Fields("Tecno") + rs.Fields("sTecno") < 50 Then mwad7 = "{" & madah7 & "}" & "-" r = r + 1 Else: mwad7 = "" End If If rs.Fields("Din") + rs.Fields("sdin") < 50 Then mwad8 = "{" & madah8 & "}" r = r + 1 Else: mwad8 = "" End If funFailMates = mwad1 & mwad2 & mwad3 & mwad4 & mwad5 & mwad6 & mwad7 & mwad8 addMwadRsob = r End If r = 0 rs.MoveNext Loop End Function

معلش فيه شرط تاني هزوده اذا كان المجموع الكلي أكبر من أو يساوي 350 ومجموع ( تحريري + ملف ) لكل مادة لا يساوي (.) ودرجة الامتحان التحريري (للغة العربية - رياضيات - انجليزي - علوم - دراسات - دين - مهارت - تكنولوجيا ) اكبر من أو يساوي 10 وعدد مواد الرسوب يساوي( 0) والنوع (ذكر) تكون النتيجة (ناجح) * اذا كان المجموع الكلي أكبر من أو يساوي 350ومجموع ( تحريري + ملف ) لكل مادة لا يساوي (. ) ودرجة الامتحان التحريري (للغة العربية - رياضيات - انجليزي - علوم - دراسات - دين - مهارت - تكنولوجيا ) وعدد مواد الرسوب يساوي( 0) والنوع (انثي) تكون النتيجة (ناجحة) * اذا كان المجموع الكلي أقل من 350 أو عدد مواد الرسوب لا يساوي ( 0 ) والنوع (ذكر) تكون النتيجة ( له دور ثان ) * اذا كان المجموع الكلي أقل من 350 أو عدد مواد الرسوب لا يساوي ( 0 ) والنوع (انثي) تكون النتيجة ( لها دور ثان ) وبالتالي هيتغير شرط مواد الرسوب لكل مادة مثلا (لغة عربية ) اذا كان مجموع ( تحريري + ملف )أقل من 50 أو درجة التحريري أقل من 10 أو درجة التحريري تساوي 0 يبقي عنده (لغة عربية ) وهكذا للمواد التي لها ملف + تحريري

أولا فيه ملحوظة قبل كتابة النتيجة النهائية للصفوف العليا درجة التحريري في امتحان الفصل الدراسي الثاني لكل مادة لها( امتحان وملف) علشان الطالب يبقي ناجح لا تقل الدرجة عن 10 درجات دا شرط مهم جدا يعني ثلث الدرجة 0 أو نسميها (30% من الدرجة ) اذا كان المجموع الكلي أكبر من أو يساوي 350ودرجة الامتحان التحريري (للغة العربية - رياضيات - انجليزي - علوم - دراسات - دين - مهارت - تكنولوجيا ) اكبر من أو يساوي 10 وعدد مواد الرسوب يساوي( 0) والنوع (ذكر) تكون النتيجة (ناجح) * اذا كان المجموع الكلي أكبر من أو يساوي 350 ودرجة الامتحان التحريري (للغة العربية - رياضيات - انجليزي - علوم - دراسات - دين - مهارت - تكنولوجيا ) وعدد مواد الرسوب يساوي( 0) والنوع (انثي) تكون النتيجة (ناجحة) * اذا كان المجموع الكلي أقل من 350 أو عدد مواد الرسوب لا يساوي ( 0 ) والنوع (ذكر) تكون النتيجة ( له دور ثان ) * اذا كان المجموع الكلي أقل من 350 أو عدد مواد الرسوب لا يساوي ( 0 ) والنوع (انثي) تكون النتيجة ( لها دور ثان )