خالد عبد الغفار

السلام عليكم ورحمة الله تحياتى لاستاذنا ومعلمنا استاذ ابو خليل بارك الله فيك وفى جهدك وتعبك وللاخ الفاضل صاحب الموضوع استاذ 2saad ممكن اذا سمحتم القاء بعض الملاحظات من واقع خبرتى على مدار قرابة اربعون عاما بالتربية والتعليم لعل ذلك يفيد الاخ السائل اولا جدول الطلاب بيشمل كل طلاب المدرسه ( جميع الصفوف ) بما فيهم حقل رقم الجلوس (نعم رقم الجلوس ) ثانيا جدول رصد لكل صف مستقل به رقم الجلوس وسرى الترم الاول وسرى للترم الثانى الجدول هيشمل كل مواد الصف نضرب مثال ليكن جدول للصف الرابع وناخذ مثال بمادة اللغة العربية سوف يكون ملف انجاز ودرجة اختبار ومجموع ثم ملف انجاز الترم الثانى ودرجة اخر العام ومجموع الترم الثانى طبعا حسب شروط كل درجه كما وضحت انت ملف انجاز 70 درجه ودرجة اختبار 30 يكون الناتج 100 درجه لكل ترم وهكذا لكل المواد ويكون ربط رقم الجلوس من جدول الطلاب برقم الجلوس من جدول الدرجات ثانيا وبناء على التجربة رصد درجات ملف الانجاز من النموذج مش محتاج يكون كل مادة لوحدها لان كل فصل بينزل درجات المواد مجمعه مسئول عنها وعن متابعتها رائد كل فصل هو اللى بيتابع رصد كل معلم لمدرجات مادته وبينزل للكنترول قبل بداية الامتحان التحريرى فالمفروض بيتم رصد درجات الفصل لكل مواده على الكمبيوتر ( ملف الانجاز) عفوا على الاطاله اذا رايتم افادة يمكن ان اكمل ملاحظاتى واذا لم تكن مفيده اتمنى لكم التوفيق

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

استاذ / 2saad انت بتعمل ملصق ولا رقم جلوس رايح للطالب الملصق بيتم وضعه على الديسك اللى بيمتحن عليه الطالب اما رقم الجلوس بيتسلمه الطالب ليعرف رقمه ومكان اداء الامتحان و000 فى كلا الحالتين ما الهدف من التكرار طيب ماالهدف من مسئول الحاسب ورئيس الكنترول ورئيس اللجان نصيحة لك اخى الفاضل التكرار او العمودين يكون فى كشوف المناداة فقط صوره تكون على باب اللجنه والصوره الثانيه تكون فى غلاف الاوراق مع الملاحظ دمت بخير

تفضل اعمل معاينه لتقرير 1Database3.rar

شكرا جزيلا استاذنا الفاضل kanory واستاذنا الفاضل kkhalifa1960 ربى يزيدكم علما ويبارك لكم فى علمكم النافع لكم كل التحية والاحترام

نعم استاذنا الفاضل الخطأ لدى فى المطلوب داخل النموذج تم كتابة 250 بدل من 270 ولم انتبه لذلك الا بعد سرد ملاحظتك

السلام عليكم استاذنا الكريم شكرا لاستجابتكم ومعذرة للتأخر فى الرد نتيجة ضغط عمل بالنظر لما تفضلتم به النتيجة غير صحيحة مثلا كما بالمرفق اجمالى العدد هو 112838 *270=30466260 لما نضربه * 5% يطلع15233.13

السلام عليكم ورحمة الله اذا تكرم علينا أحد الأعضاء عاوز احدث مجموعة سجلات بعمليه حسابيه داخل نموذج 1 والمطلوب مكتوب داخل النموج مع شكرى khaled.rar

الف الف شكر استاذنا الفاضل

اشكرك استاذى الفاضل بس كنت عاوز كل حاجه لوحدها اذا كان التضارب فى النوع لوحده برساله والديانه لوحدها برساله If DCount("[ID]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [gender] =" & [Forms]![tashkeel]![gender] & " ") = 1 Or DCount("[teach_cod]", "[tb_tashkeel]", "[lgna_1] =" & [Forms]![tashkeel]![lgna_1] & " And [religion] =" & [Forms]![tashkeel]![religion] & " ") = 1 Then MsgBox "هناك تكرار في الجنس او الديانة" Me.lgna_1 = "" End If

السلام عليكم ورحمة الله بالنموذج حقل ( lgna_1) اقوم فيه بادخال رقم اللجنه والتى تتكرر مرتين بواقع 2 معلم ارجو اذا كان نوع الاول والثانى أنثى أى = 2 تظهر رساله عند تحديث الحقل برقم اللجنة تفيد بان المعلمان لا يجوز ان يكون نوعهما = 2 وكذلك الديانة لا يجوز ان يكون المعلمان ديانتهما = 2 مع شكرى وتقديرى khaled.rar

نتيجة محاوله دامت لاكثر من ساعتين ونصف بشرح مفصل Sub DistributeCommitteeRoles() ' تعريف المتغيرات Dim wsTeachers As Worksheet Dim wsCommittees As Worksheet Dim lastRowTeachers As Long Dim lastRowCommittees As Long Dim teacherRow As Long Dim committeeRow As Long ' تعيين ورقة العمل "tb_tashkeel" Set wsTeachers = ThisWorkbook.Sheets("tb_tashkeel") ' تحديد آخر صف في ورقة العمل "tb_tashkeel" lastRowTeachers = wsTeachers.Cells(wsTeachers.Rows.Count, "A").End(xlUp).Row ' تعيين ورقة العمل "tb_lgan" Set wsCommittees = ThisWorkbook.Sheets("tb_lgan") ' تحديد آخر صف في ورقة العمل "tb_lgan" lastRowCommittees = wsCommittees.Cells(wsCommittees.Rows.Count, "A").End(xlUp).Row ' حلقة لتحديد اللجان وتوزيع الأدوار For teacherRow = 2 To lastRowTeachers ' نبدأ من الصف 2 لتجنب العناوين ' الشروط التي يجب تحقيقها لتوزيع الأدوار If wsTeachers.Cells(teacherRow, "work_cod").Value = 1 Then ' استدعاء دالة لتوزيع الأدوار DistributeRoles wsTeachers.Cells(teacherRow, "teach_cod").Value, wsTeachers.Cells(teacherRow, "gov_cod").Value End If Next teacherRow ' رسالة تأكيد عند الانتهاء MsgBox "تم توزيع الأدوار بنجاح!", vbInformation End Sub Sub DistributeRoles(teacherCode As Long, teacherGovCode As Long) ' يمكنك هنا تكميل الكود بتحديد وتوزيع الأدوار وفقًا لمتطلباتك ' يمكنك استخدام الأوامر SQL لاستعلام قواعد البيانات أو الشيتات المعنية ' على سبيل المثال: "SELECT * FROM tb_lgan WHERE gov_cod <> " & teacherGovCode ' يمكنك أيضًا تحديد الأفراد المؤهلين لتولي دور معين وتخزين رقم اللجنة في جدول tb_tashkeel ' يُفضل استخدام وظائف مساعدة لتحقيق ذلك بشكل فعّال ' يمكن أن يكون ذلك بمثابة نقطة بداية للتعديل وفقًا لاحتياجاتك الفعلية End Sub

فعلا غبى جدا حاولت اخلية يكتب كود توزيع رؤساء لجان ومراقبين اوائل على مستوى عام ( الجمهورية ) وكانت النتائج مخيبه للامال

تفضل كود التوزيع لأستاذنا الفاضل جعفر وتعديل الآحتياطى ساعدنى فيه احد الأصدقاء للامانه انا عملت تقرير f1 يمكنك تتبع مصدره توزيع الملاحظين.rar

الف شكر لك استاذنا / Barna عملت تجربه على السريع كده والحمد لله الننتيجه مرضيه جدا وألف شكر لك مرة اخرى استاذنا الفاضل تقبل تحياتى

كل الشكر لك استاذنا نجرب ما تفضلتم به على برنامج العمل ونوافيكم بالنتيجة استاذنا تقبل تحياتى

لو امكن استاذنا / Barna نرى التطبيق على المرفق لنطبقه على بيانات متكامله تخص العمل لنستطيع الحكم عليه شكرا لك ولاستاذنا /kanory على تعبكما

أشكرك استاذنا على هذا المجهود نعم مع تعديل الا وهو اود عدم ظهور باقى الحقول الخاليه لان التقرير المطلوب بيكون بجانب رقم الطالب رقمه السرى واسمه ومدرسته ومحافظته وتخصصه وهكذا انظر مثلا

مرحبا بك اخى الفاضل مرة أخرى يمكن أن يكون السبب الصفر الموجود بالدرجة اثناء التجربة انا حذفته فى الصوره اللى ارفقتها

اهلا بك استاذنا / kanory الرقم ده طالب مثلا 3 مواد من 9 رياضه ورسم فنى ومساحه ودول مثلا المطلوب ظهورهم فقط امام رقمه واخفاء باقى المواد الخاليه بدرجاتها الصفر الموضوع مكان الدرجه ممكن بس من التجارب فقط شكرا لك استاذنا انا عاوز محاذة مواد الطالب ولما معرفتش اعملها قلت الجأ للحل اتانى انى احاول اخلى الرقم اللى طالب مثلا ماده يكتب مره واحده بمادته واللى طالب مادتين يتكرر مرتين امام كل رقم الماده وهكذا

السلام عليكم ورحمة الله وبركاته تحياتى للجميع بالمرفق جدول يحتوى على المواد التى يود الطالب ان يتقدم يتظلم بها ( tazalumat )عملت لها تقرير( tazlme ) وبحثت عن اخفاء المواد الخاليه بدرجة الماده ثم المحاذاه افقيا لم اتوصل للمراد فهل يمكن تحويل الصفوف الى اعمده لتظهر بنفس الآليه الموجودة بجدول ( tazalumat_1 ) ليكون ناتجها الموجود بتقرير 1 ارجو ممن لديه الخبرة المساعدة إن أمكن وللجميع تحياتى مواد التظلم.rar

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

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

تمام استاذنا الفاضل / جعفر تم تعديل الكود وإدراج كم اكثر من البياننات لاكتشاف البطء تقرير احصاء.rar