نجوم المشاركات

بعد اذان الاستاذ الفاضل محمد هشام تعديل بدون اضافة عمود جديد للجهة المستلمة وانما لاخذ قيمتها من الخلية L2 من كل شيت والكود بصراحه قمة الروعة والفكر تسلم ايدك وافكارك استاذنا تجميع V2 -2.xlsm

تفضل جرب تجميع -5.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تجميع V2 -3.xlsm

السلام عليكم ورحمة الله وبركاتة بعد اذن اساتذتي واحبابي في الله اخي عماني عماني تفضل ما طلبت بالكود طلبك الاولاني تجديد حركة السير.xlsm تفضل طلبك الاخير بلاكود ايصاُ تفضل تجديد 2024.xlsm

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

جزاك الله خيراً وجعلة الله بميزان حسناتك باذن الله

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

استفسار هل يمكن ان نوزع جميع الطلاب A على المعلم A في يومين محددين خلال الأسبوع وهنا يتبادر سؤال : كم استيعاب الفترة الواحدة من الطلاب ؟ ام ان توزيع هؤلاء الطلاب يجب ان يكون خلال ايام الاسبع كلها ، بمعنى ان المعلم يجب ان يكون له حصة فعلية كل يوم الاولى مناقشة هذه الجزئية .. كي تصل الى مطلبك الفعلي على ارض الواقع --------------------------------------- بعد كتابتي لما في اعلاه رجعت الى اصل الطلب واعدت قراءته وخلصت الى ان المطلوب : 1- التوزيع يكون عادل خلال ايام الاسبوع

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

هذا هو المطلوب انا عاجز عن الشكر فعلا فليس لدي من كلام اقوله شكرا جدا جدا لك اخي العزيز

عملت لك استعلام NewDateQ و موديول لحساب اخر تاريخ للاستحقاق بعد 6 اشهر يمكنك بناء تقرير او اي شيء تريده ربما هناك طريقة افضل يطرحها الاساتذة ..لكن هذا مافكرت به الان STOCK2.rar

1-تجديد حركة السير.xlsm

السلام عليكم ورحمة الله وبركاته بعد التجربة توصلت إلى الآتي : الكود يعمل على الجداول في حالة اوفيس 2003 كالتالي : Private Sub ToExcel_Click() DoCmd.OutputTo acOutputTable, "MainTable", "MicrosoftExcelBiff8(*.xls)", "", False Beep MsgBox "xls has been created", vbInformation, "Export xls" End Sub الكود يعمل على اوفيس 2010 كالتالي 'Function getFilName() As String Private Sub ToExcel_Click() DoCmd.OutputTo acOutputTable, "MainTable", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint 'xlxs تنسيق ملف اكسيل 2010 Beep MsgBox "xlsx has been created", vbInformation, "Export xlsx" End Sub حيث في الاخير يمكن تغيير الامتداد من xlsx ( تنسيق اوفيس 2007 وما بعده ) إلى xls ( تنسيق افيس 2003 وما قبله ) كما انني اشكركم لما قدمتوه لي من نصائح وتوجيهات حيث انني أتتممت البرنامج الذي اعمل عليه ( صيفنا مميز ) ولكني انهيته على أوفيس 2010 لما فيه من أشكال جماليه حين الانتهاء سوف ارفعه لكم لأنه أول مشروع لي وأريد ان آخذ برأيكم وكني سوف ارفعه اكسيس 2010 لانه كلما اردت تحويله تظهر رسالة تفيد ان هناك تنسيقات تحتاج إلى اوفيس 2010 شكرا لكم وان شاء الله سوف ابدأ ببرنامج جديد وهو خاص بعملي كمدرس رياضيات وهو برنامج خاص برصد الدرجات وطباعة شهادات وإخطار لولي الأمر كما اتمنى ان يكون قادرا على عمل احصائية عن الطلاب بالتقديرات ( ممتاز ( A) ، جيد جدا ( B) ، جيد (C ) ، مقبول (D) ، متوسط (E) ، ضعيف (F) ، ضعيف جدا (G) )