حمدى الظابط قام بنشر أبريل 3, 2023 قام بنشر أبريل 3, 2023 (معدل) 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 تم تعديل أبريل 3, 2023 بواسطه حمدى الظابط 2
حمدى الظابط قام بنشر أبريل 3, 2023 الكاتب قام بنشر أبريل 3, 2023 هذا هو الكود الخاص بالحصتان المتتاليتان 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 1 1
حمدى الظابط قام بنشر أبريل 4, 2023 الكاتب قام بنشر أبريل 4, 2023 (معدل) هل المطلوب والشرح غير واضح المطلوب هو عند وضع علامة صح امام المادة تكون الحصتان اجبارى متتاليتين عند التوزيع ولكم جزيل الشكر تم تعديل أبريل 4, 2023 بواسطه حمدى الظابط
حمدى الظابط قام بنشر أبريل 6, 2023 الكاتب قام بنشر أبريل 6, 2023 تم تحميل المرفق 37 مره ولم أجد اى رد أو تعليق بالسلب أو الايجاب ومازلت عندى امل فى من يساعدنى
محب العقيدة قام بنشر أبريل 7, 2023 قام بنشر أبريل 7, 2023 حاولت ان اساعد لكن اخذت وقت كبير لكي افهم كيف يعمل البرنامج ولم اوفق فلو تبين اليوو عملةد البرنامج ربما ساعدناك
حمدى الظابط قام بنشر أبريل 7, 2023 الكاتب قام بنشر أبريل 7, 2023 7 ساعات مضت, محب العقيدة said: حاولت ان اساعد لكن اخذت وقت كبير لكي افهم كيف يعمل البرنامج ولم اوفق فلو تبين اليوو عملةد البرنامج ربما ساعدناك السلام عليكم التوزيع موجود وجاهز عند الضغط بيتم التوزيع ارايد فقط عند التوزيع يكون الحصتان متتالية اجبارى ملحوظة الكود الحالى بيوزع حصتان ولكن هناك احياناالحصص بيكون بنهم مادة اخرى كما ذكرت فى الشرح اعلاه المطلوب اجبار الكود على ان تكون حصتان متتالية
خالد عبد الغفار قام بنشر أبريل 7, 2023 قام بنشر أبريل 7, 2023 كل عام وانتم بخير استاذ حمدى موضوع الجدول المدرسى اللى عمله استاذنا ابو خليل مش وحش بيوزع تمام بس التضارب اللى فيه لما مدرس بيدخل اكتر من فصل عشان بيوزع فصل فصل بعد تعب لقيته هو الأفضل جرب واشتغل بنموذج السحب والإفلات فى التبديل 1
حمدى الظابط قام بنشر أبريل 8, 2023 الكاتب قام بنشر أبريل 8, 2023 4 ساعات مضت, خالد عبد الغفار said: كل عام وانتم بخير استاذ حمدى موضوع الجدول المدرسى اللى عمله استاذنا ابو خليل مش وحش بيوزع تمام بس التضارب اللى فيه لما مدرس بيدخل اكتر من فصل عشان بيوزع فصل فصل بعد تعب لقيته هو الأفضل جرب واشتغل بنموذج السحب والإفلات فى التبديل استاذ خالد كل عام وحضرتك بخير البرنامج اللى معايا برنامج دسم جدا جدا من مدخلات ومخرجات ولكن فيه بعض الثغرات التى تعوق العمل اليا مثال توزيع حصتان متتاليتان البرنامج بيوزع من 80 الى 90 % حصص متتالية وبيتم التعديل يدويا فى حالة الخطأ الصغرة الثانية بيتم اختيار عدد حصص ايام الاسبوع من داخل الوحدة النماطية واريد ان يكون التحكم فى عدد الحصص اليومية من النموذج وليس من الموديول الصغرة الثالثة هو حجب او عدم تمكين احد الحصص لاحد المدرسين وطبعا برنامج استاذنا الجليل ابو خليل فيه الحل لثانيا وثالثا وبحاول تطبقهم على برنامجى ومازال الامل موجود ان اجد من يساعدنى فى الحصص المتتالية 1
محب العقيدة قام بنشر أبريل 10, 2023 قام بنشر أبريل 10, 2023 عموما في مشاركتك الثانية والتي تقول ان هذا الكود خاص بالحصص المتتالية 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 قبل عملية التوزيع او اعطيني بيانات هذا الجدول قبل التوزيع هنا ستعرف لماذا لا يعتمد الحصتان المتتالبتان 1
حمدى الظابط قام بنشر أبريل 24, 2023 الكاتب قام بنشر أبريل 24, 2023 في 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) '_
حمدى الظابط قام بنشر سبتمبر 14, 2023 الكاتب قام بنشر سبتمبر 14, 2023 في 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.