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

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

السلام عليكم

عدد الفصول فى كل صف يختلف من عام لآخر

مثلا الصف الأول فى العام الماضى كان 4 فصول

هذا العام صار 5 فصول

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

بحيث لو كان العدد 4 فصول يتم إدراج 4 فصول

وإذا كان العدد 5 فصول يتم إدراج 5 فصول

طبعا كل هذا بالكود

ما اقتراحاتكم لتنفيذ ذلك

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

[jjafferr]

وعليكم السلام

 

لا تضيف حقل/حقول ، وانما اخفي الحقل/الحقول الاضافية و اجعل العرض = 0 (حتى لا ترى مسافة فاضية بين الحقول) ،

يعني اعمل في التقرير 10 حقول بدل 4 (مثلا ، ولتفادي المشكلة مستقبلا) ، واجعل الكود يحسب عدد الحقول الموجوده في السنة ، وعليه يُظهر الحقول المطلوبة ، ويُخفي بقية الحقول

 

جعفر

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

المشكلة فى الصفوف

وليست فى الأعمدة فالأعمدة  ثابتة

حسب فكرتك

ندرج مثلا فى 10 مربعات تحت بعضها

ونتحكم بالكود فى ارتفاعاتها وفى المسافات بينها

ونخفى الزائد منها

سأجرب ذلك و أرد عليك

مع خالص شكرى

وأرجو إرشادى برابط لمواضيع مشابهة فى المنتدى

 

 

 

تم تعديل يوليو 10, 2018 بواسطه عبد الفتاح كيرة

[jjafferr]

عملنا انا وانت تقرير لطباعة الصف في صفحة واحدة ، سواء اكان هناك 30 او 50 طالب

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

نعم أذكر و هو مستخدم للآن

لكن هذه التى معنا الآن مربعات غير منضمة

[jjafferr]

انا لم افهم قصدك بالضبط !!

ولكن اذا فهمي كان هو التحكم في عدد الحقول (وليس السجلات) ،

فتستطيع ان تعطي المربعات تسلسل ابتداء من الفصل الاول للعاشر ، مثلا:

Class_01  ، Class_02  ، ... Class_10

 

وتجعل هذا الحدث على "حدث تنسيق" قسم الـ Detail في التقرير:

طبعا هذا الكود مجرد اسطر تم كتابتها فقط لمعرفة كيف كتابة الكود ، ولكنها غير مكتوبة بأي تنسيق/تخطيط

dim ctl as dao.control

     counter=0
     For Each ctl In me.controls
        
        if ctl.controltype=actextbox then
            counter=counter+1

			if "...The Number of controls..." then
				ctl("Class_" & format(Counter,"00")).width=0
				ctl("Class_" & format(Counter,"00")).visible=false

			else

				ctl("Class_" & format(Counter,"00")).width=1 * 1440 '1 inch
				ctl("Class_" & format(Counter,"00")).visible=true
			endif

        endif
     Next ctl

 

جعفر

[jjafferr]

تفضل هذا الرابط

https://www.officena.net/ib/topic/80802-عرض-التقرير-بشكل-افقي/

 

جعفر

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

أستاذ جعفر حفظه الله

الصورة تبين المشكلة

و قد أرفقت التقرير 

mezanya.accdb

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

أستاذنا جعفر

تم حل المشكلة بفضل الله

فبدلا من استخدام مربعات نصوص غير منضمة

استخدمت الاستعلام الجدولى

وهو حل رائع

حقول عناوين الصفوف هى

حقل الصف

ثم حقل الفصل

وحقل عناوين الأعمدة هو حقل حالة الطالب و فيه مستجد/معيد

لكن لا مانع من إكمال ما بدأنا لإفادة المنتدى

وهناك مشكلة عامة فى الاستعلام الجدولى

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

يعنى لو عمود به 5 قيم

واحدة منها غير مستعملة ليس فيها بيانات

فإن الاستعلام الجدولى لا يعرضها

 

[jjafferr]

الفكرة هي الرجوع للاستعلام ، وعمل كل شيء هناك:

 

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

.

وضعنا الكود في الاستعلام ، ولذي سيزيد وينقص عدد السجلات حسب عدد لفصول :

.

وعملنا تقرير فرعي من الاستعلام اعلاه ، ووضعناه داخل التقرير الرئيسي:

.

جعفر

mezanya.zip

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

هذا إبداع 

أولا فى فهم المطلوب تماما

ثانيا جارى الفحص و الدراسة و من ثم الرد عليكم

وشكرا جزيلا لك

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

أستاذ جعفر حفظه الله

الفكرة أننا جعلنا التقرير مبنيا على استعلام 

لنستفيد بتسلسل و تجدد عدد الفصول فى كل مرة

و النتائج مرضية جدا و الحمد لله

نقطتان:

أولا لماذا يفضل عمل كل شىء فى الاستعلام

ثانيا : نود شرح طريقتكم فى التحليل كما تقول الصورة

و شكرا لحضرتكم

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

هذه طريقة أخرى أقوم بشرحها لعل الإخوة يستفيدون منها

باستخدام crosstab

عناوين الصفوف = رقم الصف و رقم الفصل

و عمود حالة القيد بعد تعديلها بحقل nhq 

و هذا شكل الاستعلام الجدولى

و هذه نتيجة تشغيله

 

و هذا تقرير مبنى على الاستعلام الجدولى

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

والملف مرفق نرجو الاطلاع و إبداء الرأى

mezanya-kera.accdb

ولى سؤال هام جدا

لو فرضنا - وهذا مستبعد لدينا - أنه فى إحدى السنوات لم يوجد طالب معيد فى أى صف من الصفوف الثلاثة

النتيجة : سيختفى حقل معيد من الاستعلام الجدولى

و سيظهر خطأ فى التقرير المبنى عليه

ما رأيكم فى هذه المشكلة؟

وشكرا للأستاذ جعفر

 

 

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

و الحل أيضا وجدته فى إحدى عبقرياتك

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

بهذا صار الاستعلام الجدولى حلا أمثل

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

[jjafferr]

تمام

 

والآن ، علشان تخفي الحقول الغير مطلوبة ، وتمدد/تقلص حجم الحقول ، شوف هذا الرابط

 

جعفر

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

معلومات قيمة جدا فى هذا الرابط

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

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

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

Me ("Labe

أول مرة أعرف هذه

Me

بدون نقطة

  

[jjafferr]