دمج الخلايا فى التقرير

[Mostafa Elmahmoudy]

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

أرجوا منكم المساعده 

هل من الممكن دمج الخلايا التى تحتوى على نفس القيمة فى التقرير مثل ما هو موضح فى الصورة ؟

 

و لكم جميعاً جزيل الشكر

 

[jjafferr]

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

 

عادة نستخدم الاستعلام لعمل مجاميع ، وبالتالي تكون المعلومة جاهزة وبدون تكرار في التقرير ،

او نستخدم مجاميع التقرير (في اسفل التقرير) 

.

جعفر

[Mostafa Elmahmoudy]

مشكور استاذنا و معلمنا

[ابو جودي]

في ٨‏/١١‏/٢٠٢٠ at 16:04, Mostafa Elmahmoudy said:

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

أرجوا منكم المساعده 

هل من الممكن دمج الخلايا التى تحتوى على نفس القيمة فى التقرير مثل ما هو موضح فى الصورة ؟

 

و لكم جميعاً جزيل الشكر

 

اتفضل يا استاذ @Mostafa Elmahmoudy

تفريبا ده طلب حضرتك

14 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

عندنا تقرير بهذه الطريقة :

.

ونريد نعملة بهذه الطريقة :

.

نعمل التقرير ، ثم نعمل مجاميع لأي من الحقول ، ثم نعمل حقل ليحسب عدد السجلات للمجموعة :

.

ثم نرسل هذه البيانات للوحدة النمطية Box_Lines التي تقوم بعمل البرواز :

نرسل اسم الحقل المطلوب عمل المربع الكبير حوله ، ولون الخط ، ولون البرواز ، وعدد سجلات المجموعة :

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    'Call Box_Lines(rpt name,fld Name , Text Fore color, Border Color, Group_Record_Count)
    'Call Box_Lines(me.Name  , "save" , vbBlack        , vbBlack           , Me.save_Footer)
    Call Box_Lines(me.Name  , "save"  , RGB(16, 37, 63), RGB(221, 217, 195), Me.save_Footer)
    
End Sub

.

وتقوم الوحدة النمطية بعمل المطلوب :

Option Compare Database
Option Explicit

    Dim str_Text As String
    Dim int_Counter As Integer
'

Public Function Box_Lines(rpt As String, fld As String, rgb_Fore As Long, rgb_Border As Long, Group_Record_Count As Integer)
    
    
    Dim ctl As Control
    
    Set ctl = Reports(rpt)(fld)
    
    ctl.BorderColor = vbWhite
    
    If ctl <> str_Text Then
        str_Text = ctl
        int_Counter = 1
    End If
    

    
    If int_Counter = 1 And int_Counter = Group_Record_Count Then
        'Only One Record
                
        ctl.ForeColor = rgb_Fore    'Text ForeColor
        
        Reports(rpt).Line (ctl.Left, ctl.Top)-(ctl.Width, ctl.Height), rgb_Border, B       'a Box
                
    ElseIf int_Counter = 1 Then
        'First Record
        
        ctl.ForeColor = rgb_Fore    'Text ForeColor
        
        Reports(rpt).Line (ctl.Left, ctl.Top)-(ctl.Width, ctl.Top), rgb_Border        'Top Line
        Reports(rpt).Line (ctl.Left, ctl.Top)-(ctl.Left, ctl.Width), rgb_Border       'Left Line
        Reports(rpt).Line (ctl.Width, ctl.Top)-(ctl.Width, ctl.Height), rgb_Border    'Right Line
        
    ElseIf int_Counter = Group_Record_Count Then
        'Last Record
        
        ctl.ForeColor = vbWhite
        
        Reports(rpt).Line (ctl.Left, ctl.Height)-(ctl.Width, ctl.Height), rgb_Border  'Bottom Line
        Reports(rpt).Line (ctl.Left, ctl.Top)-(ctl.Left, ctl.Width), rgb_Border       'Left Line
        Reports(rpt).Line (ctl.Width, ctl.Top)-(ctl.Width, ctl.Height), rgb_Border    'Right Line
        
    Else
        'Rest
        
        ctl.ForeColor = vbWhite
        
        Reports(rpt).Line (ctl.Left, ctl.Top)-(ctl.Left, ctl.Width), rgb_Border       'Left Line
        Reports(rpt).Line (ctl.Width, ctl.Top)-(ctl.Width, ctl.Height), rgb_Border    'Right Line
        
    End If
    
    int_Counter = int_Counter + 1

    
End Function

.

جعفر

1293.Report_Draw_BoxLine.mdb.zip 37.16 kB · 9 downloads

1293.Report_Draw_BoxLine.mdb

[فؤاديحيى]

جزاك الله خيرا اخي واستاذي وفكرة اكثر من رائعة كنت ابحث عنها 

لكن هل بالامكان تطبيقها على اكثر من خلية في التقرير كما في الصورة والمرفق

2020110.mdb