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

مازلت انتظر يا أهل الخبرة .. البركة فيكم ...

اخي الفاضل

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

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

اذا رغبت في جعل التقرير يملء كامل الشاشة بدون اشرطة ادوات فقم بعمل ماكرو جديد واعطه اسم AutoExec ثم من خانة اجراء اختر OpenReport وسيظهر لك في الاسفل في خانة وسائط الاجراء اسم التقرير اختر اسم التقرير الخاص بك في المثال اخترنا التقرير رقم 2 REPORT2 وفي خانة العرض اختر معاينة قبل الطباعة وفي الخانة الاخيرة وضع الاطار ضعه على مربع حوار ثم قم بتشغيل الماكرو سوف يسألك قبل الفتح اجب بنعم وانظر تقريرك كيف سيصبح عند الفتح

وهذا مثال

MaxReport.rar

اختكم

زهره

انت مو تطلب وبس

انت تأمر أمر

هذا الملف على اكسيس 2000

MaxReport2000.rar

ولو تريد نحوله الى اكسيس 10000 نحوله عادي

لا تصدق امزح ما فيش حاجه اسمها اكسيس 10000 الا في كوكب الزهره

لا يوجد مشكلة اخي الكريم

اذا رغبت ان يكون ذلك عن طريق الكود فضع هذا الكود في حدث عند فتح التقرير

DoCmd.OpenReport "REPORT2", acViewPreview, "", "", acNormal

قم بتغيير اسم التقرير REPORT2 الى اسم التقرير الخاص بك

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

وهذا هو المثال تقرير رقم 2 يفتح اوتوماتيك في الوضع العادي ( احتواء الصفحة ) والتقرير اللاول بواسطة الكود

MaxReport_UP2000.rar

أختي العزيزة زهرة .. تحية طيبة وبعد:

أولاً أنا أشكرك جزيل الشكر على صبرك الجميل وتحملك في مواجهة مشاكلنا التي لا حصر لها ..

ثانياً أدعو من الله العلي القدير أن يحفظك من كل سوء وأن يوفقك في الدنيا والآخرة وأن يجعل كل أعمالك في ميزان حسناتك .. آمين

أما بالنسبة لمثالك المرفق فقد اطلعت عليه وأعتقد ان هناك مشكلة في الكود أرجو منك ملاحظته .. أنا أفضل استعمال الأكواد بدل المايكرو .. فياريت لو تتأكدي من الكود في التقرير الأول . ولك جزيل الشكر على كل شيء .

وفقك الله .

SANDANET كتب:

أختي العزيزة زهرة .. تحية طيبة وبعد:

أولاً أنا أشكرك جزيل الشكر على صبرك الجميل وتحملك في مواجهة مشاكلنا التي لا حصر لها ..

ثانياً أدعو من الله العلي القدير أن يحفظك من كل سوء وأن يوفقك في الدنيا والآخرة وأن يجعل كل أعمالك في ميزان حسناتك .. آمين

أما بالنسبة لمثالك المرفق فقد اطلعت عليه وأعتقد ان هناك مشكلة في الكود أرجو منك ملاحظته .. أنا أفضل استعمال الأكواد بدل المايكرو .. فياريت لو تتأكدي من الكود في التقرير الأول . ولك جزيل الشكر على كل شيء .

وفقك الله .

مازلت في الإنتظار ..

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

اخي الفاضل

لا يوجد اي خطأ في الكود

عموما قمت بوضع الكود في نموذج

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

النقطة الثانبة لا يمكن قتح التقرير من خلال بدء التشغيل الا من خلال الماكرو

هذا الكود يوضع في نموذج ويكون في حدث عند الفتح

النموذج اساسا يوضع في بدء التشغيل ( اشرطة قوائم الاكسيس ثم ادوات ثم بدء التشغيل - ثم اختيار اسم النموذج FORM )

DoCmd.Close
DoCmd.OpenReport "REPORT2", acViewPreview, "", "", acNormal

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

وهذا الملف بعد التعديل

MaxReport_UP2000.rar

الأخت الكريمة زهرة تحية طيبة لك شخصيا على مواصلتك ومتابعتك لنا دائما ... أما بعد

أختي الكريمة : لقد حملت المرفق وقمت بفتحه فظهرت لي نفس المشكلة السابقة ... وقد أرفقت لك صورة من رسالة الخطأ التي ظهرت ...

أنا استخدم ACCESS2000 فهل يمكن ان تكون المشكلة منه ؟؟

وشكرا لك على جهودك الجبارة

وفقك الله

اخي الفاضل يوجد لديك نقص في مكتبة ADO 3.60 لم تقم بإختيارها

حسنا لا يوجد مشكلة فقط اتبع الطريقة التالية :

1. قبل فتح قاعدة البيانات اضغط على مفتاح شفت SHIFT من لوحة المقاتيح

2. افتح الان قاعدة البيانات

3. اضغط على المفتاحين ALT + F11 من لوحة المفاتيح مع بعض في نفس الوقت

4. سيظهر لك محرر الفيجول بيسك

5. اختر من اشرطة قوائم المحرر TOOLS

6. اختر المراجع او المكتبات References

7. قم بالتأشير على المكتبة DAO 3.6 كما في الصوره

ملاحظة : كما ترى في الصوره يوجد تضليل اصفر على مكتبة اصدار الاكسيس 2003 وهو يمثل الرقم 11 بالطبع سيكون لديك 9 او 10 لابد من اختيارها

8. قم بإغلاق القاعدة واعد فتحها

بالتوفيق وارجو ابلاغي بالنتيجة

أختي العزيزة زهرة .. والله تعبتك معايا .. وأنا محرج كثيرا .. فأنتي الوحيدة التي تجاهد معنا وتسمع صوت صراخنا للإغاثة .. وبارك الله فيك في كل حرف تكتبيه لنا لغرض مساعدتنا ..

أختي العزيزة ... لقد قمت بنفس الخطوات التي أشرتي بها .. والصورة المرفقة توضح الخيارات المؤشر عليها ... لكن للأسف نفس المشكلة السابقة ...

أنا أعتقد ان المشكلة قد تكون في الجزء الأخير من الكود يعني لو جعلنا هذا الكود :

DoCmd.OpenReport "REPORT2", acViewPreview, "", "", acNormal

لو جعلناه بالشكل التالي :

DoCmd.OpenReport "REPORT2", acViewPreview

فإن التقرير سوف يفتح من غير مشاكل .. ولكن ليس على خاصية (( إحتواء )) بل بالطريقة العادية أي (( 100%)) .. والله أعلم.

أو يمكن ان يكون اصدار اكسس 2000 هو المشكلة يعني لا توجد فيه هذه الخاصية الأخيرة في الكود السابق ( acNormal , "" , "" ) .

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

وشكرا

اخي الفاضل

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

قد يكون الخلل لديك في الاكسيس 2000 والله اعلم

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

السلام عليكم

يعطيك العافية استازتنا زهرة ما شاء الله عليك

و بارك الله فيك وخلاكي للغلابا حالاتنا

اقتباس

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

يمكن انت من أكثر اللي بجاوبو على لأسئله

ما بتقصري والله

ممكن ما فهمتي عليه كويس

بانسبه للخطأ

اقتباس

DoCmd.OpenReport "REPORT2", acViewPreview, "", "", acNormal

لأنه يوجد argument زياده وضع بالخطأ

يجب ان يكون

DoCmd.OpenReport "REPORT2", acViewPreview, "", acNormal

اما بالنسبة لطلبك بشأن التقرير

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

Option Compare Database

Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public nIDEvent As Long, Err_Count As Integer

Sub FitToWindow(ByVal hWnd As Long, ByVal uMsg As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
	On Error Resume Next
	KillTimer 0, nIDEvent
	Err.Clear
	DoCmd.RunCommand acCmdFitToWindow
	If Err Then
	  Err_Count = Err_Count + 1
	  If Err_Count = 5 Then Exit Sub
	  nIDEvent = SetTimer(0, 0, 1+ (Err_Count * 5), AddressOf FitToWindow)
	End If
End Sub

وفي التقريى ضع الكود لتالي

Private Sub Report_Open(Cancel As Integer)
	nIDEvent = SetTimer(0, 0, 1, AddressOf FitToWindow)
End Sub

MaxReport2000.rar

أختي العزيزة زهرة .. جهودك جبارة ولا غبار عليها .. ولا يسعنا إلا أن نشكرك وندعوا لك بكل الخير ... فمهما كانت النتيجة لا يهم يكفينا أنك مددتي يد العون لنا ... فبارك الله فيك أينما كنتي إن شاء الله ..

أرجو منك ألا تعتذري فأنتي أهل لكل الخير هنا.. بل أنا من يجب أن يعتذر على كثرة تساؤلاتي وقلة مشاركاتي .. والتمس منك السماح يا زهرة منتدانا :lol: .

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

أخي الكريم .. لو تفضلت وقمت بوضع شرحك هذا الرائع في مشاركة رائعة ومنسقة منك في هذا المنتدى لكي يتسنى للجميع الإستفادة منها بشكل سليم .. فهذه الفكرة هي جدا ضرورية لعمل أي تقرير حتى يعرض هذا التقرير بشكل منسق وجميل ..

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

وعذرا مني على الإطالة .. وشكرا

-waf