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

توزيع جدول حصص المدرسة اليا

حمدى الظابط

بواسطه حمدى الظابط
في قسم الأكسيس Access

 مشاركة

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

حمدى الظابط

حمدى الظابط

قام بنشر
قام بنشر (معدل) 

Public Function MAKEIT1()
Call TSFERTABLE1
Dim mada As Recordset
Dim MOALEM As Recordset
Dim TABLE As Recordset
On Error Resume Next
'_____________________
Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة]  ORDER BY  [متتالية]  DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", 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
End Function

السلام عليكم وكل عام وحضرتكم بخير

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

المعوقات

اولا – اجبار زر امر التوزيع عند وضع علامة صح امام المادة المختارة ان تكون حصتان متتاليتان او متلاصقتن اجبارى

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

وهناك نموذج باسم توزيع الحصص المسئول عن توزيع الحصص عند الضغط على يوم الاحد يتم التوزيع

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

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

ارجو ان يكون الشرح وافى

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

والمطلوب عدم وجود فاصل بين الحصتين

تجربة الجدول.rar

تم تعديل بواسطه حمدى الظابط
  • Thanks 2
رابط هذا التعليق
شارك
حمدى الظابط

حمدى الظابط

قام بنشر
  • الكاتب
قام بنشر

هذا هو الكود الخاص بالحصتان المتتاليتان 


Public Function MAKEIT1()
Call TSFERTABLE1
Dim mada As Recordset
Dim MOALEM As Recordset
Dim TABLE As Recordset
On Error Resume Next
'_____________________
Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة]  ORDER BY  [متتالية]  DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", 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
End Function

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك
حمدى الظابط

حمدى الظابط

قام بنشر
  • الكاتب
قام بنشر (معدل)

هل المطلوب والشرح غير واضح 

المطلوب هو عند وضع علامة صح امام المادة تكون الحصتان اجبارى متتاليتين عند التوزيع ولكم جزيل الشكر

 

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

حمدى الظابط

قام بنشر
  • الكاتب
قام بنشر
7 ساعات مضت, محب العقيدة said:

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

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

السلام عليكم 

التوزيع موجود وجاهز عند الضغط بيتم التوزيع ارايد فقط عند التوزيع يكون الحصتان متتالية اجبارى 

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

المطلوب اجبار الكود على ان تكون حصتان متتالية 

 

 

 

رابط هذا التعليق
شارك
خالد عبد الغفار

خالد عبد الغفار

قام بنشر
قام بنشر

كل عام وانتم بخير استاذ حمدى

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

  • Like 1
رابط هذا التعليق
شارك
حمدى الظابط

حمدى الظابط

قام بنشر
  • الكاتب
قام بنشر
4 ساعات مضت, خالد عبد الغفار said:

كل عام وانتم بخير استاذ حمدى

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

استاذ خالد كل عام وحضرتك بخير 

البرنامج اللى معايا برنامج دسم جدا جدا من مدخلات ومخرجات ولكن فيه بعض الثغرات التى تعوق العمل اليا مثال توزيع حصتان متتاليتان البرنامج بيوزع من 80 الى 90 % حصص متتالية وبيتم التعديل يدويا فى حالة الخطأ 

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

الصغرة الثالثة هو حجب او عدم تمكين احد الحصص لاحد المدرسين 

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

 

  • Thanks 1
رابط هذا التعليق
شارك
محب العقيدة

محب العقيدة

قام بنشر
قام بنشر

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

Public Function MAKEIT1()
Call TSFERTABLE1
Dim mada As Recordset
Dim MOALEM As Recordset
Dim TABLE As Recordset
On Error Resume Next
'_____________________
Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة]  ORDER BY  [متتالية]  DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", 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
End Function

هل تسطيع طباعة MOALEM قبل عملية التوزيع او اعطيني بيانات هذا الجدول قبل التوزيع هنا ستعرف لماذا لا يعتمد الحصتان المتتالبتان
  

 
  • Like 1
رابط هذا التعليق
شارك
  • 2 weeks later...
حمدى الظابط

حمدى الظابط

قام بنشر
  • الكاتب
قام بنشر
في 10‏/4‏/2023 at 09:09, محب العقيدة said:

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

Public Function MAKEIT1()
Call TSFERTABLE1
Dim mada As Recordset
Dim MOALEM As Recordset
Dim TABLE As Recordset
On Error Resume Next
'_____________________
Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة]  ORDER BY  [متتالية]  DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", 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
End Function

هل تسطيع طباعة MOALEM قبل عملية التوزيع او اعطيني بيانات هذا الجدول قبل التوزيع هنا ستعرف لماذا لا يعتمد الحصتان المتتالبتان
  

Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة]  ORDER BY  [متتالية]  DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", dbOpenDynaset)
'_

 

رابط هذا التعليق
شارك
  • 4 months later...
حمدى الظابط

حمدى الظابط

قام بنشر
  • الكاتب
قام بنشر
في 10‏/4‏/2023 at 09:09, محب العقيدة said:

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

Public Function MAKEIT1()
Call TSFERTABLE1
Dim mada As Recordset
Dim MOALEM As Recordset
Dim TABLE As Recordset
On Error Resume Next
'_____________________
Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة]  ORDER BY  [متتالية]  DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", 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
End Function

هل تسطيع طباعة MOALEM قبل عملية التوزيع او اعطيني بيانات هذا الجدول قبل التوزيع هنا ستعرف لماذا لا يعتمد الحصتان المتتالبتان
  

Public Function MAKEIT1()
Call TSFERTABLE1
Dim mada As Recordset
Dim MOALEM As Recordset
Dim TABLE As Recordset
On Error Resume Next
'_____________________
Set mada = CurrentDb.OpenRecordset("SELECT * FROM [بيانات المادة]  ORDER BY  [متتالية]  DESC,[الصف]", dbOpenDynaset)
Set TABLE = CurrentDb.OpenRecordset("teacher class1", 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
End Function

 

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

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

  I accept