تقسيم سجلات الي مجموعات كل مجموعة ١٠٠ سجل وتحديد اول واخر كل مجموعة

[وائل طه]

عندي مجموعة من السجلات لطلبة عددها كبير اريد تقسيمها الي مجموعات كل مجموعة ١٠٠ طالب وتحديد اول واخر المجموعة علما بأن المجموعات  ليست ثابته  تتغير بتغير المواد ولا أضع الغياب هل هناك حل

[أبو عبدالله الحلوانى]

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

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

وماذا تعني بتغير المجموعات وعلي اي اساس يتم التغير 

اعتذر لعدم افادتك بالوقت الحالي، ولكن كما تعلم فان فهم السؤال شطر الجواب كما يقال 

 

[وائل طه]

دا النموذج النموذج دا محضر تصحيح مثلا الغرفة فيها ٤٠٠٠ طالب اللي عندهم عربي ٣٨٠٠ غاب منهم١٠٠ تبقي ٣٧٠٠ وطبعا الارقام السرية مبقتش سريال بقي فيه أرقام واقعة في النص المطلوب  تقسيم ٣٧٠٠ الي ٣٧ محضر كل محضر به ١٠٠ رقم وتحديد  بداية كل محضر وآخره وعدده

[دروب مبرمج]

تفضل

 

 

تقسيم الى مجموعات.accdb

تم تعديل يونيو 10, 2023 بواسطه دروب مبرمج

[AbuuAhmed]

حولوا المرفق إلى 2003 خلوني أحاول معكم.

[دروب مبرمج]

14 دقائق مضت, AbuuAhmed said:

حولوا المرفق إلى 2003 خلوني أحاول معكم.

تفضل

 

تقسيم الى مجموعات.accdb.mdb

[AbuuAhmed]

تم عمل دالة للحصول على رقم ترتيب السجل ومن ثم الحصول على رقم المجموعة من خلال الإستعلام.
اسم الاستعلام Query3

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

والاستعلام Query4 لعرض أول وآخر رقم لكل مجموعة.

 

تقسيم الى مجموعات.accdb_02.mdb

تم تعديل يونيو 10, 2023 بواسطه AbuuAhmed
تبديل المرفق

[AbuuAhmed]

طبعا دالة ترتيب السجل ثلاثة أرباعها أسطر زائدة، وذلك لأني بنيت الدالة على فكرة مختلفة ثم عدلت عنها في آخر الوقت ولم أقم بتنظيف الكود وتنقيحه.
الدالة بعد التنقيح:
 

Function GetSeq(ID As Long, Expr As String, Domain As String) As Long
    GetSeq = DCount(Expr, Domain, Expr & " <= " & ID)
End Function

سأقوم الليلة إن شاء الله بمراجعة مشاركة الزميل دروب مبرمج وأرجع لكم.

[حمدى الظابط]

21 ساعات مضت, دروب مبرمج said:

تفضل

 

تقسيم الى مجموعات.accdb.mdb 348 kB · 5 downloads

مجرد لفت نظر لعمل الارقام السرية 

ماذا لو تم عمل كل مجموعة برقم سرى مختلف عن الاخر كمثال اريد مجموعة رقم 1 من 101 الى 201 ولكن محموعة 2 من رقم 2001 الى 2101 ومجموعة 3 من 1 الى 101 وهكذا لان التسلسل فى الارقام السرية غير مستحب 

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

تم تعديل يونيو 11, 2023 بواسطه حمدى الظابط

[AbuuAhmed]

في 10‏/6‏/2023 at 09:49, وائل طه said:

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

راجعت عمل الزميل دروب مبرمج، وأعجبني أنه أحتاج حقل واحد فقط وهو رقم المجموعة وهذا فيه توفير للمساحة.
العمل ممتاز ولكن الزميل لم يلتفت لملاحظة السائل وائل طه والموضحة أعلاه.
أما الكود فرأيت أن هذين السطرين لا يعملان، هل هما مطلوبان أم متروكان وتم نسيان أزالتهما؟:
 

    DoCmd.RunSQL "ALTER TABLE ]" & Tabel_Name & "] DROP COLUMN Str_Group"
    DoCmd.RunSQL "ALTER TABLE ]" & Tabel_Name & "] ADD Str_Group Number"

أرفق لكم القاعدة لفكرتي فقط حتى لا تشتت الفاحص للمثال.
مع ملاحة أني بدلت رقم السجل 4 إلى 400000 وحذف السجل الأخير لزوم التجارب.

تقسيم مجموعات_أبو أحمد_03.mdb

[دروب مبرمج]

منذ ساعه, حمدى الظابط said:

مجرد لفت نظر لعمل الارقام السرية 

ماذا لو تم عمل كل مجموعة برقم سرى مختلف عن الاخر كمثال اريد مجموعة رقم 1 من 101 الى 201 ولكن محموعة 2 من رقم 2001 الى 2101 ومجموعة 3 من 1 الى 101 وهكذا لان التسلسل فى الارقام السرية غير مستحب 

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

تفضل طلبك

التقسيم الى مجموعات

و ترقيم خاص لكل مجموعة يبدء الترقيم من السنة الحالية + مضاعفات 100 لكل مجموعة + تسلسل لكل مجموعة

تقسيم الى مجموعات.accdb (1).mdb

17 دقائق مضت, AbuuAhmed said:

أما الكود فرأيت أن هذين السطرين لا يعملان، هل هما مطلوبان أم متروكان وتم نسيان أزالتهما؟:

فعلا بسبب ان الأقواس من اليسار معكوسة 😅

    DoCmd.RunSQL "ALTER TABLE [" & Tabel_Name & "] DROP COLUMN Str_Group"
    DoCmd.RunSQL "ALTER TABLE [" & Tabel_Name & "] ADD Str_Group Number"

بهذه الطريقة سوف تعمل 

[حمدى الظابط]

12 ساعات مضت, دروب مبرمج said:

تفضل طلبك

التقسيم الى مجموعات

و ترقيم خاص لكل مجموعة يبدء الترقيم من السنة الحالية + مضاعفات 100 لكل مجموعة + تسلسل لكل مجموعة

تقسيم الى مجموعات.accdb (1).mdb 400 kB · 5 downloads

فعلا بسبب ان الأقواس من اليسار معكوسة 😅

    DoCmd.RunSQL "ALTER TABLE [" & Tabel_Name & "] DROP COLUMN Str_Group"
    DoCmd.RunSQL "ALTER TABLE [" & Tabel_Name & "] ADD Str_Group Number"

بهذه الطريقة سوف تعمل 

السلام عليكم وشكرا لسرعة الرد

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

[AbuuAhmed]

يفترض بصاحب الموضوع متابعة موضوعه.

[دروب مبرمج]

10 ساعات مضت, حمدى الظابط said:

على ان يكون التسلسل فى المجموعة فقط

تفضل

 

تقسيم الى مجموعات.accdb (1).mdb

[Moosak]

في ١١‏/٦‏/٢٠٢٣ at 23:23, حمدى الظابط said:

مجرد لفت نظر لعمل الارقام السرية 

حسب ما يتضح أن مشاركة الأستاذ @حمدى الظابط كانت مجرد لفت نظر حسب ما أوضح ولم تكن طلبا جديدا .. 🙂

لذلك إن لزم التوسع فيه .. فيرجى التكرم بفتح موضوع جديد..

أما الآن فدعونا نستمتع بإبداعاتكم في موضوع تقسيم السجلات إلى أن يحصل الأخ @وائل طه على مبتغاه .. أو تنفد الأفكار دونه .. 🙂🌷

[AbuuAhmed]

منذ ساعه, Moosak said:

أما الآن فدعونا نستمتع بإبداعاتكم

ويا أخ موسى الإشراف عندك هو حذف كل ما فيه انتقاد للمشرفين؟!!!
دع التعليقات إذا لا يوجد بها سباب أو إساءات.

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

[شايب]

4 ساعات مضت, AbuuAhmed said:

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

للاسف تم حذف ردي والذي يعبر عن وجهة نظر وبدون تجاوز على احد بعينه

وللاسف ان حذف ردي يدل على ان هناك مجاملات لاطراف معينه

للاخ الكلباني قم بحذف الرد ان اردت او وقم بايقاف او حذف المعرف ايضا فهذا الاجراء الاسهل

مازالت عقلية عريف الصف المسيطرة مع الاعتذار للجميع

 

[وائل طه]

والله انا محرج منكم كلكم له جزيل الشكر  وانا بالمسبة لكم في مقام طالب العلم لمعلمه واعتذر عن التأخر في الرد لظروف العمل  قد اقتربت لكن الموضوع لازال به بعض المشاكل اولا تقسيم السجلات المطلوب ان يكون في الاستعلام لان الطلاب الحاضرين في مادة العربي ليسوا مطابقين للحاضرين في مادة الرياضيات (باختصار الطلاب هيكونوا في استعلام ) والتقرير اللي هو محضر التظريف بتاع كل مادة عبارة عن جزئين جزء في الشمال به طلاب المادة الحاضرين مقسمين مئات وشمال الورقة به   اول رقم في المائة واخر رقم وعدد المظروف(وفقني الله ان انفذ المطلوب لكني نفذته عمودي وليس افقي الا ان الجهة المعنية رفضت وطلبت الالتزام حرفيا بالتصميم ) ملحوظه عدد الطلاب في كل مادة اكثر من ٩٠ الف @Moosak @AbuuAhmed @دروب مبرمج @حمدى الظابط @أبو عبدالله الحلوانى

[Moosak]

لم يتم حذف أي رد .. وإنما تم (إخفاء) كل ما لا يمت لصلب الموضوع بصلة .. تهدئة للنفوس والبعد عن مسببات التشاحن ..وهذا دور الإشراف على ما أحسب.. ✋🏻

 

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

 

والله في عون العبد ما كان العبد في عون أخيه .. 🙂

[شايب]

25 دقائق مضت, Moosak said:

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

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

كلام كبير واتهامات باطلة لمجرد التعبير عن رأي وبدون تحديد شخص معين

مع كل ذلك لن اجاريك في اتهاماتك لي ويفصل بيني وبينك الله وهو خير الحاكمين

[حمدى الظابط]

6 ساعات مضت, وائل طه said:

والله انا محرج منكم كلكم له جزيل الشكر  وانا بالمسبة لكم في مقام طالب العلم لمعلمه واعتذر عن التأخر في الرد لظروف العمل  قد اقتربت لكن الموضوع لازال به بعض المشاكل اولا تقسيم السجلات المطلوب ان يكون في الاستعلام لان الطلاب الحاضرين في مادة العربي ليسوا مطابقين للحاضرين في مادة الرياضيات (باختصار الطلاب هيكونوا في استعلام ) والتقرير اللي هو محضر التظريف بتاع كل مادة عبارة عن جزئين جزء في الشمال به طلاب المادة الحاضرين مقسمين مئات وشمال الورقة به   اول رقم في المائة واخر رقم وعدد المظروف(وفقني الله ان انفذ المطلوب لكني نفذته عمودي وليس افقي الا ان الجهة المعنية رفضت وطلبت الالتزام حرفيا بالتصميم ) ملحوظه عدد الطلاب في كل مادة اكثر من ٩٠ الف @Moosak @AbuuAhmed @دروب مبرمج @حمدى الظابط @أبو عبدالله الحلوانى

اخى الاستاذ وائل طه حتى يسهل الأمر على المبرمجين لمساعدتك

هل لكل مادة اختبار رقم سرى جديد يختلف عن ماقبله من المواد ام الرقم السرى فى كل المواد رقم ثابت 

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

من رقم جلوس كذا الى رقم جلوس كذا من سرى كذا الى سرى كذا ورقم المجموعة كذا حتى آخر الأمر ليصبح لكل طالب رقم معرف ورقم جلوس ورقم سرى موحد فريد طول فترة الاختبارات

فى انتظار الرد 

 

 

 

[وائل طه]

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

تم تعديل يونيو 13, 2023 بواسطه وائل طه

[kkhalifa1960]

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

استاذ وائل تفضل أدخل الغيابات من فورم ادخال الغيابات ثم ارجع للفورم 1 وادخل الرقم السري الذي تريد البدء من عنده بيعطيك السري من وتحته السري الى ... ولاحظ الخمس أعمدة البداية بأول عمود النهاية يآخر عمود . ووافني بالرد .

DDWaael-3.Accdb

تم تعديل يونيو 14, 2023 بواسطه kkhalifa1960

[وائل طه]

5 ساعات مضت, kkhalifa1960 said:

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

استاذ وائل تفضل أدخل الغيابات من فورم ادخال الغيابات ثم ارجع للفورم 1 وادخل الرقم السري الذي تريد البدء من عنده بيعطيك السري من وتحته السري الى ... ولاحظ الخمس أعمدة البداية بأول عمود النهاية يآخر عمود . ووافني بالرد .

DDWaael-3.Accdb 2.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

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

استاذ وائل تفضل أدخل الغيابات من فورم ادخال الغيابات ثم ارجع للفورم 1 وادخل الرقم السري الذي تريد البدء من عنده بيعطيك السري من وتحته السري الى ... ولاحظ الخمس أعمدة البداية بأول عمود النهاية يآخر عمود . ووافني بالرد .

 استاذي الغالي @kkhalifa1960 اولا وقبل اي شئ اتمني ان تكون صحتك في أحسن حال🌹🌹🌹

بعد وافر الشكر قابلت مشكلة في تنفيذ طريقة حضرتك وهي ان الخمس أعمدة كان لازم أدخل مسلسل علشان يصفوا في كل عمود من الي وانا لما بطبع المحضر دا بطبعة لغرفة تقريبا عدد الطلاب الحاضرين فيها بيبقي ٦٠٠٠ طالب غير ان الوحدة النمطية اللي بترقم الاستعلام معتمدة ان الغياب عمود منفصل وانا الغياب عندي درجة بتترصد في نفس عمود المادة بكتب مثلا  _١ ودا بيبقي كود الغياب  لما حاولت اربط الوحدة بالاستعلام فشلت اني اشغلها 

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

[kkhalifa1960]

باقي التقرير بسويه انشاء الله لما ارجع🌹