مشكلة في التقرير ان الصف يتكرر مرتين

[2saad]

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

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

يظهر تقرير بالطلاب الذكور الناجحين المبني علي استعلام  ( qry_Temp_succful_boys ) المشكلة في التقرير ان الصف يتكرر مرتين يعني مسلسل 1 يتكرر  مرتين ببياناته . فما السبب ؟

Data128.rar

[ابوخليل]

السبب هو الرقم السري

لا يتم اضافته الى نتيجة الترم الثاني

وبكذا لا يمكن التجميع

دعنا من هذا .. حيث يمكن علاجه

ولكن السؤال لماذا تخصص استعلام للذكور وتقرير يخصهم ؟ هذا يعني انك ستعمل شيءا مماثلا للاناث

وهذا عمل المبتدئين

الم تفكر باستعلام واحد وتقرير واحد للكل .. والتصفية تتم من خلال النموذج ؟

[2saad]

الله ينور علي حضرتك ويبارك فيك

هو بالضبط هعمل للذكور والإناث

بس انا اخدت مثال علي الذكور للتسهيل وبعدين كنت هطبق عليه لللإناث

[ابوخليل]

ايضا انت نسيت حاجة

طلاب ناجحون الدور الأول + طالبات

طلاب ناجحون الدور الثاني + طالبات

على طريقتك سوف تعمل اربع استعلامات واربع تقارير

.. والصحيح استعلام واحد وتقرير واحد .. والتصفية من خلال النموذج

[2saad]

والله انا كنت عامل استعلامين ( ذكور - إناث )  وتقريرين ( ذكور واناث )

واختار الفصل الدراسي والفئة والصف من النموذج

وعامل زر للذكور وزر للإناث

ويجلب الدور الأول والدور الثاني 

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

[ابوخليل]

اذا فكلامي صحيح .. وكما توقعته منك

انت تعمل حسب علمك ومعرفتك البرمجية .. وهذا خطأ

المفروض تعمل حسب فكرك وخيالك

الم تلاحظ اني احيانا اطرح اسئلة واطلب المساعدة  .. ربما بعض الاستفسارات عادية .. وحلها معروف بالضرورة .. ومع ذلك اسعى الى مشاركة العقول والافكار .. ربما احصل على حلول وافكار لم تخطر على البال . 

المهم :

الآن .. الحل او الفكرة التي عندي لتحقيق مطلبك بعد مراجعة المشروع جيدا :

1- تقرير واحد فقط  .. يحقق مطالبك الاربعة

2- بدون اي استعلامات جديدة

هل هذا ممكن ؟ نعم  .. لأن الاستعلامات موجودة فعلا في المشروع .

انتظرني ،،،

[ابوخليل]

تفضل

Data129.rar

[ابوخليل]

وهذا تعديل بسيط

من اجل حصر التقرير على الصف السادس فقط  

لأن التقرير للمنقولين الى الإعدادي

وايضا حجب نتيجة الترم الأول

Data130.rar

[2saad]

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

ساجرب وأوافيك بالنتيجة

[2saad]

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

نفس اعرف ازاي جعلت qry_Temp في التقرير من غير مفاتيح مع انه في الجدول فيه ثلاث مفاتيح

[ابوخليل]

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

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

نفس اعرف ازاي جعلت qry_Temp في التقرير من غير مفاتيح مع انه في الجدول فيه ثلاث مفاتيح

حلوة منك 😄

المفاتيح في الجدول وجدت لضبط وتنظيم الادخالات

بينما الاستعلام يعرض فقط

[2saad]

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

بس عايز أعرف اتعملت ازاي علشان أطبقها

[ابوخليل]

قصدك تعمل جدول ؟ وتعمل له المفاتيح؟

اذا صحيح ؟

لما يكون الجدول مفتوح على التصميم :

اضغط على مفتاح Ctrl  واستمر ضاغط

ثم قم بتحديد الحقول التي تريد اشراكها في المفتاح

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

 

[2saad]

لا ليس المقصود 

أنا عايز اعرف ازاي حذفت المفاتيح من qry_Temp في التقرير بتاع المنقولين للصف الأول الإعدادي في الملف السابق

[ابوخليل]

غير محذوفة .. هي فعالة .. ولكنها لا تظهر في الاستعلام

الاستعلام يعرض فقط

هذا اذا انا فاهم استفسارك

السؤال ؟

ما الفائدة من عرض صورة المفاتيح ؟

[ابوخليل]

لم تتحدث عن فكرة التنفيذ

والفرق بين ما عزمت على تنفيذه وبين ما عملته لك

حسب فكرتك سوف تضيف 4 استعلامات و4 تقارير هذه ثمانية .. وقد تتمكن من اختصارها الى 6 وعلى اضعف احتمال الى 4

وانت عازم على التنفيذ بدليل انك تريد استبعاد التكرار فقط

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

[2saad]

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

وعدلت عند فتح الصفحة في التقرير

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
Dim i, ii As String
If Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 1 Then
i = "الدور الأول"
Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي"
 Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i
ElseIf Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 2 Then
i = "الدور الأول"
Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي"
 Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i

ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 1 Then
i = "الدور الثاني"
Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي"
 Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i
ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 2 Then
i = "الدور الثاني"
Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي"
 Me.tsmya2.Caption = funSanahDrasyahDate()
Me.tsmya3.Caption = i

Else
Me.tsmya1.Caption = "."
Exit Sub
End If

End Sub

 

بحيث اميز بين الذكور والإناث

تظهر بالشكل ده 

[ابوخليل]

تمام .. جميل جدا

ملاحظة لا تنقص من عملك .. لاحظت تكرر هذه القيمة رغم انها ثابتة :

Me.tsmya2.Caption = funSanahDrasyahDate()

لو وضعتها في اعلى الكود قبل الشروط  .. يعني قبل  IF 

لن تحتاج لتكرارها

وملاحظة اخرى : ما دمت ميزت الذكور عن الاناث في العنوان .. ارى ان حقل النوع في التقرير يعتبر زائد او تحصيل حاصل

[2saad]

شكرا جزيلا تم التعديل