معرفة عدد الصفحات في التقرير دون فتحه

[wa7edowa7ed]

عندي فورم فيه حقل نصي وأريد أن اخزن فيه عدد الصفحات داخل تقرير معين دون الحاجة لفتح هذا التقرير!!

[ابوطالب]

اخى الكريم

لا اظن انه يمكنك معرفة عدد صفحات التقرير دون فتحه

[أبو هادي]

السلام عليكم

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

مع ملاحظة أن ينبغي عدم التعديل على التقرير لاحقا مما سيتسبب معه اختلاق عدد السجلات في الصفحة الواحدة .

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

تحياتي .

تم تعديل أبريل 5, 2005 بواسطه أبو هادي

[أمجد جمالي]

السلام عليكم ورحمة الله وبركاته

من بعد اذن الأساتذة ابو طالب وابو هادي

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

PagesCount.zip

[wa7edowa7ed]

Thank you...

Your idea is working fine except opening the report in a hidden view, this property is not available with reports. I removed this property, the report is opened and closed in millisecons.

but it seems that there is no way to no the number of pages in any report without opening it.

[أمجد جمالي]

this property is not available with reports

What do you mean by reports?

[wa7edowa7ed]

I mean you can open a form hidden but you cant open a report hidden!

[أمجد جمالي]

I mean you can open a form hidden but you cant open a report hidden!

Of course not

'-- Try to open Report(Table1) as Hiiden Mode
DoCmd.OpenReport "Table1", acViewPreview, , , acHidden

'-- Close this Report
DoCmd.Close acReport, "Table1"

Thanx

[أبو هادي]

السلام عليكم

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

ومع ذلك فالحل أعجبني .

تحياتي .

تم تعديل أبريل 6, 2005 بواسطه أبو هادي

[أمجد جمالي]

أستاذنا القدير ابو هادي شهادتك هذه انا اعتز بها

[biskra]

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

    If MsgBox("هذا التقرير يتضمن " & Me.Pages & " صفحة." & vbNewLine & _
        "هل تريد بدأ الطباعة؟    ", vbOKCancel) = vbOK Then
        DoCmd.PrintOut
    End If

    DoCmd.Close acReport, Me.Name

تم تعديل أبريل 7, 2005 بواسطه biskra

[wa7edowa7ed]

Thank u biskra,,,

This idea is so clever ,,

but It requires to open the report to read the on page event,,,

althought we can close the report directly without showing it on the screen,,, but still I'm looking for a module to return the number of pages in a report without opening it.

Thanks alot for ur help.

[rudwan]

الأخ واحد واحد

مستواك في اللغه الانكليزيه جيد , و لكن أرجو الكتابه باللغه العربيه مراعاة للأخوه الأفاضل

الذين يصعب عليهم الترجمه الى العربيه ( مع اعتذاري للجميع ) .

فالمواضيع كلها عامه و للجميع الحق في الاطلاع على المناقشات للاستفاده .

تحياتي