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

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

قام بنشر

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

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

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

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

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

 

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

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

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

اخوكم مراد

 

x1.PNG

x2.PNG

x3.PNG

Tawzee3D.mdbFetching info...

قام بنشر

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

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

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

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

 

قام بنشر

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

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

  في 7‏/4‏/2019 at 06:15, ابوخليل said:

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

Expand  

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

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

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

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

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

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

تحياتي لكم

قام بنشر

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

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

قم بمعاينة الاستعلام الجدولي (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
....
.......

 

 

 

قام بنشر

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

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

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

 

Tawzea222.mdbFetching info...

قام بنشر

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

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

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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information