مطلوب التعديل على رسم خط إقفال بعد اخر سجل فى التقرير

[أحمد العيسى]

السلام عليكم

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

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

 

المطلوب أولاً: تعديل فى الكود ( مع الإشارة لذلك للمستخدم ) إذا لم يتم تحديد العدد، فسوف يتم الطباعة للكل

 

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

وبالطبع هذا إهدار للورق ، ويجب عدم وجود هذه الصفحة الفارغة

صورة آخرصفحة فى السجلات

صورة الصفحة الزائدة ( المفترض عدم وجودها )

 

تحياتى وتقديرى لكم جميعاً

 

db.mdb

[Foksh]

2 ساعات مضت, أحمد العيسى said:

المطلوب أولاً: تعديل فى الكود ( مع الإشارة لذلك للمستخدم ) إذا لم يتم تحديد العدد، فسوف يتم الطباعة للكل

بالنسبة للمطلوب الأول ، اعتقد أنه من خلال الاستعلام نسطيع تعديل الشرط ليصبح الإستعلام :-

SELECT tblMyTable.*, [ActivityMount]-[ActivityDel] AS ActivitySafi
FROM tblMyTable
WHERE (((tblMyTable.EmpNo)<=[حدد عدد السجلات المطلوبة ، إذا لم التحدد فسيتم عرض جميع السجلات])) OR ((([حدد عدد السجلات المطلوبة ، إذا لم التحدد فسيتم عرض جميع السجلات]) Is Null));

 

جربه أولاً ومن ثم انتقل الى المطلوب الثاني ،

 

 

2 ساعات مضت, أحمد العيسى said:

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

المطلب الثاني أمره يسير .. حيث في الدالة SbEndLines في المديول .. يوجد الشرط :-

ElseIf (CountTot Mod MyRec) = 0 Then

فقط عدله ليصبح :-

ElseIf (CountTot Mod MyRec) = 0 And CountTot < TotGrp Then

 

تم تعديل الإثنين at 17:41 بواسطه Foksh
إضافة حل المطلوب الثاني ، بدلاً من إضاعة الوقت

[منتصر الانسي]

بعد إذن أخي @Foksh

أعتقد أن لدى الأخ @أحمد العيسى لبس بسيط فبحسب كلامه هذا

2 ساعات مضت, أحمد العيسى said:

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

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

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

هذا مايخص أولا أما مايخص ثانيا فالمشكلة تظهر عندك ولم تظهر عندي لذلك فإنها ستكون غالبا مرتبطة بإعدادات الصفحة من حيث حجم الورقة أو الهوامش أو كليهما ففي المثال كنت قد صممت التقرير على صفحة A4 والهوامش 5 ملم (أي نصف سم) وأغلب الظن أن حجم الورق عندك سيكون Letter/ANSI A أو الهوامش أكبر من 5 ملم أو كليهما فأرجو التأكد 

تحياتي

[Foksh]

شيء ما غير صحيح في الموضوع !!!!!

 

[أحمد العيسى]

شكراً  زملائى الكرام

Foksh
منتصر الانسي

على الرد فى الموضوع

لكن بالنسبة لـ ثانياً  ، لم ألاحظ بأن الصفحة الزائدة  ليست كذلك  ، بل هى إجمالى لما سبق لكل سجلات الصفحات السابقة

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

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

غداً  ( لوصولى متأخراً واحتاج للنوم )  بإذن الله سأطالع تحديث أخى منتصر الانسي

وأجرب رد  أخى أبوفادي بوضعه فى الملف ( على فكرة يصلح لكل الإصدارات وليس 2003 فقط )

[منتصر الانسي]

19 ساعات مضت, Foksh said:

شيء ما غير صحيح في الموضوع !!!!!

ماذا تقصد أستاذ فادي ؟

[Foksh]

31 دقائق مضت, منتصر الانسي said:

ماذا تقصد أستاذ فادي ؟

هذا الذي كنت أقصده ..

21 ساعات مضت, Foksh said:

في الدالة SbEndLines في المديول .. يوجد الشرط :-

ElseIf (CountTot Mod MyRec) = 0 Then

فقط عدله ليصبح :-

ElseIf (CountTot Mod MyRec) = 0 And CountTot < TotGrp Then

بعد تحميلي للملف المرفق قرأت السطر بشرط واحد فقط .. ولا أعتقد أنني كنت غافلاً 😅

لا عليك ، قد تكون الأمور اختلطت على ذهني وتسرعت 😜