مشكل در REPORT [بایگانی]

yassser

یک شنبه 01 دی 1387, 17:35 عصر

سلام
من چند مشكل در گزارش گيري در اكسس دارم كه با يك مثال مطرح مي كنم.
ابتدا فايلي كه ضميمه كردم دانلود كنيد و به گزارش Report1 توجه كنيد.

1. چرا در اكسس، قسمت هاي PageHeader و PageFooter در موقع اجراي گزارش در صفحات مختلف سر جاشون ثابت نميمونن؟! چكار بايد كرد؟
مثلا در اين فايل در حين طراحي گزارش، سه مستطيل در زير هم هستند ولي در هنگام اجراي گزارش اين طور نيست؟
اين مشكل بخصوص زماني كه گزارش بصورت جدولي باشد مشكل ساز است.

2. در صفحه آخر گزارش، اگر بخواهيم مستطيل ها به شكل توخالي تا انتهاي صفحه ادامه پيدا كنند و در انتها جمع صفحه زده شود، چكار بايد كرد؟

با تشكر

nabeel

یک شنبه 01 دی 1387, 21:30 عصر

yassser

یک شنبه 01 دی 1387, 22:21 عصر

سلام
جواب سوال اول
Orientation رو بهLeft To Right تغییر بدید .
جواب سوال دوم
این امکان وجود نداره ( البته اگه منظورتون رو درست متوجه شده باشم و شما جدول سازی مد نظرتون بوده باشه )

موفق باشید

سلام
ممنون از اينكه جواب سوال اول رو داديد، درست بود.
اما منظورم از سوال دوم رو در تصوير زير قرار دادم. ببينيد ميشه اينجوري درست كرد. برنامه هاي ديگه رو ديدم كه چين گزارشاتي توليد ميكنن.

با تشكر

nabeel

دوشنبه 02 دی 1387, 00:08 صبح

سلام Yassser جان

حالا با تصویر مشخص شد که شما چی میخواید .

عزیز ملتو رو سر کار میزاری !؟ , توی تصویری که فرستادی ظاهراً فایل آماده رو داری !
خب باشه من هم یه کم کمکت میکنیم :
برای گسترش عمودی فیلدهای گزارش باید یه مقدار VBA بلد باشی .
برای انجام اینکار باید از دو تا تابع زیر استفاده کنی

Function AddBox(Rep As Report, TotGrp)
TotalCount = TotalCount + 1
If TotalCount = TotalGroup Then
Rep.NextRecord = False
ElseIf TotalCount > TotalGroup And TotalCount < X Then
Rep.NextRecord = False
Rep![FieldName].Visible = False
End If
End Function

و

Function CountGroup(Rep As Report)
TotalCount = 0
Rep![FieldName].Visible = True
End Function

در ادامه ....

ولی , خب شما که ظاهراً مشکلتون حل شده پس بحثو ادامه نمیدم . ( از ظاهر امر اینجوری بر میاد )
فقط یه توضیج کلی : به جای X تعداد رکوردهایی رو قرار بده که در حالت عادی کل صفحه رو پر میکنه و ...

لطفاً فایل اصلی رو آپلود کنید , وگرنه کل تاپیک زیر سئواله دوست من .

موفق و همیشه سر فراز

yassser

دوشنبه 02 دی 1387, 00:18 صبح

سلام nabeel
راستش من اون عكس رو واسه اينكه متوجه بشي فرستادم
اونو با Paint كشيدم. :لبخند: فقط يه عكسه.
اگه ميشه توي فايل ضميمه تغييرات رو اعمال كن.
مرسي از لطفي كه داري و پاسخ ميدي.

nabeel

دوشنبه 02 دی 1387, 00:39 صبح

سلام نه نمیشه :عصبانی:

خدای ناکرده فکرای بد نکنی ولی یه دونه سئوال دارم تو رو خدا به من نخندی , چونکه من تازه کارم :لبخند:
برنامه Paint جمع هم میزنه :متفکر:
تصویری که گذاشتی عین خروجی فایلیه که من از توی تاپیک دانلود کردم , منتها بدون اون قسمت مساله که مطرح کردید .

میدونی که , اینوقت شب دیگه آدم فکرش کار نمیکنه , ولی الان یادم افتاد که من هم کدها رو توی برنامه Paint نوشته بودم ( تو رو خدا دیگه تو به من شک نداشته باش :عصبانی++: )

بگذریم , شوخی کردم .

خودت روش فکر کن
این وقت شب , وقت خوبی برای ماهیگیری با قلاب نیست . وقت یاد دادن هم نیست !

موفق باشی .
تا یه وقت دیگه و یه سر کاری دیگه ( البته از طرف شما منظورمه )
خدانگهدار و در پناه حق

yassser

دوشنبه 02 دی 1387, 00:48 صبح

سلام
من از خروجي فايل ضميمه عكس گرفتم و جداول خالي رو با paint به اون اضافه كردم. همين. كاره سختي نيست كه! مگه نه؟

yassser

سه شنبه 03 دی 1387, 11:16 صبح

سلان نبيل جان
خوبي؟
سو تفاهم پيش اومده
من عكس قبلي رو با paint درست كرده بودم ولي نه همشو
يعني از آخرين خروجي عكس گرفتم و در paint ويرايش كردم.

به هر حال ممنون ا راهنمايي هايي كه مي كني
برات آرزوي موفقيت دارم

reza850101

چهارشنبه 04 دی 1387, 11:46 صبح

دوست عزيز منهم همين مشكل رادارم اين فاينكشن را كجا ريپورت بايد قرارداد( البته من مبتدي هستم)