(برمجيا) كيف أجعل مسلسل تكرار الطالب يزداد تصاعديا وفق شروط؟

للرفع بانتظار ردكم الكريم

أخي الكريم :

أعتقد أن الجدول المرفق يحتاج إلى إعادة نظر. فمن الأفضل أن تقسمه إلى جدولين بكل جدول حقل مفتاح واحد فقط وتربط الجدول الأول بالثاني بمفتاح "غريب" أو "أجنبى" - لا اعرف التسمية العربية الصحيحة - ومن ثم عند إضافة أي بيانات للجدول الفرعي لا يتكرر مسلسل الطالب كما طلبت حيث سيكون الجدول الرئيسي هو جدول الطالب بجميع بياناته والجدول الثاني هو جدول الغياب - كما فهمت من تسمية الحقول - ستكون العلاقة بينهما علاقة واحد إلى متعدد..

أخي الكريم team2000

السلام عليكــم ورحمـة الله وبركاتــه ،،

أولاً: أشكر لك مشاركتك بالرد ولطفك بالمرور على الموضوع

ثانياً: فكرة السؤال الإبقاء على تصميم الجدول كما هو (لأنه تابع لقاعدة بيانات مدرسية) يستحسن عدم المساس بها

وتم ربط هذا الجدول بقاعدة بيانات خارجية الغرض منها أنشاء فورم

يسهل عملية إدخال البيانات اليومية المتكررة باستخدام الباركود

ولك الشكر

أبومحمد

أخواني الكرام

السلام عليكــم ورحمـة الله وبركاتــه ،،

وجدت جزأ من الحل في الكود التالي

Me!mosalsal = Nz(DMax("[mosalsal]", "[st_gheyab]"), 0) + 1

ولكنه شامل لجميع الطلاب

والمطلوب حصر هذا التزايد لكل طالب منفردا

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

أتعشم منكم المساعدة

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

أبومحمد

أولاً: الأخ الفاضل والمبدع المتألق اكسيرالحياة

السلام عليكــم ورحمـة الله وبركاتــه ،،

يسعدني ويشرفني مرورك لهذا الموضوع من أخ طالما تعلمت منه واستفدت كثيرا ولا زلت أتطلع للكثير

أخي الكريم .. بارك الله فيك ما أشرت أليه صحيح

وهذا ما أردته بالضبط: (كود يعيد التسلسل الصحيح للطالب)

بحيث عند إدخال الرقم المدني للطالب فإنه (تلقائيا) يضع التسلسل الصحيح تصاعدياً للطالب الواحد.

وهكذا لجميع الطلاب كما هو واضح في الجدول الذي رفعته في مثالك (ربي يجزيك الجنة)

اللهم بارك له في علمه وسدد فهمهه وألهمه من لدنك علما نافعا وبارك له في وقته

وأنر له دربه وحببه إلى قلوب عبادك وأرزقه رزقاً مباركاً

ثانياً: الأخ العزيز: mrnooo2000

أشكر لك لطفك ومرورك هنا وهذا فضل منك

وما أشرت أليه حقيقة هو جميل ولكن قصوري في توظيف هذا الكود في البيانات المتعددة التي تحتاج إلى فرز

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

جعلك الله ذخرا وسندا

أخوكما: أبومحمد

بســم الله الـرحمــن الرحيــم

الأخ الفاضل: mrnooo2000

أقدم لك شكري وامتناني على مجهودك ومساعدتك لي

وتوفيقك (بإذن من المولى) للحل الصحيح

هذا هو فعلا ما أريده مع ملاحظة ما يلي:

ما ذكرته في الكود

mosalsal = Nz(DCount("[numberh]", "st_gheyab", "[numberh]='" & numberh & "'"), 0) + 1

معنيٌ بأحصاء عدد مرات تكرار رقم الطالب ثم يضيف إليه +1 كتسلسل جديد

وعند التجربة [أرجو أن تجرب] على نفس المثال السابق للطالب رقم 12 يعطي النتيجة 4 لأن عدد التكرار 3 مضاف إليه +1 = 4 وهذا صحيح شكلاً وخاطئ مضموناً

وهنا تظهر المشكلة والمعضلة (الي دوختني) وهي

أن مسلسل هذا الطالب فعليا هو: 1 ، 3 ، 4 لأن 2 أسقط بحذف سجله

والمفروض أن يكون التكرار الرابع: 1 ، 3 ، 4 هو 5

وهنا عدلت بالكود ((بعد أذنك)) بدلا من DCount إلى DMax على مسلسل الطالب ليصبح الكود الجديد:

mosalsal = Nz(DMax("[mosalsal]", "st_gheyab", "[numberh]='" & numberh & "'"), 0) + 1

تم تجربة الكود ونجحت التجربة

لك من الله عظيم الأجر والثواب

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

بقي لي من سؤالي ما يلي

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

أشعر أني أثقلت كثيرا فأرجو المسامحة

أخوكم أبومحمد

بســم الله الـرحمــن الرحيــم

الأخ الكريم: اكسير الحياة .. جعل الله لك من أسمك نصيباً فأنت بحقٍ (أكسيراًً ، ونبعاً) متجدداً للحياة

ما أجمل الحياة وأنت تعيش في كنف أخوة هم العون لك بعد الله في الدعم والتعليم والمساعدة

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

بحق قرأت الكود فوجدت عبقرياً فذاً شمر عن ساعديه وعصر مخه (ولب مخيخه) وأنتج شفرة برمجية نافعة

هي عصارة إلهام وإبداع وممارسة في فن البرمجة وفك العقد.. فتبارك من خلق وهدى وأبدع (بسم الله ما شاء الله عليك)

نعم هذا ما أردته وزيادة .. وفقك الله لطاعته ومحبته

بقي لي في مسألتي الشق الأخير .. وهو عدم تكرار الطالب في نفس التاريخ

بمعنى مسلسل الطالب لا يتكرر أبداً ، والسجل المدني للطالب لا يتكرر مع تاريخ اليوم الواحد

وهذا مثال للأخت الكريمة أم عهود زهرة الخير والعطاء

 <DIV align=right>Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox ""
Me.tblgheyabDate = "عذرا أخي الكريم هذا الطالب مسجل من قبل بنفس التاريخ"
Else
If DataErr = 3058 Then
Response = acDataErrContinue
MsgBox "عذرا أخي الكريم  لا يمكن ترك حقل التاريخ فارغاً"
Else
MsgBox "Error#: " & DataErr
Response = acDataErrDisplay
End If
End If
End Sub</DIV>

وأخيرا تقبل شكري ودعائي

أبومحمد

أخي ذو الهمة الرفيعة والعطاء المتجدد اكسير الحياة

السلام عليكــم ورحمـة الله وبركاتــه ،،

شكر لك شكر لك على ابداعك وتألقك

بابتكاراتك وأفكارك النيرة أنت مبدع برب السموات والأرض

كلما تأملت صياغة الأكواد أقف مذهولا أمام عبقريتك الفذة

ربط العلاقات وصياغة المعادلات وبناء التعشيش وفق الشروط .. كلها تنساب معك وتتطاوع لأمرك

كأنها فصل من مسرحية محبكة المشاهد والفصول

فـ (بسم الله ما شاْ الله عليك) ولو جاز لي شرعا المبالغة في المديح ،، لأطريتك حتى أجازي معروفك

سر على بركة الله فتلميذك منصت لك مستغرق في أفكارك متعلم على يديك

(الله يجزيك الجنة ويغفر لك ولوالديك وللمسلمين)

وقبل أن أفلت لوحة المفاتيح أحببت أن أستفسر لو سمحت لي

أولاً: بعد توفيق الله لك بحل الشروط المذكورة آنفاً وهي عدم تكرار التاريخ والتسلسل للطالب الواحد

أجتهد تلميذك وفتح النموذج للتجربة ووجد ما يلي: خانة مسلسل الطالب يتم إدخالها يدوياً (وسابقا) تم التوصل إلى الإضافة البرمجية التلقائية.. فهل لها عودة

ثانياً: متى يظهر الحقل المستحدث الذي يضم التاريخ ورقم الطالب (ما هو الحدث؟)

أخيراً هل أضافة زر الأمر1 مقصود لذاته أم هو عرضياً لأنه لا توجد له وظائف في الكائنات البرمجية

تقبل مني خالص الدعاء

أخوك/ أبو محمد