حمدى الظابط

السلام عليكم الموضوع هناك جدول رئيسى بعنوان Teacher Class يتم التحديث منه اليا على جدول Class-teacher من خلال نموذج Class Information زر تحديث بيانات جدول Teacher Class يقوم بتوزيع وفك تعارض الحصص فى الجدول الرئيسى Teacher Class وزر تحديث البيانات Class-teacher يقوم اليا بنقل بيانات جدول Teacher Class الى جدول Class-teacher ويقوم ايضا بفك التعارض المشكلة عند وجود حصتان متشابهان فى نفس الحضة بعد التحديث نرى فصل 1/1 الحصة الاولى يوم الاحد لاستاذ/ عبد الفتاح مادة العربى وبين استاذة / نادية مادة الالعاب بعد التحديث يتم فك وحل تعارض الحصص فى جدول Class-teacher ولكن يظل التعارض فى جدول Teacher Class وهذا يظهور فى تقرير تعارض الحصص المطلوب فك تعارض الحصص فى جدول Teacher Class واذا امكن توزيعه احدهما فى حقل اخر او الاخطار بمن تم حذفة حصته اتمنى ان يكون الشرح وافى وكل عام ةحضرتكم بخير جدول 1.rar

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

فى انتظارك واشكرك على الاهتمام

السلام عليكم وكل عام وحضرتكم بخير ممكن من لديه فكرة فى شرح الاكواد يشرح لى هذا الكود Option Compare Database Option Explicit Public Function TSFERTABLE() DoCmd.TransferDatabase acExport, "microsoft access", CurrentDb.NAME, acTable, "teacher class", "الجدول" Dim i Dim tb As Recordset Set tb = CurrentDb.OpenRecordset("الجدول", dbOpenDynaset) tb.MoveFirst Do While tb.EOF = False tb.Edit For i = 3 To 100 tb.Fields(i) = " " Next i tb.Update tb.MoveNext Loop End Function Public Function MAKEIT() Call TSFERTABLE Dim mada As Recordset Dim MOALEM As Recordset Dim TABLE As Recordset '_____________________ Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة] ORDER BY [الحصة الاخيرة للمادة] DESC,[الصف]", dbOpenDynaset) Set TABLE = CurrentDb.OpenRecordset("الجدول", dbOpenDynaset) '_____________________ mada.MoveFirst Do While mada.EOF = False Set MOALEM = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المعلم] WHERE [الصف] = " & mada![الصف] & " AND [المادة] =" & "'" & mada![المادة] & "'" & " ORDER BY [الفصل]", dbOpenDynaset) MOALEM.MoveFirst Do While MOALEM.EOF = False TABLE.FindFirst "[رقم]=" & MOALEM![رقم] Call RECORDHSA(MOALEM, mada, TABLE) MOALEM.MoveNext Loop mada.MoveNext Loop Call hlaltath End Function Public Function RECORDHSA(MOALEM As Recordset, mada As Recordset, TABLE As Recordset) Dim i, M Dim TSGELHSA Dim B, E Dim ADDHSSOK As String Dim ADDHSSALWM '___________________________ For M = 1 To mada![عدد الحصص] TSGELHSA = "NO" If M = 1 Or M = 6 Or M = 12 Or M = 17 Or M = 22 Or M = 27 Then B = 3 E = 15 Else B = B + 16 E = E + 16 End If If E > 100 Then B = 3 E = 15 End If Do While TSGELHSA = "NO" ADDHSSALWM = 0 For i = B To E Step 2 ADDHSSALWM = ADDHSSALWM + IIf(TABLE.Fields(i) = " ", 0, 1) Next i If ADDHSSALWM < 5 Then ADDHSSOK = "OK" Else ADDHSSOK = "NO" End If For i = B To E Step 2 If TABLE.Fields(i) = " " And TABLE.Fields(i + 1) = " " And TSGELHSA = "NO" And ADDHSSOK = "OK" Then TABLE.Edit TABLE.Fields(i) = MOALEM![الفصل] TABLE.Fields(i + 1) = MOALEM![المادة] TABLE.Update TSGELHSA = "OK" End If Next i If TSGELHSA = "NO" Then B = B + 16 E = E + 16 If E > 100 Then B = 3 E = 15 End If End If Loop Next M End Function Public Function hlaltath() Dim day_ As Integer Dim B As Integer Dim E As Integer Dim tb As Recordset Dim tbimage As Recordset Dim i As Integer Set tb = CurrentDb.OpenRecordset("الجدول", dbOpenDynaset) B = 3 E = 15 For day_ = 1 To 5 If day_ <> 1 Then B = B + 16 E = E + 16 End If For i = B To E Step 2 tb.MoveFirst Do While tb.EOF = False Set tbimage = CurrentDb.OpenRecordset("الجدول", dbOpenDynaset) tbimage.MoveFirst Do While tbimage.Fields(i) <> tb.Fields(i) Or tbimage.Fields(i + 1) <> tb.Fields(i + 1) If tbimage.Fields(i) = tb.Fields(i) Then Call tbdelhss(tb, tbimage, i, B, E) Exit Do End If tbimage.MoveNext Loop tb.MoveNext Loop Next i Next day_ End Function Public Function tbdelhss(tb As Recordset, tbimage As Recordset, i As Integer, B As Integer, E As Integer) Dim tmpfsl Dim tmpmada Dim amlaltbdel As String Dim II As Integer amlaltbdel = "no" II = i Do While amlaltbdel = "no" And II < 100 II = II + 2 If tb.Fields(II) <> " " Then tmpfsl = tb.Fields(i) tmpmada = tb.Fields(i + 1) tb.Edit tb.Fields(i) = tb.Fields(II) tb.Fields(i + 1) = tb.Fields(II + 1) tb.Fields(II) = tmpfsl tb.Fields(II + 1) = tmpmada tb.Update Set tbimage = CurrentDb.OpenRecordset("الجدول", dbOpenDynaset) tbimage.MoveFirst amlaltbdel = "ok" Do While tbimage.Fields(i) <> tb.Fields(i) Or tbimage.Fields(i + 1) <> tb.Fields(i + 1) If tbimage.Fields(i) = tb.Fields(i) Then amlaltbdel = "no" tb.Edit tb.Fields(II) = tb.Fields(i) tb.Fields(II + 1) = tb.Fields(i + 1) tb.Fields(i) = tmpfsl tb.Fields(i + 1) = tmpmada tb.Update Exit Do End If tbimage.MoveNext Loop tbimage.Close End If Loop If amlaltbdel = "no" Then II = i Do While II < 100 II = II + 2 If Right(tb.Fields(II).NAME, 1) <> "8" Then If tb.Fields(II) = " " Then tmpfsl = tb.Fields(i) tmpmada = tb.Fields(i + 1) tb.Edit tb.Fields(i) = " " tb.Fields(i + 1) = " " tb.Fields(II) = tmpfsl tb.Fields(II + 1) = tmpmada tb.Update Exit Do End If End If Loop End If End Function

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

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

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

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

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

استاذ خالد هل معنى كلامك ان لابد من ان ادخل الجدول يدوى اولا

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

السلام عليكم وكل عام وحضرتكم بخير اولا اشكر الاساتذة الافاضل اعضاء ومشرفين المنتدى الافاضل لتفاعلكم مع موضوعات الاعضاء وهذا يشجعينى ان اعرض مشكلتى مع برنامج توزيع جدول الحصص اليا شرح الموضوع هناك جدول باسمى Tarth وهذا يكشف تعارض الحصص وجدول باسم Teacher Class وهذا ليتم فيه توزيع المواد والفصول طبقا لخريطة توزيع الحصص على المدرسين كلا فى تخصصة وجدول بيانات المادة وهذا لتوزيع نصاب عدد الحصص المقررة لكل مرحلة ملحوظة حقل الحصص المتتالية فى حالة نعم جب توزيع (حصتان متجاورتان ) جدول بيانات المعلم بقوم بتوزيع عدد الحصص لكل فصل من المواد المقررة له وذلك باسم المدرس وهناك نموذج باسم Class Information به زر التوزيع اليا وزر تعارض الحصص وهنام عدد 2 وحدة نماطية لتوزيع الحصص اليا المشكلة فى المرفق الاول باسم جدول 1 عند الضغط على التوزيع الالى يحذف جميع سجلات جدول بيانات المادة وكذلك يحذف جدول بيانات المعلم وهذا فى حالة عدم وجود اى بيانات فى حقول جدول Teacher Class ام فى المرفق الثانى باسم جدول 2 عند الضغط على التوزيع الالى لم يخذف سجلات جدول بيانات المادة وكذلك لم يحذف جدول بيانات المعلم وذلك لان جدول Teacher Class به بيانات تم ادخالها يدويا المطلوب ان يتم التوزيع الالى فى المرفق الاول بمجرد الضغط على الزر بعد اعطاء الجداول المذكورة جميع بياناتها اتمنى ان اكون وافقة فى المطلوب عمله ولكم منى كل الاحترام جدول 1.rar جدول 2.rar

اخى الفاضل محمد عصام نعم وجد الحل فى مرفق استاذ عبد الله كاظم شكرا لاهتمامك ولك منى وافر الشكر والاحترام

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

السلام عليكم وكل عام وحضرتكم بخير اطمع فى كرم عطائكم ومساعدتكم بالاتى هناك نموذج رئبسى باسم ( الاشراف ) ونموذج فرعى باسم ( الاشراف 2 ) المطلوب عند اختيار اسم المدرس من النموذج الرئيسى يستدعى اليا نموذج الاشراف 2 ينفس اسم المدرس واشكركم وللجميع تحياتى ‫جدول الحصص 1.rar

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

استاذ خالد ممكن عرض الطريقة مع الشرح لتعم الفائدة على الجميع ولك تحياتى وكل عام وحضرتك بخير

اخى الفاضل الكريم اشكرك على اهتمامك بحل ما عجزت عته وهذا يدل على كرم اخلاقك الراقية تقبل تحياتى وشكرى وبالفعل هذا هو المطلوب

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

السلام عليكم وكل عام وحضرتكم بخير يوجد نموذج باسم ( الاشراف ) ياخذ بيانات الاسم من من جدول Teacher Class المطلوب عند ملئ البيانات من النموذج يظهر اسم المعلم اليا من النموذج الى جدول الاشراف واشكركم ولكم منى كل الاحترام والتقدير جدول الحصص.rar

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

اشكرك على اهتمامك ومساعدتك وتعاونك تقبل شكرى وتقديرى لشخصك الكريم

الاستاذ الفاضل عبد الله كاظم قد حضرنى سؤال هل من الممكن ان يكون اسم المعلم مع الفصل ايضا واعتذر لتعبك ولك تحياتى

الاستاذ الفاضل عبد الله كاظم اشكرك ولك منى كل التقدير وبالفعل هذا هو المطلوب وكل عام وحضرتك بخير

السلام عليكم وكل عام وحضرتكم بخير يوجد نموذج باسم Class Information يعمل جيدا ووظفته يقوم بتحديث ونقل بيانات جدول Teacher Class الى جدول Class-teacher المطلوب تعديل كود النموذج لاظهار اسم المعلم بدل من رقم المعرف له فى جدول Class-teacher واشكركم ولكم منى كل الاحترام والتقدير جدول الحصص.rar