ابوخليل

نعم يمكن انظر هنا واذا لم تتمكن من التطبيق يفضل فتح موضوع وعنوان جديد وارفق مثالك للتعديل عليه

هذه هي الطريقة التي استخدمها App_open2.rar

Me.path3 = Left(fille, Len(fille) - 4) barna_1.mdb

بالطبع هو مطلب حتى البلد الواحد تختلف فيه القوانين من مرحلة الى اخرى اخواني الكرام تفضلوا : تم احتواء جميع الشروط والضوابط - لاحظوا اننا نتعامل مع الحصص في الحجب والاتاحة ، فلحجب يوم عن معلم يجب حجب حصص ذلك اليوم - يجب العمل على الخطوات بالترتيب - لا بد الاخذ بعين الاعتبار ان التوزيع الآلي مهما كان احترافيا فلا غنى عن اللمسات والتعديل اليدوي امل تكرار الفحص والتجربة وانا جاهز لاي ملاحظة او تعديل jadwal_9.rar

بعد اعادة النظر اتضح مجمل الضوابط في شيئين الاول : المرونة لأي معلم بحيث يمكن يحجب عنه : 1- حصة محددة 2- يوم محدد الثاني : المرونة لاي مادة في : 1- التتالي 2- خيار التقديم والتأخير هل يوجد شيء آخر ؟

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

لو اعدت النظر لتبين لك قلنا للوحدة النمطية ConAmnt اعتبري الــ a حقل تاريخ والـــ b قل رقمي ثم اجرينا المعادلة داخل الوحدة النمطية والناتج سيكون هو القيمة i وقلنا انتي يا ConAmnt ستحملين قيمة i على شرط : يكون داخل القوسين حقلي تاريخ ورقمي على التوالي ، كما تم ترتيبهما هو لا يعرف الخلية باسمها ولكن بنوعها

عذرا سقط سهوا عدل اول شرط : If a < #1/8/2016# Then i = ConsumD0817 (b)

السلام عليكم مشاركة مع احبتي ويبدوا اننا اتفقنا بالمشاركة في وقت واحد عملت وحدة نمطية عامة Public Function ConAmnt(a As Date, b As Double) Dim i As Double If a < #1/8/2016# Then ConsumD0817 (b) If a >= #1/8/2016# And a <= #7/30/2017# Then i = ConsumA0817(b) If a >= #1/8/2017# And a <= #7/30/2018# Then i = ConsumB0817(b) If a >= #1/8/2018# And a <= #7/30/2019# Then i = Consumc0817(b) ConAmnt = i End Function تستدعيها في الاستعلام بهذا السطر Consume_Amount: ConAmnt([issue date];[Consum]) ولكن لاحظ انك في كل سنة جديدة ستزيد سطرا الى الوحدة النمطية Test2.rar

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

اطلعت على المرفق جداول العرف لا يوجد ضمنها جدول Teacher Class وانما تم اضافته في البرامج المساعدة يتم توزيع جداول المعلمين والفصول وعرضها بــ Crystal Reports عبر الاستعلامات يعني ان النتائج النهائية و التقارير تأخذ بياناتها من جدول SDBMNTBC على كل حال ليس عندي مانع بان نعيد ترتيب الاوراق سأكتب الضوابط على شكل نقاط من اجل حصرها والاتفاق عليها .

لا مشكلة نغير التسمية ممكن يكون : " ضبط الانصبة " على اساس نصاب المعلم من المواد ونصاب الفصل من الحصص علما ان التوزيع الآلي الموجود يستحيل يعمل تضارب بين المدرسين وبعض افكر اجعل الآي دي للصفوف والفصول ترقيم تلقائي من اجل المرونة بحيث يكتب المستخدم الاسم الذي يريده لصفه او فصله هذا موجود فعلا وهو الذي تتميز به الفكرة .. ( امكانية الاختلاف في عدد المواد وعدد الحصص خلال اسبوع ) لو رجعت الى شرحي في مشاركتي الثامنة ( آخر الصفحة السابقة ) لاتضح لك آلية التوزيع المتبعة نحن الآن في الأساسات يعني( جداول وكود للتوزيع فقط) ... وانما وضعت النماذج من اجل سهولة ضبط الادخالات كل شي قابل للتعديل للاحسن وفي اي لحظة ، ان شاء الله بأمره وفضله ثم بمتابعتكم

موجود استاذ خالد من الاستعلام Qrymstr يمكن استخراج جدول لكل معلم ايضا هذا موجود دقق في الصورة اعلاه التوزيع يتم مدرس مدرس حبيبنا كتابتك استشف بين السطور انك واخذ على خاطرك .. فما عليش لا تؤاخذني فاسلوبي دائما مقتضب، ودائما اقع في احراجات مع الزملاء ، وبعدين لا تنسى اننا بحاجة لخبرتك لاكتمال العمل وخاصة التعديل اليدوي والسحب والافلات .. طبعا لا يخفى عليك ان التوزيع الآلي سيكون هناك سقط وما شابه مهما كان حتى لو كان اعلى درجات الاحتراف فلا غنى عن التعديل اليدوي .

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

تمت التجربة بنجاح تفضل انظر jadwal6.rar

آمين ولك بمثله

لن يعمل لان بعد التحديث يكون المؤشر والتركيز خرج

نعم كلامك صحيح forms!tsform!fform!c_stu

تفضل Private Sub txt2_Exit(Cancel As Integer) Dim i As Integer i = txt1 If i >= 10 And i <= 100 Then If txt2 > 100 Then Undo txt2 = 100 End If ElseIf i > 100 And i <= 200 Then If txt2 > 200 Then Undo txt2 = 200 End If ElseIf i > 200 And i <= 300 Then If txt2 > 300 Then Undo txt2 = 300 End If End If End Sub db3.mdb

اكتب الصيغة التي تريد كاملة بكلمات عربية وسأطبقها لك

اهلا اخونا احمد شوف الفكرة في المثال اذا اعجبتك انظر في خصائص الحقل في الجدول db2.mdb

تفضل 3zabon.rar

تمام .. قيد التجربة ...

كما توقعت كان السبب في الخلط بتسمية الصف تم الاصلاح بحيث يمكن التمييز بسهولة ، جرب واعد عملية توزيع المواد على المعلمين ، ثم افتح نموذج التعارض : يجب تساوي القيم في العمودين ايضا يمكنك الاطلاع على التعارض من قريب وانت داخل نموذج بيانات المعلمين : انقر نقرا مزدجا على حقل الفصل سيظهر لك رسالة بعدد مواد الفصل وعدد الحصص الاسبوعية ارفقت المثال الذي اعمل عليه حيث يوجد اختلاف عن ما سبقه ، وكنت سأعمل على الحصص المتتالية jadwal5.rar

1/3ب , 1/2ب تعني اولى ابتدائي ب واولى ابتدائي ج على اعتبار 2 =ب و 3 =ج يعني 1ب تعني الاول ابتدائي وسوف انظر في المثال واتوقع رفض البرنامج التنفيذ من هذا الباب