ابوخليل

صحيح انا نسيتها بعد التحديث الاخير انظر المرفق تم حجب الحصتين السابعة والثامنة عن مدرسي الرياضيات ، ويضا حجب الحصة الثامنة عن معلم الحاسب اعتقد كذا نسير في مسار صحيح .. اتمنى ان تجري تجاربك على المثال نفسه لأني اعمل على mdb وأكيد سوف تقوم بتعبئة بيانات كاملة ,, وستجد الكثير من الملاحظات ,, فآمل ان ترفع المثال مكتمل jadwal_10.rar

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

تفضل يستخرج اسم الملف على اي صيغة كانت Dim si As Object Set si = CreateObject("Scripting.FileSystemObject") me.text1 = si.GetBaseName(strPath) barna_2.mdb

وعليكم السلام انظر هذا الموضوع فستجد ما يفيدك ان شاء الله

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

هذه هي الطريقة التي استخدمها 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