عمل كشفين لجنة

[2saad]

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته

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

هل ينفع اضع لجنتين في تقرير واحد  بدلا من لجنة واحدة

بحيث صفحة التقرير يكون به لجنة 1 ولجنة 2 والصفحة التالية تكون لجنة 3 ولجنة 4 وهكذا ..

مثل هذه الصورة

Data19.rar

أتمني أن أكون قد وصلت الفكرة

شكرا لكم جميعا وعلي مجهودكم الرائع

[kkhalifa1960]

اعمل 2 تقرير فرعي  واحد للجان الفردية والثاني للجان الزوجية ثم اسحبهم بتقرير اساسى .

[2saad]

حاولت انفذ الفكرة ولم أوفق

[Foksh]

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

على العموم هل الصورة التالية مناسبة لطلبك ؟

[2saad]

تمام مناسبة ربنا يكرمك ويديم عليك الصحة والعافية

أنا لا أبخل والله يا أخي ولكن علي ما اقدر بعطي المطلوب

[Foksh]

تفضل

 

Data19_R.zip

[2saad]

شكرا جزيلا وبارك الله فيك وأكثر الله من أمثالك

بعد إذن حضرتك ممكن الترقيم في كل لجنة يبدأ بالرقم 1 ( يعني بدلا من اللجنة ( 1) تبدأ بالترقيم 1 الي 5 والجنة ( 2 ) تبدأ بالترقيم 6 الي 10 -------- عايز كل لجنة تبدأ الترقيم من 1 

انظر الصورة

وكمان هل ينفع أعمل دباجة أسفل كل لجنة يعني تظهر في كل لجنة ( رئيس اللجنة  - رئيس الكنترول )

 

 

[Foksh]

42 دقائق مضت, 2saad said:

بعد إذن حضرتك ممكن الترقيم في كل لجنة يبدأ بالرقم 1 ( يعني بدلا من اللجنة ( 1) تبدأ بالترقيم 1 الي 5 والجنة ( 2 ) تبدأ بالترقيم 6 الي 10 -------- عايز كل لجنة تبدأ الترقيم من 1 

 

هذه بسيطة ، ولكن !!!

42 دقائق مضت, 2saad said:

وكمان هل ينفع أعمل دباجة أسفل كل لجنة يعني تظهر في كل لجنة ( رئيس اللجنة  - رئيس الكنترول )

 

من اين مصدر ( رئيس اللجنة  - رئيس الكنترول ) الذي تريد اضافتها ؟؟؟

[2saad]

شكرا جزيلا أخي الفاضل

مرفق لحضرتك الملف وبه مصدر البيانات

Data20.rar

انظر الصورة محتاج الدباجة أسفل كل لجنة 

وشكرا جزيلا وعلي تعب حضرتك معانا

[Foksh]

هل النتيجة في الملف المرفق PDF صحيحة ؟؟؟؟؟؟؟

صورة كمثال :-

kashf_monada.pdf

تم تعديل الأربعاء at 20:51 بواسطه Foksh
إضافة صورة توضيحية

[2saad]

شكرا أخي الفاضل علي تعبك وسعة صدرك

بالنسبة للترقيم تمام   ( هو المطلوب )

ولكن أنا محتاج الدباجة السفلية تظهر تحت كل لجنة ( يعني تظهر تحت لجنة 1 ولجنة 2 وهكذا .... )

عايز زي كده

نموذج.pdf

بحيث عدد التلاميذ للجنة نفسها              بنون             بنات 

بداية رقم الجلوس                        نهاية رقم الجلوس

ومسئول الحاسب ورئيس الكنترول

زي pdf المرفق

[Foksh]

تم الأمر بنجاح بعد توضيحك لجميع المعطيات ,, شكراً لك سعة صدرة وتحملي في اسئلتي أخي @2saad  

الآن بالنسبة للإحصاءات ، فقد تمت كالآتي :-

أولاً، انشاء استعلام الإحصائيات (qry_LagnaStats) :-

SELECT Tbl_student.id_lagna, Sum(IIf(gender=1,1,0)) AS بنون, Sum(IIf(gender=2,1,0)) AS بنات, Count(*) AS العدد, Min(Tbl_student.Stugalos) AS من, Max(Tbl_student.Stugalos) AS إلى
FROM Tbl_student
WHERE (((Tbl_student.alsaf_Id)=[Forms]![frm_Reports]![ComboSaf]))
GROUP BY Tbl_student.id_lagna;

 

ثم تعديل الإستعلام الرئيسي "QQQR_STU" ( مصدر التقرير ) ، كالآتي :-

SELECT Tbl_student.id_student, Tbl_student.Studentname, Tbl_student.Stucod, Tbl_student.Stugalos, Tbl_student.gender, Tbl_eldina.eldina, Tbl_student.id_lagna, Tbl_saf.saf, Tbl_lagna.ellagna, Tbl_school.moder, Tbl_school.masolelhasab, Tbl_school.raeselcontrol, Tbl_lagna.almoraqeb
FROM Tbl_school, Tbl_gender INNER JOIN ((Tbl_saf INNER JOIN (Tbl_student INNER JOIN Tbl_lagna ON Tbl_student.id_lagna = Tbl_lagna.id_lagna) ON Tbl_saf.saf_id = Tbl_student.alsaf_Id) INNER JOIN Tbl_eldina ON Tbl_student.eldina_id = Tbl_eldina.eldina_id) ON Tbl_gender.gendr_id = Tbl_student.gender
WHERE Tbl_student.alsaf_Id = [Forms]![frm_Reports]![ComboSaf]
ORDER BY Tbl_student.Stucod, Tbl_student.id_lagna;

 

ثم نقس عناصر الإحصاءات الى الجزء "Group Footer لـ id_lagna" ، لتظهر تحت كل لجنة بشكل منفصل ومستقل .

ثم تعديل قيم مربعات النص الخاصة بالأعداد والإحصاءات لتكون كالآتي :-

عدد الذكور: =DLookup("بنون", "qry_LagnaStats", "id_lagna=" & [id_lagna])
عدد الإناث: =DLookup("بنات", "qry_LagnaStats", "id_lagna=" & [id_lagna])
العدد: =DLookup("العدد", "qry_LagnaStats", "id_lagna=" & [id_lagna])
من: =DLookup("من", "qry_LagnaStats", "id_lagna=" & [id_lagna])
إلى: =DLookup("إلى", "qry_LagnaStats", "id_lagna=" & [id_lagna])

 

أما فيما يخص نقطة تسلسل الترقيم لكل لجنة ليبدأ من 1 فقط ما تم هو تغيير ما في الصورة أدناه :-

 

وعليه ، يصبح الملف بعد التعديلات =

 

Data20.zip

تم تعديل الأربعاء at 22:06 بواسطه Foksh

[2saad]

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

أنا آسف علي التأخير في الرد لأن الإنترنت كان فاصلا عندي

معلش محتاح دالة أو كود ينادي ( يجلب ) الطالب الدمج في الاستعلام QQQR_STU  مع الدباجة السفلية في اللجنةData20.rar

يوجد في المرفق جدول اسمه Tbl_damg

[Foksh]

اقتباس

معلش محتاح دالة أو كود ينادي ( يجلب ) الطالب الدمج في الاستعلام QQQR_STU  مع الدباجة السفلية في اللجنة

يوجد في المرفق جدول اسمه Tbl_damg

ان كان التعبير والشرح غير كافي ، فارسل صورة توضح المطلوب يا صديقي ( على اعتبار انه نفس الطلب الرئيسي لك )

[2saad]

شكرا جزيلا أخي الفاضل

انظر للصورة

يوجد اسفل كل لجنة جملة ( أسماء الطلبة الدمج باللجنة ) عايز اسماء الطلبة الدمج الموجوده  في اللجنة نفسها تأتي أسفل هذه الجملة

يعني لو عندي طالب دمج في لجنة 1 يأتي اسم التلميذ الدمج تحت جملة ( ( أسماء الطلبة الدمج باللجنة ) وهكذا

ونستعين بجدول Tbl_damg لو فتحنا الجدول نجد الصورة الآتية

انا عايز التلميذ الذي <> 1 يعني اللي عنده ( إعاقة ذهنية أو شلل دماغي )

محتاج دالة  أو كود يجلب ذلك في كل لجنة

انظر الصورة والجدول موجود بالاستعلام

 

أتمني أن الفكرة قد وصلت

شكرا لحضرتك

[Foksh]

طيب أخي @2saad ، حتى لا نحمّل الاستعلام مصدر سجلات التقرير حملاً زائداً ( من وجهة نظري ) ، قمت بإنشاء دالة بسيطة تقوم بجلب التلاميذ الذين الدمج لهم <> 1 ، كالتالي :-

Public Function GetDamgStudents(lagnaID As Long) As String
    Dim sql As String
    Dim hasRecords As Boolean
    
    sql = "SELECT Studentname FROM Tbl_student WHERE id_lagna = " & lagnaID & " AND damg_id <> 1 AND alsaf_Id = " & Forms!frm_Reports!ComboSaf
    
    With CurrentDb.OpenRecordset(sql)
        hasRecords = (Not .EOF)
        Do Until .EOF
            GetDamgStudents = GetDamgStudents & !Studentname & vbCrLf
            .MoveNext
        Loop
        .Close
    End With
    
    If Not hasRecords Then
        GetDamgStudents = "لا يوجد تلاميذ دمج لهذه اللجنة"
    Else
        GetDamgStudents = Trim(GetDamgStudents)
    End If
End Function

 

وعليه قمت بإنشاء مربع نص = "lstDamgStudents" مصدر بياناته استدعاء الدالة بهذا الشكل :-

=GetDamgStudents([id_lagna])

 

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

وعليه ، يصبح تعديلي في هذا الملف :-

Data21.zip

 

* ملاحظة ، تم عمل تنسيقات بسيطة لاخفاء مربع النص عندما لا يكون في اللجنة تلاميذ دمج ، وتستطيع الاستغناء عن هذه الفكرة طبعاً .

[2saad]

أخي الفاضل شكرا علي تعب حضرتك معايا

أنا طبقت كما قلت ولكن لم تعمل معي الدالة

هل فيه تنسيق بيتعمل في جدول التلاميذ

[Foksh]

لا اعلم طبيعة العمل في مشروعك الذي تقوم بالتطبيق عليه ، ولكن كما رأيت في ملفك المرفق تم التطبيق بنفس الخطوات التي ذكرتها لك سابقاً..

او ارسل نسختك ليتم التنفيذ عليها.

[2saad]

هل الجزئية ديالموجودة بجدول التلاميذ  ( التصفية ) ( ترتيب حسب ) متعلقة بالدالة

[Foksh]

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

[2saad]

طيب هل ينفع أجلب الدالة من الاستعلام

[Foksh]

4 دقائق مضت, 2saad said:

طيب هل ينفع أجلب الدالة من الاستعلام

تفرق ايه ؟؟؟

الإستدعاء واحد من هنا أو من هناك ..

على العموم انا خارج المنزل وبعيد عن الكمبيوتر ، بأقرب فرصة نتابع 😇 

[2saad]

شكرا أنا آسف بتعب حضرتك معاي

[2saad]

شكرا جزيلا اتحلت المشكلة وربنا يبارك في صحتك

[Foksh]

5 دقائق مضت, 2saad said:

شكرا جزيلا اتحلت المشكلة وربنا يبارك في صحتك

العفو اخي الكريم 😇 

أين كانت مشكلتك ؟؟