عند الحفظ يقوم بحساب عدد الواجبات والمشاريع لكل طالب

[amhba]

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

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

اتمنى المساعدة في اكماله ولكم من الشكر 

 

 

 

a2.accdb

[kanory]

13 ساعات مضت, amhba said:

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

اتمنى المساعدة في اكماله ولكم من الشكر 

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

[amhba]

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

[kanory]

1 ساعه مضت, amhba said:

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

طيب .... انظر المرفق .... تم تحقيق طلبك وبدون عملية الحفظ فقط اختر الواجب ثم راجع الجدول لترى التعديلات كاملة ( تم ادخال تاريخ احضار الواجب وكذلك عدد الواجبات المقدمة )

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

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

 

a2.accdb

[amhba]

في 11‏/6‏/2024 at 17:09, kanory said:

.... انظر المرفق .... تم تحقيق طلبك وبدون عملية الحفظ فقط اختر الواجب ثم راجع الجدول لترى التعديلات كاملة ( تم ادخال تاريخ احضار الواجب وكذلك عدد الواجبات المقدمة )

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

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

 

بارك الله فيك

أخي Kanory، كل عام وأنت بخير،

وأعتذر عن التأخير. جاء ردك سريعًا وأنا تأخرت في الرد عليك عشان عطلة العيد فكرر اسفي 
فتحت الجدول وكذألك النموذج لكني الم اعرف طريقة عملك ممكن توضيح وهل استغني عن امر الحفظ 

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

[kanory]

12 ساعات مضت, amhba said:

أعتذر عن التأخير. جاء ردك سريعًا وأنا تأخرت في الرد عليك عشان عطلة العيد فكرر اسفي 

ليس هناك داعي للاعتذار اخي الكريم

12 ساعات مضت, amhba said:

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

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

 

[kanory]

بالنسبة للشرح عملنا مربعات نص لكل واجب لتسجيل تاريخ تقديم الواجب باسماء ( wd1 - wd2 - wd3 - wd4 - wd5 ) وجعلناها مخفية حتى لاتظهر في النموذج

 

ثم عملنا هذا الفانك في النموذج وهو محور العمل في التجميع ....

Function CountFields1()
Dim i, ii As Integer
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT Mo.name, Mo.waj1, Mo.waj2, Mo.waj3, Mo.waj4, Mo.waj5, Mo.waj, Mo.mchro1, Mo.mchro2, Mo.mchro3, Mo.mchro FROM Mo;")
    rs.MoveFirst
    Do While Not rs.EOF
        i = 0
        ii = 0
        For Each Item In rs.Fields
        
            If InStr(1, "mchro1,mchro2,mchro3", Item.name) > 0 And Item.Value = True Then
            i = i + 1
            ElseIf InStr(1, "waj1,waj2,waj3,waj4,waj5", Item.name) > 0 And Item.Value = True Then
            ii = ii + 1
            End If
        Next Item
            rs.Edit
            rs!waj = ii
            rs!mchro = i
            rs.Update
            rs.MoveNext
    Loop
End Function

 

[amhba]

اقتباس

في 25‏/6‏/2024 at 15:37, kanory said:

بالنسبة للشرح عملنا مربعات نص لكل واجب لتسجيل تاريخ تقديم الواجب باسماء ( wd1 - wd2 - wd3 - wd4 - wd5 ) وجعلناها مخفية حتى لاتظهر في النموذج

 

ثم عملنا هذا الفانك في النموذج وهو محور العمل في التجميع ....

 

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