اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

 

 

 

a2.accdb

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

a2.accdb

رابط هذا التعليق
شارك

  • 2 weeks later...
في 11‏/6‏/2024 at 17:09, kanory said:

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

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

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

 

بارك الله فيك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

بالنسبة للشرح عملنا مربعات نص لكل واجب لتسجيل تاريخ تقديم الواجب باسماء ( 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

 

1.jpg

رابط هذا التعليق
شارك

اقتباس
في 25‏/6‏/2024 at 15:37, kanory said:

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

 

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

 

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

رابط هذا التعليق
شارك

  • 1 month later...
في 5‏/8‏/2024 at 22:19, amhba said:

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

 

أخي Kanory، كيف الحال 

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

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

هذه الرسالة بسبب عدم وجود مربع النص المسمى kan في النموذج ..... فضلا راجع مرفقي الاخير بارك الله فيك

رابط هذا التعليق
شارك

في 9‏/8‏/2024 at 15:56, kanory said:

هذه الرسالة بسبب عدم وجود مربع النص المسمى kan في النموذج ..... فضلا راجع مرفقي الاخير بارك الله فيك

شكرا لك اخي العزيز على اهتمامك وشكرا على تجاوبك وجزاك الله عني كل خير 🌹

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information