تلميحات سريعة في التقارير

تلوين حقول التقرير استخدم هذا الكود

Private m_RowCount As Long

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
m_RowCount = m_RowCount + 1
If m_RowCount / 2 = CLng(m_RowCount / 2) Then
Me.Detail.BackColor = 15263976 'Change value to the color you desire
Else
Me.Detail.BackColor = 14811135 'Change value to the color you desire
End If
End Sub

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

Me.DrawWidth = 10 
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B 
Me.DrawWidth = 4 
Me.Line (100, 100)-(Me.ScaleWidth - 115, Me.ScaleHeight -115), , B

نفرض أن لديك تقريرين الأول اسمه بيانات الموظف والثاني اسمه الإجازات والدورات فنطبع الأول ثم نظهر رسالة تطلب قلب الورقة وفيها زر موافق فإذا ضغط عليه تتم طباعة الوجه الثاني والذي هو الدورات .

الطريقة كما يلي : في حدث عند النقر للزر الذي يقوم بطباعة التقرير الأول نضع الكود هذا : ويعود الفضل للاستاذ فهد الدوسري ...

DoCmd.OpenReport "بيانات الموظف" 
MsgBox "أقلب الورقة لطباعة الإجازات " 
DoCmd.OpenReport "الإجازات والدورات" 

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

مشاركة أخينا عبدالمانع منقولة

عند عدم وجود بيانات

في التقرير يوضع الحدث عند ، "عدم وجود بيانات " .

    MsgBox "لا توجد بيانات لهذا التقرير. إلغاء التقرير..."
    Cancel = -1

مشاركة أخينا عبد المانع منقولة

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

أفضل الطرق في حالة النموذج المنبثق هي إخفاء النموذج المنبثق وعند غلق التقرير إظهار النموذج .. .

الطريقة كما يلي :

عند فتح التقرير في حدث عند نقر زر أمر ضع

(h)

DoCmd.OpenReport "اسم التقرير", acViewPreview
Me.Visible = False


وفي حدث عند الإغلاق للتقرير ضع السطر التالي 

Forms![اسم النموذج المنبثق].Visible = True

لمعرفة عدد السجلات في التقرير

في تذليل التقرير

=Count(*)

ولمعرفة عدد السجلات لعمود معين وليكن اسمه mark

=Count([mark])

فهذا يقوم بإظهار الخانات الغير فاضية للعمود mark

وهذا الكود لإستخراج اكير رقم موجود في العمود number

=Max([number])

وهذا لاصغر رقم من نفس العمود

=Min([number])

وهذا للمتوسط الحسابي للعمود number

=Avg([number])

للمجموع يجمع جميع الحقول للعمود number

=Sum([number])

يعطيك رقم اول سجل من نفس العمود

=First([number])

وهذا رقم آخر سجل من نفس العمود

=Last([number])

ودمتم سالمين

مرحبا بكم جميعا وابارك لكم هذه الخطوة الجميلة

ارغب في تلوين سجل وترك اخر لزيادة في الوضوع في التقرير

وقد بحثت عنه بالمنتدى ولم اجده

آمل ان تفيدوني بذلك

ولكم الشكر

في قسم تفصيل في التقرير

ضع في حدث عند التنسيق هذا الكود

If Me.تفصيل.BackColor = QBColor(14) Then
Me.تفصيل.BackColor = 16777164
Else
Me.تفصيل.BackColor = QBColor(14)
End If

صورة الكود لو ما طلع واضح

غير رقم اللون حسب الرغبة

اذا ما ضبط معاك ارفق ملفك

وشكرا

اولا السلام عليكم

عندي مشكلة في تقرير مأخوذ من استعلام جدولي

ومرفق لكم مثال توضيحي لسبب مشكلتي ارجوا منكم ان تفتحوه و تعدلوا هذة المشكلة حيث انه عند فتح التقريرتظهر رسالة تفيد بأن مايكروسوفت جت لم يتعرف على بعض المراكز التابعة للشركة كمركز (الحزم )بسبب انها لاتحتوي على بيانات في الفترة المحددة في الأستعلام وهي من 1/12/2004 الى 31/12/2004 ولكن لو تم تغير الفترة في الإستعلام كأستعرض بيانات المراكز لشهر نوفمبر اي من 1/11/2004 الى 30/11/2004 فأن التقرير يفتح معي بدون مشاكل ارجوا منكم الرد سريعا

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

وشكرا

qq.rar

الأخوه الأعزاء

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

نشكركم جميعاً على ما قدمتموه من حلول ومقترحات حول التقارير ولكن الحلو ما يكمل عند المبتدئين أمثالي ....... فمشاركاتكم جداً مفيدة ورائعه ويحتاجها كل من يتعامل مع التقارير - أذن ما المشكله - المشكله فينا احنا يالمبتدئين -

الرجاء التكرم والعطف على المبتدئين والشرح بالتفصيل عند وضع كود وتوضيح مكان وضعه وطريقته بالكامل وهل يحتاج لعمل ماكرو ( بالعربي الشرح المطول)

وذلك حتى يكتمل الحوا ياحلوين

شاكراً لكم مقدماً

طلب بسيط لو تكرمتوا

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

لا اريد ان اخرج عن الموضوع المطروح طالما انه يخص التقارير ولدي سؤال حول التقارير

لدي فورم رئيسي وفيه رقم الفاتوره واشياء تخص البيع مثل اسم الزبون وعنوانه وايضا يوجد فورم فرعي للمبييعات التي طلبها الزبون اريد في نفس الفورم اضع شرط للبحث عن تاريخ من و الى سؤاء برقم الزبون او باسم الزبون هل من مثال او كود يوضح ذلك

وجزاكم الله الخير