إعدادات التقارير

السلام عليكم

اخي لم افهم ما المطلوب في القسم الاول من السؤال؟ 130% ؟

اما القسم الثاني فهذا الكود يقوم بالعمل

ضع text box في قسم التفاصيل واجعل مواصفاته كالتالي

name = txtCTRL

Control Source = 1

Running sum = over all

وضعه مخفي لانك لا تحتاجه بالتقرير ان يظهر

قم بأََضافه الكود التالي في Format_details

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lv As Long


If TxtCTRL Mod 2 = 0 Then
    Me.Detail.BackColor = RGB(255, 255, 255)

 Else
    Me.Detail.BackColor = RGB(255, 0, 0)
 End If



End Sub

ارفق الديتابيس محول الى صيغه 97

والله الموفق

db7.zip

الخ العزيز pcExpert جزاك الله خيرا على سرعة استجابتك لحل مشكلة الجزء الثانى من المشكلة

أما الجزء الأول : فهو يتعلق بحجم ظهور التقرير عند فتحه فهو يفتح بنسبة 100% هذا هو الوضع التلقائى

أما أنا فأريد أن يفتح بنسبة 130% من حجمه أى مكبر بعض الشىء

توصلت للكود التالى

ولكن عيبه أنه يفتح على نسب معينة 75 &100 &150 & 200

أما أنا فالمطلوب أن يفتح بنسبة 130 % لأنه لو فتح بنسبة 100% سيكون صغير ولو فتح بنسبة 150% سيكون أكبر من المطلوب

أتمنى من الله أن أكون قد وفقت فى شرح المشكله ...وفى انتظار حلها

بإذن الله

معذرة نسيت إضافة الكود ها هو

DoCmd.RunCommand acCmdZoom150

السلام عليكم

اخي هذا الكود شغال شريطه ان تكون عندك القائمه هي القياسيه ولم تجري عليها تعديل

CommandBars("Print Preview").Controls(7).Text = "130"

[code]

الأخ الفاضل pc Xpert

جزاك الله خيراً على سرعة إستجابتك

وجزاك الله خيرا على صحة جوابك

وزادك الله علما

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

ويجعل هذا فى ميزان حسناتك.................أمين