كل الانشطه

مشكور

تفضل استاذ @RAIANESAMI اليك المرفق بعد التعديل وبه طلبك . جرب ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك من هذا العمل . DDFinding Differences-EmpIDtxt.rar

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

EmpID

تفضل استاذ @dd13901390 طلبك . ووافني بالرد . Lists.rar

أي حقل أذكر اسمه ؟؟؟؟

ازاي ممكن اجعل اسم معلم مسجل بياناته علي قوة المرحلة الابتدائية في جدول باسم Data_Tech ومنتدب لمدرسه اعداي يظهر اسمه فقط في المدرسة الاعدادي بدون ما يكون ضمن اعداد مدرسين الاعدادي في جدول Data_Tech2

بعد التدقيق في فكرة أستاذي ومعلمي @ابوخليل ، تبين لي ان المتغير لا يتم حجزه بشكل مناسب قبل فتح التقرير ، وهنا خطر لي تعديل بسيط بحيث نعتمد على قيمة CheckBox في النموذج A1 والذي هو مفتاح الربط في فكرتي ، بحيث اذا كان فارغاً يتم تعديل القيمة كما فعل أستاذي في فكرته ، وإلا فيتم عرض النص الأصلي ( بين عرض اسم الزوج أو الزوجة ) جرب تعديل حدث عند التحميل للتقرير بهذا الأسلوب :- Private Sub Report_Load() Me.Rep1.Value = Rept1 Me.Rep2.Value = Rept2 'المعلومات الشخصية Me.Nom.Value = TempVars("Nom") Me.Prenom.Value = TempVars("Prenom") Me.Date_Naiss.Value = TempVars("Date_Naiss") Me.Lieu_Naiss.Value = TempVars("Lieu_Naiss") Me.Nom_Per.Value = TempVars("Nom_Per") Me.Nom_Mer.Value = TempVars("Nom_Mer") Me.CheckBox.Value = TempVars("CheckBox") Me.Prenom1.Value = TempVars("Prenom1") Me.ep = IIf(([CheckBox]) = 0, "أرملة", "حرم") 'الشاهد الاول Me.C1.Value = TempVars("C1") Me.N1.Value = TempVars("N1") Me.d1.Value = TempVars("D1") Me.L1.Value = TempVars("L1") 'الشاهد الثاني Me.C2.Value = TempVars("C2") Me.N2.Value = TempVars("N2") Me.D2.Value = TempVars("D2") Me.L2.Value = TempVars("L2") ''السكن وبلدية الاقامة Me.N4.Value = TempVars("N4") Me.N5.Value = TempVars("N5") If Not IsNull(Forms!a1!CheckBox) Or (Forms!a1!CheckBox) <> "" Then text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] Else text1 = [Prenom] End If End Sub

تمت الإجابة بكل التفاصيل في هذه المشاركة ، في الموضوع : عمل كشفين لجنة

الخلل عندي استاذ سأتمعنه غدا خطوة بخطوة بحول الله

شكرا كثيرا يا مهندس اريده ان يكون نوع الحقل نصي

لا اعلم اين المشكلة ، ولكن انظر النتيجة من مرفق الأستاذ @ابوخليل

تم الأمر بنجاح بعد توضيحك لجميع المعطيات ,, شكراً لك سعة صدرة وتحملي في اسئلتي أخي @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

نعم تم الحجز استاذي ولكن بدون نتيجة صحيحة علما اني نسخت الفورم A1 والتقرير Face5 في ملفي وبقيت النتيجة على حالها علما ان تعديل الاستاذ ابوخليل على المرفق صحيح 100% مانعرف اين يكمن المشكل

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

أخي طاهر ، هل قمت بحجز المتغير الموجود داخل المديول name_report والذي = Public testTypeGender As Byte

هذا المتغير الذي تم وضعه استاذ ' الزوجة If F1 = -1 Then testTypeGender = 0 ' الزوج ElseIf Y1 = -1 Then testTypeGender = 1 ' الابناء الاكبر من 18 سنة ElseIf T1 = -1 Then testTypeGender = 1 وفي التقرير If testTypeGender = 1 Then text1 = [Prenom] & " " & [Nom] Else text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] End If صراحة طبقت كل هذا في النموذج الاصلي ولكن وجدت مشكلة عند الزوج ظهر التقرير مثلا " الطاهر بن عتوس 1 حرم "

هل النتيجة في الملف المرفق PDF صحيحة ؟؟؟؟؟؟؟ صورة كمثال :- kashf_monada.pdf

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

شكرا كثيرا يا مهندس اريده ان يكون نوع الحقل نصي

و عليكم السلام ورحمة الله وبركاته تفضل المطلوب بالملف الدالة =WRAPROWS(L1:L72;8) Wrap Test2.xlsx

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

وإياكم أحي الكريم في حال حصلت على طلبك ، نرجو منك اغلاق الموضوع باختيار افضل إجابة .

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

جزاك الله خير اخوي Foksh