كل الانشطه

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

تفضل Data15.rar

أخي أحمد ، جرب هذا التعديل الجديد من حيث الدقة والتوافق بين الشفهي واللياقة ؛ حيث تم اضافة حقلين في جدول اللياقة ( رقم الصف ، وملاحظات ) في المرفق التالي :- فكرة توزيع تلقائي لمستويين (3).mdb

هل يمكن أن ترفق لي الملف

وعليكم السلام هنا امثلة اخرى لضرورة تنسيق كتابة الكود

كود تصدير pdf وليس طباعة لجميع الجداول مرة واحدة وبملف واحد وعددها 17 جدول جدول.xlsm

كل التقدير كل التقدير لسعادتك وعليكم السلام ورحمة الله وبركاته أكرمك وأعزك الله أستاذنا الكبير وكل التقدير والشكر لسعادتك .. بالنسبة لجميع التوصيفات التي أضفتها سعادتك .. تماما بالضبط كما أشرت حضرتك استثناءين فقط في 8 - يتم التوزيع من تاريخ معين سيتم تحديده .. نعم بالفعل (سيتم تحديد تاريخ مسبق للياقة). 9 - الترقيم Magmoaa_Leyaka سيبدأ من 1 لكل مجموعات تخص الصف الدراسي الواحد (بكل مدرسة) يعني الصف الأول في مدرسة الفاروق .. نبدا المجموعات 1 ثم 2 ثم 3 يعني الصف الرابع في مدرسة عمر بن الخطاب .. نبدا المجموعات 1 ثم 2 ثم 3 وهكذا ** لا يوجد أي داعي لربط توزيع الياقة بالشفوي .. واذا اضطررت للربط .. فسيكون سهلا إن شاء الله حيث أن جدول اللياقة موضح به (المدرسة والصف) ** هل نراعي توزيع اللياقة حسب المدرسة أو الصف أو نوزعهم ككتلة واحدة فقط حسب ترتيب الشفوي ؟ التوزيع سيكون (كل دفعات الشفوي بصف معين) سيتم التعامل معها لإنتاج مجموعات اللياقة (70 أو 60) والباقي يرحل للمجموعة التالية في الياقة. يعني الصف الواحد في توزيع الشفوي .. والذي تم تقسيمه لدفعات .. سيتم التعامل مع الدفعات لإنتاج مجموعات اللياقة. طلب أخير .. هل ممكن فتح حقل ينوه فيه إلى الدفعات التي تم توزيعها في لإنتاج مجموعة اللياقة يعني مثلا لو المجموعة الصباحية في الياقة تكونت من (دفعة 1 + دفعة 2 + دفعة 3 + جزء من دفعة 4) هل ممكن كتابة هذه الدفعات في حقل مستقل بهذا الشكل (دفعة 1 / دفعة 2 / دفعة 3 / دفعة 4) ولا يسعني إلا تقديم كل التقدير والشكر لسعادتك والله على هذا الدعم وهذا التألق.

بالنسبة للعربية انظر الصورة لتعديل اسماء التسمية التوضيحية للحقول بالنسبة للعدالة طبعا تقريبية اضف الحقل SupervisionCount في الجدول Teachers نمواصفت ( رقم - القيمة الافتراضية 0 ) ثم استخدم الكود التالي في زر التوزيع Dim db As DAO.Database Dim rsA As DAO.Recordset, rsB As DAO.Recordset Dim rsRooms As DAO.Recordset, rsDays As DAO.Recordset, rsTarget As DAO.Recordset Dim supervisionDate As Date, roomName As String Set db = CurrentDb() ' ? تمهيد: مسح الجدول وتصفير العدادات db.Execute "UPDATE Teachers SET SupervisionCount = 0" db.Execute "DELETE FROM TeacherAssignment" Set rsDays = db.OpenRecordset("SELECT * FROM SupervisionDays ORDER BY SupervisionDate", dbOpenDynaset) Set rsRooms = db.OpenRecordset("SELECT * FROM ExamRooms ORDER BY RoomName", dbOpenDynaset) Set rsTarget = db.OpenRecordset("TeacherAssignment") ' ? تحقق من توفر عدد كافٍ من المعلمين Dim totalSupervisionsNeeded As Long Dim availableA As Long, availableB As Long totalSupervisionsNeeded = DCount("*", "SupervisionDays") * DCount("*", "ExamRooms") availableA = DCount("*", "Teachers", "TeacherCategory = 'A' AND (ExamDate Is Null OR ExamDate Not In (SELECT SupervisionDate FROM SupervisionDays)) AND (CorrectionCommittee Is Null OR CorrectionCommittee = '')") availableB = DCount("*", "Teachers", "TeacherCategory = 'B' AND (ExamDate Is Null OR ExamDate Not In (SELECT SupervisionDate FROM SupervisionDays)) AND (CorrectionCommittee Is Null OR CorrectionCommittee = '')") If availableA < totalSupervisionsNeeded Or availableB < totalSupervisionsNeeded Then Dim response As VbMsgBoxResult response = MsgBox("عدد المعلمين المتاحين قد لا يكون كافياً لتغطية جميع القاعات في جميع الأيام." & vbCrLf & _ "هل ترغب في المتابعة مع ذلك؟", vbYesNo + vbQuestion, "تأكيد التوزيع") If response = vbNo Then MsgBox "تم إلغاء عملية التوزيع بناءً على طلب المستخدم.", vbInformation Exit Sub End If End If ' ?? بدء التوزيع Dim usedA As Collection: Set usedA = New Collection Dim usedB As Collection: Set usedB = New Collection Do While Not rsDays.EOF supervisionDate = rsDays!supervisionDate rsRooms.MoveFirst Do While Not rsRooms.EOF roomName = rsRooms!roomName ' معلم فئة A Set rsA = db.OpenRecordset("SELECT * FROM Teachers WHERE TeacherCategory='A' AND (CorrectionCommittee Is Null OR CorrectionCommittee='') ORDER BY SupervisionCount ASC", dbOpenSnapshot) rsA.MoveFirst Do While Not rsA.EOF If Not InCollection(usedA, rsA!TeacherName & "#" & supervisionDate) And (IsNull(rsA!ExamDate) Or rsA!ExamDate <> supervisionDate) Then rsTarget.AddNew rsTarget!TeacherName = rsA!TeacherName rsTarget!TeacherCategory = rsA!TeacherCategory rsTarget!ExamRoom = roomName rsTarget!supervisionDate = supervisionDate rsTarget.Update On Error Resume Next usedA.Add rsA!TeacherName, rsA!TeacherName & "#" & supervisionDate Err.Clear: On Error GoTo 0 db.Execute "UPDATE Teachers SET SupervisionCount = SupervisionCount + 1 WHERE TeacherName = '" & rsA!TeacherName & "'" Exit Do End If rsA.MoveNext Loop ' معلم فئة B Set rsB = db.OpenRecordset("SELECT * FROM Teachers WHERE TeacherCategory='B' AND (CorrectionCommittee Is Null OR CorrectionCommittee='') ORDER BY SupervisionCount ASC", dbOpenSnapshot) rsB.MoveFirst Do While Not rsB.EOF If Not InCollection(usedB, rsB!TeacherName & "#" & supervisionDate) And (IsNull(rsB!ExamDate) Or rsB!ExamDate <> supervisionDate) Then rsTarget.AddNew rsTarget!TeacherName = rsB!TeacherName rsTarget!TeacherCategory = rsB!TeacherCategory rsTarget!ExamRoom = roomName rsTarget!supervisionDate = supervisionDate rsTarget.Update On Error Resume Next usedB.Add rsB!TeacherName, rsB!TeacherName & "#" & supervisionDate Err.Clear: On Error GoTo 0 db.Execute "UPDATE Teachers SET SupervisionCount = SupervisionCount + 1 WHERE TeacherName = '" & rsB!TeacherName & "'" Exit Do End If rsB.MoveNext Loop rsRooms.MoveNext Loop rsDays.MoveNext Loop rsTarget.Close: rsA.Close: rsB.Close: rsRooms.Close: rsDays.Close Set rsTarget = Nothing: Set rsA = Nothing: Set rsB = Nothing Set rsRooms = Nothing: Set rsDays = Nothing: Set db = Nothing MsgBox "تم توزيع المعلمين بعد تحقق العدالة وشروط الاستبعاد!"

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

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

الآن جميع طلاب الشفهي سيخضعون للياقة ، صحيح ؟ أي لا يوجد استثناءات !! يتم توزيعهم على جلستين (صباحي / مسائي) بنفس مبدأ الشفوي . القدرة الاستيعابية للياقة تختلف : صباحي = 70 طالب مسائي = 60 طالب يتم أخذ الطلاب من جدول Tb_Tawze_Shafawe بترتيب ظهورهم ( حسب Magmoaa ) . يتم حفظ التوزيع في جدول Tb_Tawze_Leyaka . للتأكيد . يوجد حقل From_Mag_Shafawe سنستخدمه لتوثيق أن المجموعة ( أو جزء منها ) جاءت من مجموعة شفوي رقم كذا . يتم تجاهل يوم الجمعة كالعادة من التوزيع . يتم التوزيع من تاريخ معين سيتم تحديده ( أخبرني هذه النقطة بوضوح ) . الترقيم Magmoaa_Leyaka سيبدأ من 1 ويستمر بترتيب التوزيع دون إعادة الترقيم . هل هناك أي استثناءات أو شروط إضافية لم تذكرها بعد ❔ على سبيل المثال :- هل نحتاج ربط اللياقة بتاريخ الشفوي محدد ❓ هل نراعي توزيع اللياقة حسب المدرسة أو الصف أو نوزعهم ككتلة واحدة فقط حسب ترتيب الشفوي ❓

السلام عليكم هل هناك كود يمكنى من الالغاء ملفات اكسيل بامتداد معين مثلا .xlsb فى درايف معين او فى كل الدريفات

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

شكرا جزيلا أخي الفاضل

شكرا لكما استاذي الكريمين على الاهتمام بالموضوع وعلى النصائح والارشادات

كلام من ذهب اتفق معاك اخوي ابوخليل 100% ، وخصوصا عندنا امكانبة اختيار انواع الخطوط واحجامها في التقرير

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

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

الحمدلله 🙂 ورجاء العمل على المادة 3 من مقترحي ، حتى يصبح تقريرك خفيف على البرنامج وسريع الاستجابة. اهلا اخي طاهر 🙂 1. نعم بالتأكيد ، الافضل حذف الصورة المتضمنة في التقرير واستبدالها بحقول ومسميات ، نعم قد تحتاج الى بعض اجزاء الصورة المتضمنة ، مثل الشعار او التوقيع ، ولكن يجب ان يكون طول وعرض الصورة لا يكون اكبر من الواقع ، مثلا عرض صفحة A4 هو 21 سنتيمتر ، والشعار في منتصف الصفحة طوله حوالي 7 سنتيمتر ، فعليه ، اعمل هذا الشعار بهذه المقاسات ، يعني مو تجيبها من السكانر بدقة 1200x1200 dpi ثم تضعها في التقرير مباشرة دون تعديل 😱 2. نعم يوجد كود لإستيراد الصفحة من من ملف pdf وتحويلها الى صورة (انا استعمل برنامج www.irfanview.net ليقوم به برمجيا عن طريق command line ) ، ولكن الموضوع سيكون اصعب.

السلام عليكم لدي تقرير FACE10 به خلفية صورة وعند كتابة المعلومات وجدت مشكلة في التنسيقات بين الكتابة التقرير في وضع التصميم "صحيح" خطوات الدخول للتقرير - اختيار الزوج ثم اختيار احد الابناء ثم الضغط على المنحة المدرسية الدخول على فورم a4 يتم كتابة المعلومات واخرها اختيار احد المؤسسات التعليمية يظهر التقرير وعند تنفيذ التقرير تبتعد الكتابة باللون الاحمر عن التعبئة الخاصة بها تعديل ابوخليل.rar

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

نعم استاذي الكريم

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

بالنسبة لاسماء الاعمدة . نعم ممكن تعديلها الى العربية .. سوف اشرح لك حال توفر جهاز حاسب لاني اكتب من الجوال ما المقصود بالعدالة؟ أن يحصل كل معلم على عدد أيام مراقبة متقارب قدر الإمكان. ألا يُكرر معلم في أكثر من يوم قبل استخدام باقي المعلمين. أن يُوزع العبء بالتساوي بين الفئتين A و B.

تفضل استاذ @2saad طلبك حسب مافهمت بالشرح والمرفق . ووافني بالرد . DDGetNOTest .rar