طلب تعديل كود توزيع الحصص

[mourad2012]

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

اسعد الله اوقاتكم بكل خير

بداية نشكر القائمين على هذا الصرح كل باسمه ... ادامكم الله ذخراً وعوناً ان شاء الله

مشكلتي في كود تمت كتابته بواسطة شيخنا الغالي (أبو خليل) أدامه الله ورعاه في موضوع الجدول المدرسي 

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

 

اليكم الصور والمثال لتوضيح المشكلة:

واذا لم يتم الفهم من الصور فانا حاضر لاي سؤال للتوضيح

اشكركم مقدماً 

اخوكم مراد

 

Tawzee3D.mdb

[ابوخليل]

غير مفهوم تماما

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

اذا صحيح .. فحاول تحذف كود التوزيع من الاستعلام الجدولي  وانظر النتيجة

او حاول تشرح بدقة ما تريد

 

[SEMO.Pa3x]

مثل ما قال الاستاذ @ابوخليل 

حاول تشرح اكثر، لكي نتمكن من مساعدتك.

 

حسنين

[mourad2012]

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

اشكر لكم حسن تعاونكم

2 ساعات مضت, ابوخليل said:

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

نعم اريد ذلك ولكن عند حذف كود التوزيع يصبح للمعلم فقط مادة واحدة حتى لو كان يعلم اكثر من مادة لنفس الصف

وهذا ما لا اريده

نقطة الخلاف في الكود الخاص بك استاذي الفاضل أبو خليل هو:

في الصورة الثانية : كود التوزيع يجب ان يعطي 2  2 وليس 1 2

كي تصبح نفس المادة لاكثر من صف في سطر واحد

اريد النتيجة كما في الصورة الثالثة 

تحياتي لكم

[ابوخليل]

6 ساعات مضت, mourad2012 said:

في الصورة الثانية : كود التوزيع يجب ان يعطي 2  2 وليس 1 2

حتى الآن غير مفهوم  .. زد شرحا وتوضيحا للسطر اعلاه

[mourad2012]

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

في المثال الذي ارفقته في المشاركة الاولى

قم بمعاينة الاستعلام الجدولي (MainQry_Crosstab)

ستجد انه يظهر كما في الصورة الأولى وهنا ركز على الموظف الذي اسمه وليد

الآن:

 

اذهب الى جدول : (Tazee3Tbl)

وقم بتغيير الرقم (2 الى 1 ) او (1 الى 2) ليس مهماً المهم ان يتشابه الرقمين في في حقل (Twzcod) للموظف الذي رقمه (2) في حقل (teachId)

قم بمعاينة الاستعلام الجدولي (MainQry_Crosstab)

سيظهر لك بشكل صحيح

كما في الصورة الثانية في المشاركة الأولى وهذا الصحيح 

 

انا لما افهم الكود الخاص بك بشكل سليم وخاصة هذه الجزئية:

 If ii = 0 Then
 For x = 0 To .RecordCount - 1
 Set sumHes = CurrentDb.OpenRecordset("SELECT Sum(TashkelatTbl.tst) AS tst FROM TashkelatTbl GROUP BY TashkelatTbl.[classID] HAVING [classID]=" & myfasl![class_id])
 If sumHes!tst = 0 Then ii = 1
 If tData!tst = 0 Then
 .MoveNext
 ElseIf tData!tst > 0 Then
 divis.AddNew
 i = i + 1
 divis!twzCod = i
....
.......

 

 

 

[ابوخليل]

المشكلة اخوي  مراد  ان  الاستعلامات تعمل تصفية حسب الصف  ولا تأخذ بالاعتبار  المعلمين

تم عمل تصفية حسب الاثنين : الصف والمعلم

انظر التعديل

Tawzea2.mdb

[mourad2012]

اشكرك اخي العزيز على سعة صدرك 

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

جرب المرفق ستجد ان التوزيع لا يتغير رغم وجود مواد إضافية في جدول التشكيلات

 

Tawzea222.mdb

[ابوخليل]

تفضل 

اتمنى يحقق المطلوب

Tawzea3.mdb

[mourad2012]

اشكرك شيخنا على هذا العمل الرائع

وجعله الله في ميزان حسناتك 

تم العمل على اكمل وجه