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

وفقكم الله جميعا إخوتى الكرام

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

لكن نظرا لكثرة عدد الحقول ( أكثر من 40) فقد كان الكود يعمل ببطء لا أرضاه فى برامجى التى أعمل عليها

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

و هو بتحويل مربعات النصوص إلى كمبوبوكس

و جعل مصدر الصف استعلام for_combo

و الحمد لله

حل بسيط جدا و لكن وفر علينا سطورا من الأكواد ثقيلة

شكرا أستاذ رمهان

وشكرا أستاذ شيفان

و شكرا أبا خليل

و ليت هذا الموضوع يأخذ عنوانا جديدا كى يستفيد منه الجميع

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

الصورة من عرض الطباعة

لكنى أنبه أن الخبرة تؤخذ من الحلول كلها

سواء  الأولى منها أو غيرها

فقد تصادف موضوعات لا تحل إلى بتلك الحلول التى جعلناها فى مرتبة تالية فى موضوع سابق

و كلها خبرات

والحمد لله

مش عارف أنتم شاغلين نفسكم بالمزحة وحذف مشاركات بسببها

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

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

نعود للموضوع

كود الأخ شيفان حل الموضوع

لكن لأن عدد الحقول التى يتعامل معها كبير فقد لاحظت بطئ فى عمله

لذا فكرت فى الحل التالى

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

هذا الجدول يكون مصدرا لبيانات التقرير

و يتم مسح و تحديثه كلما غيرنا فى حصص الجدول

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

هذه فكرة

وبعد ذلك فاجأنى الأستاذ رمهان بإبداع من إبداعاته

وطبعا الأسهم التى تكون بمربعات السرد لا تظهر فى الطباعة

أشكر الأستاذ رمهان على الفكرة والجدول المطلوب طباعته فى جدول sheet1

سأجرب ذلك و أخبركم بالنتائج وجزاكم الله خيرا

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

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

أظنه يكون أسرع لو استخدمنا الدالة فى الاستعلام بدلا من استخدامها فى التقرير هكذا

ssun1: rf(nz([sun1];0))

ما رأيك شيفان؟

2 ساعات مضت, Shivan Rekany said:

هل ما وصلت لطبك استاذي؟

نعم تمام جزيل الشكر لك و للجميع

لكن التقرير يفتح ببطء لأن الدالة تعمل فى حوالى 40 حقلا

يمكن الاستغناء عن nz تماما إذا جعلنا قيمة الحقل الافتراضية = 0

لكن وجودها أفضل للاحتياط

جزاك الله خيرا

بفضل الله ثم بفضل استشاراتكم

10 ساعات مضت, Shivan Rekany said:

يجب ان يكون قيمة افتراضية بيكون صفر

اي لا يكون هناك حقول في جدول شيت 1 بدون رقم

وغير كنترول في فانكشن الى سترينك

إذن المشكلة ليست هى عدم وجود الحقل فى التقرير

المشكلة هى وجود فراغات

فنستخدم 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

شكرا لكم

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

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

شكرا لك أخى

بارك الله فيك

ما شاء الله

اختصار و إتقان

جزاك الله خيرا

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

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

15 دقائق مضت, husamwahab said:

تفضل اخي العزيز

ارجو ان يكون فيه طلبك

 

جميل أخى الفاضل

بارك الله فيك

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

ووضح ما تريده

تفضل
لعله المطلوب

فرز.rar

رابط مجلد الموضوع
و لعله لم ينته بعد!

https://drive.google.com/drive/folders/0Bw4O7dVd4FBfM1V1aEZIUmFfZGM?usp=sharing

11 دقائق مضت, ابوخليل said:

39 دقائق مضت, عبد الفتاح كيرة said:

 

ثم  بركات استاذنا المناضل محب العلم عبدالفتاح كيرة 

 

وفقك الله حبيبنا الأستاذ أبا خليل

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

و مع أن فكرة تحديث جدول من آخر ليست بالمتعارف عليها

إلا أنها جرت كل هذه المهارات

قمت برفع ملف كامل للموضوع على درايف خشية ضياعه

سأدرج  الرابط قريبا إن شاء الله

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

هذه بركات شهر الصيام

علوم متتابعة

وفقك الله لكل خير

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

10 دقائق مضت, Shivan Rekany said:

نعم قبل قليل انا عملت ونجحت

انتظرني راح ارفق لك القاعدة

عندك استعلام q1

واليك هذا الاستعلام للتحديث

ممتاز جدا

جزاك الله خيرا و بارك فيك

بساطة و سهولة متناهية

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

تم المراد من رب العباد

جزيل الشكر لك أخى الحبيب 

@Shivan Rekany

لابد من الاستبدال ب صفر فى الأول i

لأن قيمة الصفر سيبنى عليها قيمة rr

زاد الموضوع ثراء بالفكرة العبقرية للأستاذ @رمهان

أعتقد يمكن تطوير هذه الفكرة للحصول على أحدث 3 سجلات و ليس اثنين

هذا التحديث بالكود

فهل يمكن التحديث بالاستعلام مع استخدام نفس الفكرة؟

جربته لم يفلح

رسالة خطأ اختلاف النوع

مع أنها نفس الحقول التى بالكود

جزيل الشكر لكم جميعا

2 دقائق مضت, Shivan Rekany said:

واشتغل 100%

شيفان المحترم

هذا سؤال

أم خبر سار؟

جار التجربة

شكرا لك