حمدى الظابط

اخى الفاضل كينج هل فى امكانية تحديث اسجلات من جدول الى اربع جداول نفس البيانات بكود فى زر امر واحد ولك جزيل الشكر اريد تحديث البيانات من جدول Teacher Class1 الى جدول Teacher Class2 وجدول Teacher Class3 و جدول Teacher Class4 وجدول Teacher Class5 الحقول التى اريد تحدثها هى رقم - اسم المعلم - اللقب - التخصص ولك تحياتى تحديث.rar

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

استاذ خالد مازالت الرسالة فى السحب والافلات ان هناك مشكلة موجودة

للرفع

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

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

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

السلام عليكم فى المرفق جدولين جدول بيانات المعلم وجدول بيانات المعلم1 اريد نقل حقل الاحد برمجيا من جدول بيانات المعلم الى حقل عدد الحصص فى جدول بيانات المعلم1 وشكرا جزيلا ولكم كل الشكر والتقدير جدول الحصص.rar

للرفع

للرفع

استاذى الراقى جعفر بك تخرج لى رسال تقول فى خطأ فى If A0 > 0 Then هل ممكن تتفضل وتجرب مره اخرى الملف واعتذر لتعبك واشكرك لمجهودك معى وتقبل تحياتى

للرفع

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

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

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

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

السلام عليكم الشرح المطلوب عمله فى نموذج msq جدول الحصص.rar

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

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

السلام عليكم استاذ جعفر اشكرك على الاهتمام الرد وفعلا حضرتك محق بان زر نعم ولا لا فائدة له بدون معرفة ماذا يعمل اريد عتد الضغط على زر نعم تأكيد الحفظ وعند الضغط على زر لا يتم التراجع عن الحفظ ولك كل الاحترام والتقدير

السلام عليكم استاذ جعفر اتباعة الخطوات التى ذكرتها وظهرت لى رسالة تقول لاتتوفر مواضيع تعليمات تطابق الطلب الخاص بك

السلام عليكم ورحمة الله وبركاته زر امر عدم التعارض فى نموذج 1 هو المقصود التعديل عليه اريد دالة IF فى الجزء المشار اليه بالون الاحمر توزع سجلات جدول بيانات المعلم طبقا لكل مادة و عدد حصصها الموجودة امام كل مدرس من الحقل الاحد الى الخميس طبقا لبيانات سجلات جدول بيانات المعلم مع العلم شرح الرموز الموجودة بالكود (b = 4) يعنى يبداء التوزيع من حق رقم 4 و ( b = b + 16) معناه ان من حقل الاحد1 الى الحق الاحد_مادة8 تساوى 16 حقل لانه بيحسب الفصل والمادة * 8 جصص = 16 وكذلك ( E = E + 16) ام ( If E > 81 Then ) معناها ان عدد الحقول الذى يتم التوزيع عليها 80 حقل ارجو الضغط على زر حذف قبل الضغط على زر التوزيع وزر عدم التعارض ثم الرجوع الى جدول teacher class لمعرفى اذا كان تم التعديل والتوزيع ام لا Private Sub hlaltath_Click() Dim day_ As Integer Dim b As Integer Dim e As Integer Dim tb As Recordset Dim tbimage As Recordset Dim i As Integer Set tb = CurrentDb.OpenRecordset("teacher class", dbOpenDynaset) b = 4 e = 15 For day_ = 1 To 5 If day_ <> 1 Then b = b + 16 e = e + 16 End If For i = b To e Step 2 tb.MoveFirst Do While tb.EOF = False Set tbimage = CurrentDb.OpenRecordset("teacher class", dbOpenDynaset) tbimage.MoveFirst Do While tbimage.Fields(i) <> tb.Fields(i) Or tbimage.Fields(i + 1) <> tb.Fields(i + 1) If tbimage.Fields(i) = tb.Fields(i) Then Call tbdelhss(tb, tbimage, i, b, e) Exit Do End If tbimage.MoveNext Loop tb.MoveNext Loop Next i Next day_ End Sub جدول الحصص.rar

السلام عليكم فى هذا الكود عند تضارب الحصص يعطى ان هذا الفصل مشغول لمدرس الاخر وتخرج رسالة بها زر اختيار موافق فقط اريد ان تظهر الرسالة بزر موافق واخر غير موافق او زر نعم والاخر لا Private Sub الاحد1_BeforeUpdate(Cancel As Integer) txtc = DLookup("[الاحد1]", "Teacher Class", "[الاحد1]='" & Me!الاحد1 & "'") txtc2 = DLookup("[الاحد-مادة1]", "Teacher Class", "[الاحد1]='" & Me!الاحد1 & "'") txtc3 = DLookup("[NAMEe]", "Teacher Class", "[الاحد1]='" & Me!الاحد1 & "'") If txtc > 0 Then Beep MsgBox "...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & " باسم : " & txtc2 & vbCrLf & " للمدرس : " & txtc3, vbCritical + vbMsgBoxRight, "تنبيه" End If End Sub

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

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