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

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

للرفع

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

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

الإخوة الأعزاء مشرفين وأعضاء كل عام وحضراتكم بخير بمناسبة عيد الفطر المبارك بالمرفق نموذج ادخال يدوى خاص بالسحب والإفلات هل يمكن المساعدة فى تصفية TextBox1 وكذلك TextBox100 على حسب رقم المعلم الموجود بالنموذج وهذا هو المرفق والتوضيح بالنموذج وتقبلوا تحياتى خالد.rar

اخى الفاضل حمدى / تحياتى كل عام وانتم بخير أولم يحن الوقت لفتح مشاركة جديدة من البداية حتى يتمكن الجميع من استيعاب آلية عمل البرنامج وبالتالى تسهل المساعدة أرجو أن تفكر فى الأمر تقبل تحياتى

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

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

الف شكر للأستاذ عبد الله على شرح الكود بارك الله فيك أخى الكريم بالنسبة للتعديل المراد عمله فى نموذج التوزيع لم يتم ما هو مطلوب هو اساسا نموذج Form1 بيحمل كنسبه مئويه لكن المطلوب أنى لما أضغط على زر بدء التوزيع يعمل مؤشر progress bar اثناء عملية التوزيع مع استبدال عبارة يتم الأن توزيع 20% او 40% بالآتى يتم الآن توزيع 1/1 قراءة مثلا طب ودول هايجيبهم منين من الوحدة النمطيه ليظهر لنا عبارة يتم الان توزيع الفصل والمادة من الوحدة النمطية هذا هو الفصل [TABLE.Fields(I) = MOALEM![fsl هذه هى المادة [TABLE.Fields(I + 1) = MOALEM![sub ارجو ان يكون المطلوب قد اتضح ولك الشكر ةتقبل تحياتى

السلام عليكم ورحمة الله تحياتى استاذ / حمدى وأيضا الأستاذ /عبد الله كاظم أولا عمل جميل ومجهود رائع للأستاذ عبد الله وهو فعلا كما اسلف ينقصه ضوابط كثيرة وليته يتم جميله علينا بشرح عمل الكود اذا سمح وقته بذلك جزاه الله كل خير عموما استاذ حمدى انا حاولت اهرب من عملية توزيع الحصص المتتاليه مؤقتا فى الدين مثلا جعلت حصتين دين وحصه حديث كتجربه وبدل 12 عربى جعلتهم 2 فراءة و 2 محفوظات ....... الخ افتح نموج التوزيع فيه عدد 3 زر أمر يتم فيهم استدعاء الوحدة النمطية وبالمرفق نموذج Form1 هو عبارة عن progress bar احاول استخدامه كمؤشر لاتمام عملية التوزيع بحيث يرتبط بز أمر بدء التوزيع الموجود بنموذج التوزيع ليظهر لنا عبارة يتم الان توزيع الفصل والمادة من الوحدة النمطية [TABLE.Fields(I) = MOALEM![fsl [TABLE.Fields(I + 1) = MOALEM![sub فهل يمكن المساعدة فى عمل ذلك استاذ عبد الله اليكم المرفق ولكما تحياتىDatabase2.rar

Public Function MAKEIT بعد ان تمت عملية تصفير الجدول ومسح بياناته اعلن عن متغير اسمه الماده Dim mada As Recordset اعلن عن متغير اسمه المعلم Dim MOALEM As Recordset اعلن عن متغير هو جدول تيتشر كلاس Dim TABLE As Recordset هنا كنت احاول اعلن عن متغير اسمه الصف ولكنى لم افلح فى محاولتى Dim sf As Recordset المادة من جدول بيانات المادة المعلم من جدول بيانات المعلم والجدول هو تيتشر كلاس امسك اول ريكورد من الماده اذا وجد فيها قيمه يعنى اسم ماده شوف من جدول بيانات المعلم اذا كان الصف من جدول بيانات المادة يساوى الصف من جدول بيانات المادة والمادة بتساوى المادة من نفس الجدولين من جدول تيتشر كلاس رقم المعلم اللى بيساوى الرقم اللى موجود فى جدول بيانات المعلم ( Call RECORDHSA(MOALEM, mada, TABLE امسك المعلم والمادة ورقم المعلم الموجود فى الجدول اللى هيتم فيه التوزيع وهو تيتشر كلاس ثم المدرس التالى والمادة التاليه عملية الدوران أو اللووب ده اللى قدرت افهمه على قدر معلوماتى الضئيلة بالأكواد ممكن اكون مخطئ وممكن تكوم ضربت معايا كده لذا ممكن احد المشرفين أو الأعضاء يصوب إذا كان هناك خطأ لو وضحت الصوره بالنسبة لك ندخل فى الباقى غلى قدر فهمى كما اسلفت

Database9.rar تفضل

صعب حد يترجم الوحدة النمطية بهذا الشكل كان أفضل تنزل الوحدة النمطيه من داخل القاعدة عشان يقدراللى عاوز يساعد يبص على الجداول وما يحتويه كل جدول من حقول خصوصا وانه فيه تداخل بين كلمات كل سطر عشان عربى على انجليزى عموما القصه كلها هنا فى الوحدة النمطية دى هي تبدأ ()Public Function TSFERTABLE هذا الجزء أنا قمت بتعديله فى القاعدة التى أرفقتها بالمشاركة السابقة ألغيت الجدول وجعلته يعمل على جدول تيتشر كلاس فهذا الجزء يقوم بمسح بيانات جدول تيتشر كلاس بيعمل لوب على الحقول من 3 : 100 وانا عدلتهم عشان لغيت يوم السبت وبيمسح بياناتهم وبكده الجدول بيكون فاضى وبالمناسبه لو جيت تضغط على زر التحديث إياه هيمسح البيانات من جدول بيانات المادة ومن جدول بيانات المعلم اسمحللى اشرب قهوتى وبعدين اقولك اللى فهمتو من باقى الوحدة النمطيه

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

انا لغاية السنه الماضيه كنت بقوم بالإدخال يدويا وكنت بتعب جدا عشان اعمل جدول ورقى تم اقوم بتعبئته من خلال نموذج بس إن شاء الله أعرف [لتقى بصديقى ونعمل التعديلات ( الصعوبات اللى واجهتنى) وهو ممتاز فى عملية كتابة الأكواد وعمل الوحدات النمطيه فا لموضوع سهل بالنسبة ليه أنا والله ما بخلت عليك بشئ على قدر ما فهمت ومن خلال التجارب كنت بفهم الزر ده بيعمل ايه خلى بالك من نقطه مهمه ان لو البرنامج وزع بشروطنا يعنى تم ضبط حصص اليوم لكل صف مثلا وانه وزع الماده اللى نصابها 3 حصص اسبوعيا حصتان متتاليتان والثالثه بعدهم ب 10 او 12 حصه هنلاقى عقبات اخرى ممكن مثلا عدالة توزيع الحصة الأخيره لكل مدرس مدرس منتدب خارج المدرسة يومان مثلا مدرس مشرف فى يوم ما كل دي عقبات بتدور فى ذهنى عشان كده انا قلت لنفسى لو موصلتش لحل مع صديقى لمثل هذه الأمور يبقى لازم يكون فى حل أخر اعدل عن طرق السحب والإفلات النموذج اللى فى المشاركة السابقه والذى لم يكتب لها النجاح

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

زر التوزيع ده خاص بالتحديث بيحدث البيانات من جدول تيتشر كلاس لبيانات المادة وبيانات المعلم فسيادتك عاوزه يوزع حصص ازاى شرح هذا الكود موجود فى المشاركه السابقة وقلت لك ان الذى يوزع فصل ومادة للمعلم هو الوحدة النمطيه 1 وقلت لك هى مقسمه كالتالى الجزء الأول ()Public Function TSFERTABLE خاص بمسح البيانات من جدول تيتشر كلاس ثم الجزء الثانى ()Public Function MAKEIT مسئول عن توزيع الفصل والمادة ()Public Function hlaltath مسئول عن حل التضارب ثم Public Function tbdelhss(tb As Recordset, tbimage As Recordset, I As Integer, B As Integer, E As Integer) تبديل الحصص وكل ده موجود فى المشاركه السابقه العمليه مش صعبه استاذ حمدى اقرأ المشاركه السابقه وانظر الى النماذج مرة اخرى ستجد ماقلته لك وستجد ايضا من خلال محاولاتى اين الخلل كما ذكرته فى عدد حصص اليوم للصف الواحد وكيف نتعامل مع الحصص المتتالية دى العقبات غير كده البرنامج شغال عموما أخ حمدى انا فى انتظار ان تسمح الظروف ويجمعنى الوقت بصديق لى مبرمج اوراكل ليصحح لى أو بمعنى أدق أن يعدل لى الوحدة النمطية لتحقق التوزيع كما ينبغى

اشكر الجميع تمت عملية السحب والإفلات بصورة أخرى

يا اخواننا الكرام فى المنتدى هل المطلوب غير واضح

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

وانت بالصحة والسلامة استاذ حمدى

للرفع

بارك الله فيك استاذ على وكل عام وانتم بكل خير

للرفع

Database3.rarالإخوة الأعزاء مشرفين وأعضاء كل عام وانتم بخير الرجاء ممن لديه الخبرةالمساعدة فى عملية السحب والإفلات فى النموذج الموجود بالمرفق حيث أرغب فى سحب الفصل والمادة معا الى الحقل 1 والحقل 2 واذا تم السحب والإفلات ينقص عدد الحصص 1 أتمنى أن تكون قد وصلت الفكرة ولكم تحياتى