عبد الفتاح كيرة

ده شغل كبير جدا ربنا ييسر الأمر طريقتك بها قاعدة مرفقة و طريقة الأستاذ رمهان ما تحتاج قاعدة و الطريقة الثالثة سأحاول رفعها إن شاء الله جزاكم الله خيرا

وفقكم الله جميعا إخوتى الكرام و أبشركم فقد تم حل الموضوع للمرة الثالثة ( حل الأستاذ شيفان - و حل ابتكرته من عندى) لكن نظرا لكثرة عدد الحقول ( أكثر من 40) فقد كان الكود يعمل ببطء لا أرضاه فى برامجى التى أعمل عليها و الثالث بمقترح الأستاذ رمهان الذى وفر كل هذه الأكواد و الجداول و هو بتحويل مربعات النصوص إلى كمبوبوكس و جعل مصدر الصف استعلام for_combo و الحمد لله حل بسيط جدا و لكن وفر علينا سطورا من الأكواد ثقيلة شكرا أستاذ رمهان وشكرا أستاذ شيفان و شكرا أبا خليل و ليت هذا الموضوع يأخذ عنوانا جديدا كى يستفيد منه الجميع و كل عام و أنتم بخير الصورة من عرض الطباعة لكنى أنبه أن الخبرة تؤخذ من الحلول كلها سواء الأولى منها أو غيرها فقد تصادف موضوعات لا تحل إلى بتلك الحلول التى جعلناها فى مرتبة تالية فى موضوع سابق و كلها خبرات والحمد لله

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

وقد يكون الأسرع توزيع قيمة هذه الحقول بعد تحويلها أو البحث عن قيمخا المقابلة لها بالكود داخل التقرير مباشرة

أظنه يكون أسرع لو استخدمنا الدالة فى الاستعلام بدلا من استخدامها فى التقرير هكذا ssun1: rf(nz([sun1];0)) ما رأيك شيفان؟

نعم تمام جزيل الشكر لك و للجميع لكن التقرير يفتح ببطء لأن الدالة تعمل فى حوالى 40 حقلا يمكن الاستغناء عن nz تماما إذا جعلنا قيمة الحقل الافتراضية = 0 لكن وجودها أفضل للاحتياط جزاك الله خيرا بفضل الله ثم بفضل استشاراتكم

إذن المشكلة ليست هى عدم وجود الحقل فى التقرير المشكلة هى وجود فراغات فنستخدم nz فى الاستعلام لكن لا داع لاستخدام nz فى الوظيفة لأننا استخدمناها فى الاستعلام فتكون rf = DLookup("[rs]", "for_combo", "[fasl_no]=" & fn) ==== أرجو أن تصححوا هذه العبارة إن كانت خطأ "" يمكن استخدام قيمة حقل فى استعلام من داخل مربع نص غير منضم فى تقرير مبنى على هذا الاستعلام "" يعنى لا يشترط وجود الحقل نفسه فى التقرير بل يكفى وجوده فى الاستعلام جزاك الله خيرا أخانا شيفان و بارك فيك

السلام عليكم تتبعوا معى الآتى لدى استعلام يجلب أرقام الفصول من 1 إلى 14 مثلا رقم الفصل هذا يشير إلى اسم الفصل مثلا فصل رقم 1 يشير إلى 1/1 فصل رقم 3 يشير إلى 13/1 عملنا تقريرا مبنيا على هذا الاستعلام أريد بدلا من جلب رقم الفصل أن نجلب اسم الفصل لأنه جدول حصص مدرسى عملت وظيفة تجلب اسم الفصل من سطر واحد Public Function rf(fn As Control) rf = DLookup("[rs]", "for_combo", "[fasl_no]=" & Nz(fn, 0)) End Function تعمل بكفاءة المشكلة أنها تحتاج أن يكون نفس الحقل الذى به رقم الفصل موجودا بالتقرير و لدينا خمسة أيام فى الأسبوع فى 8 حصص يوميا يعنى 40 جقلا أضف إليها أربعين أخرى لاسم الفصل هل هناك طريقة لتنفيذ الوظيفة بدون جلب الحقل للتقرير و الاكتفاء بوجوده فى الاستعلام test17.rartest17-200 test17.rar test17-2003.rar

شغل جميل و مطلوب @Shivan Rekany

شغل جميل أستاذ @Shivan Rekany

شكرا لكم كل عام أنتم بخير

كود توزيع الفصول

اعرض الملف كود توزيع الفصول أوتوماتيكيا السلام عليكم هذا ملف يشتمل على كود يوزع الفصول على حسب الأعدااد التى تحددها لكل صف و يمللأ كمبوبوكس بالنتيجة مساهمة بسيطة فى شهر الصيام الباب مفتوح للتعديل و النقد وفقكم الله يحتاجه من يقومون بوضع الجداول صاحب الملف عبد الفتاح كيرة تمت الاضافه 13 يون, 2017 الاقسام قسم الأكسيس

شكرا لك أخى بارك الله فيك

ما شاء الله اختصار و إتقان جزاك الله خيرا وكل عام و أنتم بخير

وفقك الله أبا جودى المحترم

جميل أخى الفاضل بارك الله فيك

يشترط كل القوائم الخمسة محتمعة ووضح ما تريده

تفضل لعله المطلوب فرز.rar

رابط مجلد الموضوع و لعله لم ينته بعد! https://drive.google.com/drive/folders/0Bw4O7dVd4FBfM1V1aEZIUmFfZGM?usp=sharing

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

هذه بركات شهر الصيام علوم متتابعة وفقك الله لكل خير و كل عام و أنتم بخير

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