اخفاء حقل في التقرير

[محمود ادريس]

السلام عليكم 

هل يمكن اخفاء حقل في التقرير في حالة قيمته تكون صفر بحيث لا يظهر ويتسبب طول التقرير

لانه في الصورة حقل الغياب ياخذ مساحة زائدة مما يوادي الى طول التقرير .

تحياتي للجميع

 

[محمود ادريس]

1. وجدت هذه الاكواد ربما تكون لها علاقة بالموضوع
2.  
3.  
4. :In the report's Declarations enter
5.     Option Explicit
       (Dim fBlankNext As Integer 'Flag: print next line blank? (True/False
       Dim intLine As Integer    'A line counter
6. :Select the Page Header section, and enter this in the OnFormat event procedure
       intLine = 0               'Reset line counter at top of page
       fBlankNext = False        'Never print first line of page blank
7. Now select the Detail Section's OnPrint, and enter this code without the line numbers:
   1. If PrintCount = 1 Then intLine = intLine + 1
   2. If fBlankNext Then
   3.     Me.PrintSection = False
   4.     Me.NextRecord = False
   5.     fBlankNext = False
   6. Else
   7.     Me.PrintSection = True
   8.     Me.NextRecord = True
   9.    (fBlankNext = (intLine Mod 5 = 0
   10. End If

[ابو محمد2]

السلام عليكم

نعم يمكن عمل ذلك من خلال وضع معيايار للاستعلام المكون للتقرير

  ارفق مثال وسوف تجد ما تطلب ان شاء الله

بالتوفيق

[محمود ادريس]

تحياتي ابو محمد

هذا هو المرفق

 التقرير.rar

التقرير.rar

[ابو محمد2]

السلام عليكم

تفضل اخي اعتقد هذا ما طلبت

لم اتمكن من الرفع في المنتدى

 

بالتوفيق

 

http://gulf-up.com/do.php?id=20009

[محمود ادريس]

الف شكر على الاهتمام اخ ابو محمد

ما قصده ان يتم عرض كل السجلات اما حقل الغياب فلا يظهر في الصف الا في السجل الذي به غياب

وتكون باقي السجلات ملتسقه ببغضها في التقرير لتقليل المساحة للورق في الطباعة

[كرار صبري _ أبو جنى]

السلام عليكم

 استاذ محمود تم اخفاء حقل الغياب في حالة =0

لكن جعل السجلات ملتصقة ... فلا علم لي مع الاسف

التقرير _3.rar

[ابو محمد2]

السلام عليكم

تفضل هذا احسن حل توصلت اليه ولم اتلاعب بمساحة التقرير

بالتوفيق

السلام عليكم

هناك خطاء ما في عملية الرفع

http://www.up-gulf.com/do.php?id=2974

بالتوفيق

[محمود ادريس]

السلام عليكم

كل التقدير لكل محاولات الحل من الاخوة

[محمود ادريس]

السلام عيكم من جديد

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

هل من الممكن ان يتم ذلك في الاكسس في طباعة التقرير او في شاشة التقرير .

ولكم مني كل التقدير والاحترام .

 

 

 

[jjafferr]

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

 

عملت تغيير بسيط في التقرير:

.

واستخدمت الكود التالي لإخفاء تذييل مجموعة الغياب :

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
    
    If Me.الغياب = 0 Then
        Cancel = True
    End If

End Sub

.

وفي الجدول (وللتجربة) ، اضفت 3 ايام لطاهر ، فاصبحت النتيجة:

.

جعفر

525.التقرير.accdb.zip

[محمود ادريس]

الف الف شكر لك الأخ جعفر الله يطول في عمرك

وبارك الله في علمك .

 

 

 

[jjafferr]

هلا والله

 

جعفر

[صالح حمادي]

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

نقوم بكتابة الكود التالي في منشأ التعبير لمربع النص الغياب:

=IIf([الغياب]>0;[الغياب])

و أيضا مربع التسمية نحوله إلى مربع نص و نكتب في الكود التالي:

=IIf("الغياب]>0;"الغياب])

و نغير خاصيتهما قابل للتقلص إلى نعم و كذلك التفصيل أو detail

لنتحصل على النتيجة التالية:

التقرير.rar

[محمود ادريس]

السيد صالح حمادي

شكر لإضافة المثال الرائع وهو يفي بالغرض وبكل سهوله .