الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اخفاء اسطر افقية او عمودية في التقرير

مغلقمُجاب
بدأه morad2012 في 2 ديسمبر 2013 · 5 رد · 611 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

اسعد الله اوقاتكم بكل خير

 

اخواني الأعزاء،،،

 

استخدم (select case) او (IF) في اخفاء او اظهار حقل او سطر او خط ما في التقرير ،،، حسب معيار محدد ،،،

 

اذا كان لدي في التقرير اكثر من عشرين خط (Line) واريد ان اخفيها دفعة واحدة دون استخدام الطرق المذكورة كيف يتم ذلك؟؟؟

 

هل استطيع استخدام دالة ما  في عمل مثل هذا الأمر؟؟؟

 

مرفق مثال للتوضيح 

 

تحياتي

LineRep.rar

تم تعديل هذه المشاركة بواسطة morad2012 في 2 ديسمبر 2013 في 01:21

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

#2

Up

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

#3 أفضل إجابة

اخي الفاضل : مراد

 

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

 

 

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

 

قبل استخدام الكود البرمجي

 

post-15367-0-50107700-1387952151_thumb.g

 

 

بعد استخدام الكود البرمجي

 

post-15367-0-11032600-1387952201_thumb.g

 

 

 

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

 

حدث عند التنسيق لقسم التفصيل

 
Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acLine Then
        ctl.Visible = False
    End If
Next
End Sub
 
 
 
حدث عند الطباعة لقسم التفصيل
 
Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acLine Then
        ctl.Visible = False
    End If
Next
End Sub
 

 

اما اذا كانت نسخة الأكسيس انجليزيه فإستخدم هذه الأكواد في قسم  Detail_Format   و  Detail_Print

 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acLine Then
        ctl.Visible = False
    End If
Next
End Sub
 
Private Sub Detail_Print(Cancel As Integer, FormatCount As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acLine Then
        ctl.Visible = False
    End If
Next
End Sub
 
 
 
ملفك بعد التعديل
 
 
 
 
بالتوفيق
1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#4

بارك الله فيكـ اختنا الفاضلة أم عهود ،،،

 

المثال يعمل بكفاءة جزاك الله كل خير ،،، ولكن لدي سؤال؟؟؟

 

هذا يخفي جميع الاسطر دفعة واحدة ،،، كيف استطيع تحديد ما اريد اخفاؤه ؟؟؟

 

مثلاً: لدي Line1 و Line2 و Line3 ألى Line30 كيف اخفي من Line1 إلى line14 -مثلاً- وابقي الاسطر الباقية ظاهرة؟؟؟

 

::

 

+1

 

تحياتي

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

#5

اسمح لى بالرد

ربما تتفرغ أختنا لأسئلة أخرى

 

لإظهار ثلاثة الخطوط الأولى فقط عدل الكود كالآتى

وما تريد إظهاره من هذه الخطوط

اجعل خاصية"علامة" "tag" له = "n" من نافذة الخصائص

Private Sub ÊÝÕíá_Format(Cancel As Integer, FormatCount As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acLine And ctl.Tag <> "n" Then
        ctl.Visible = False
    End If
Next
End Sub

Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acLine And ctl.Tag <> "n" Then
        ctl.Visible = False
    End If
Next
End Sub

تم تعديل هذه المشاركة بواسطة أبو لميس في 25 ديسمبر 2013 في 17:35

1
#6

بارك الله فيك اخي الكريم ابو لميس

 

بابداع أختنا أم عهود ،،، وبلمستك السحرية الاخيرة المتمثلة(  بالعلامة ) تم المطلوب  :)

 

+1

 

::

 

تحياتي

اذا دعتـــك قدرتك على ظلـــم الناس   فتذكر قدرة الله عليــــــك

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…