تعبئة تلقائية للصف الدراسي

[عبدالعزيز محمد]

السلام عليكم

بالمرفق قاعدة بيانات تسجيل طلبة والمطلوب كالتالي عند اضافة سجل جديد وعند كتابة الرقم الوطني والخروج منه يتم كتابة الصف الدراسي بناء على سنة الميلاد الموجودة بالرقم الوطني فيكون الصف الدراسي كالتالي:

2017 = تمهيدي

2016=الأول

2015=الثاني 

2014=الثالث وهكذا 

مع ملاحظة ان الرقم الوطني يتكون من 13 رقم الرقم الأول من اليسار يحدد الجنس فيكون رقم 1 للذكر ورقم 2 للأنثى أما سنة الميلاد فتكون الأرقام التالية ومن اليسار ايضا (2+3+4+5) 

نأمل أن يكون المطلوب واضحا ويوجد كود بالمرفق يحدد الجنس 

مع ملاحظة أن الصفوف تتغير كل سنة فما ذكر سابقا يكون للسنة الدراسية الجديدة القادمة 

وايضا مع ملاحظة تغيير الصف حتى بعد التعبئة التلقائية 

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

Aziz.zip

[Barna]

في 30‏/8‏/2022 at 10:34, عبدالعزيز محمد said:

السلام عليكم

بالمرفق قاعدة بيانات تسجيل طلبة والمطلوب كالتالي عند اضافة سجل جديد وعند كتابة الرقم الوطني والخروج منه يتم كتابة الصف الدراسي بناء على سنة الميلاد الموجودة بالرقم الوطني فيكون الصف الدراسي كالتالي:

2017 = تمهيدي

2016=الأول

2015=الثاني 

2014=الثالث وهكذا 

مع ملاحظة ان الرقم الوطني يتكون من 13 رقم الرقم الأول من اليسار يحدد الجنس فيكون رقم 1 للذكر ورقم 2 للأنثى أما سنة الميلاد فتكون الأرقام التالية ومن اليسار ايضا (2+3+4+5) 

نأمل أن يكون المطلوب واضحا ويوجد كود بالمرفق يحدد الجنس 

مع ملاحظة أن الصفوف تتغير كل سنة فما ذكر سابقا يكون للسنة الدراسية الجديدة القادمة 

وايضا مع ملاحظة تغيير الصف حتى بعد التعبئة التلقائية 

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

منطقيا وحسب ماذكرت انت ...... هذه الحسبة تختلف من سنة لاخرى فمثلا :

2017 = تمهيدي هذه السنة

2017 = الاول السنة القادمة وهكذا لبقية التواريخ .....

لذلك ارى والله أعلم ان تفكر في عمر التلميذ وليس السنة ........ 

[Moosak]

الأخ عبدالعزيز ..  🙂 

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

[عبدالعزيز محمد]

مشكور كل من مر على المشاركة 

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

Aziz.zip

[Barna]

47 دقائق مضت, عبدالعزيز محمد said:

مشكور كل من مر على المشاركة 

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

 

جرب اذا ناسبقك ..... تأكد من الاعمار لديك واكمل حتى تتعلم الكود ......

 

Aziz (2).zip

[عبدالعزيز محمد]

معذرة هل يعمل الكود بصورة صحيحة مع التالي:

سنة الميلاد   الصف الدراسي

2017 = التمهيدي

2016=الاول

2015= الثاني

2014= الثالث

2013=الرابع

2012=الخامس

2011=السادس

2010=السابع

2009=الثامن

2008=التاسغ

2007=الاول الثانوي

2006=الثاني الثانوي

2005=الثالث الثانوي

[Barna]

18 دقائق مضت, عبدالعزيز محمد said:

معذرة هل يعمل الكود بصورة صحيحة مع التالي:

سنة الميلاد   الصف الدراسي

2017 = التمهيدي

2016=الاول

2015= الثاني

2014= الثالث

2013=الرابع

2012=الخامس

2011=السادس

2010=السابع

2009=الثامن

2008=التاسغ

2007=الاول الثانوي

2006=الثاني الثانوي

2005=الثالث الثانوي

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

[Moosak]

مرحبا أخي @عبدالعزيز محمد 🙂 

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

بعدها يتم توزيع الطلاب على مراحلهم بناءا على العمر ، وطبعا سوف تتغير المرحلة تلقائيا في الأعوام القادمة لأن الدالة تحسب العمر تلقائيا 🙂

Public Function AutoStage(IDNum As String) As String
Dim bYear As Integer

bYear = CInt(Mid(IDNum, 2, 4)) 'تستخلص سنة الميلاد من الرقم القومي
bYear = Year(Date) - bYear ' تطرح سنة الميلاد من هذا العام لمعرفة العمر الحالي
'Debug.Print bYear

'توزيع المرحلة على حسب العمر الحالي للطالب
Select Case bYear
    Case Is = 3: AutoStage = "حضانه"
    Case Is = 4: AutoStage = "روضه"
    Case Is = 5: AutoStage = "تمهيدي"
    Case Is = 6: AutoStage = "الأول"
    Case Is = 7: AutoStage = "الثاني"
    Case Is = 8: AutoStage = "الثالث"
    Case Is = 9: AutoStage = "الرابع"
    Case Is = 10: AutoStage = "الخامس"
    Case Is = 11: AutoStage = "السادس"
    Case Is = 12: AutoStage = "السابع"
    Case Is = 13: AutoStage = "الثامن"
    Case Is = 14: AutoStage = "التاسع"
    Case Is = 15: AutoStage = "أول ثانوي"
    Case Is = 16: AutoStage = "ثاني ثانوي"
    Case Is = 17: AutoStage = "ثالث ثانوي"
    Case Else:   AutoStage = ""
End Select
End Function

ثم وضعتها في مربع نص (محسوب) مصدره الدالة التي تغذيها بالرقم القومي فتحسب لك تلقائيا المرحلة ..

 

ملاحظة : ( تحتاج أن تضع في الحسبان حالات الرسوب وإعادة السنة الدراسية ) 🙂 

Aziz(Moosak).zip

تم تعديل سبتمبر 1, 2022 بواسطه Moosak

[متقاعد]

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

Select Case bYear
    Case Is = 3: AutoStage = "حضانه"
    Case Is = 4: AutoStage = "روضه"
    Case Is = 5: AutoStage = "تمهيدي"
    Case Is = 6: AutoStage = "الأول"
    Case Is = 7: AutoStage = "الثاني"
    Case Is = 8: AutoStage = "الثالث"
    Case Is = 9: AutoStage = "الرابع"
    Case Is = 10: AutoStage = "الخامس"
    Case Is = 11: AutoStage = "السادس"
    Case Is = 12: AutoStage = "السابع"
    Case Is = 13: AutoStage = "الثامن"
    Case Is = 14: AutoStage = "التاسع"
    Case Is = 15: AutoStage = "أول ثانوي"
    Case Is = 16: AutoStage = "ثاني ثانوي"
    Case Is = 17: AutoStage = "ثالث ثانوي"
    Case Else:   AutoStage = ""
End Select

عمل جميل استاذنا موسى

وكذلك عمل الاستاذ مجمد البرناوي ⬇️

Me.CLASSE = Switch([mo] = 6, "الأول", [mo] = 7, "الثاني", [mo] = 8, "الثالث", [mo] = 9, "الرابع", [mo] = 10, "الخامس", [mo] = 11, "السادس")

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

تحياتي

[Moosak]

منك العذر أستاذنا محمد @Barna تطفلت عليكم  😅

ما ركزت في ردك ، عملت الطريقة بسرعة قبل لا تطير الفكرة من راسي 😁

14 دقائق مضت, مبرمج متقاعد said:

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

وهذي فكرة أخرى جميلة ، من مفكر عبقري 😉👌

[عبدالعزيز محمد]

مشكور

يا ريت تتعدد الحلول لأجل الاستفادة والتنوع

تم تعديل سبتمبر 1, 2022 بواسطه عبدالعزيز محمد