تكرار عنوان العمود في التقرير إذا كان عمودين

[حامل المسك]

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

وتحية طيبة أيها الكرام،،

لدي تقرير به عمودين أرغب في تكرار عنوان العمود الأول في الثاني

بحيث إذا كان العمود الأول به --م------الاسم------ فيكون بجواره كذلك  --م------الاسم------

وجدته في مثال سابق لكن لم أهتد إلى الآلية

فكرما ياكرام وتفضلا يا سادة،،

مع جزيل الشكر وعظيم الامتنان

تكرار عنوان التقرير.accdb

[شايب]

14 ساعات مضت, حامل المسك said:

بحيث إذا كان العمود الأول به --م------الاسم------ فيكون بجواره كذلك  --م------الاسم------

الفكرة باعداد تقرير من عمودين او اكثر ثم تكرار حقول العنوان بعدد الاعمدة ولكن لابد من ضبط الهوامش وحجم الاعمدة بدقة

انظر الصور المرفقة

مع الاعتذار عن ارفاق مثال

 

[AbuuAhmed]

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

Private Sub Report_Open(Cancel As Integer)
    Dim col As Byte, cols As Byte
    Dim acr As Byte, acrs As Byte
    Dim ctl0 As Control, ctl1 As Control, ctl2 As Control
    
    On Error Resume Next
    
    Me.Printer.ItemLayout = acPRVerticalColumnLayout
    Me.Printer.DefaultSize = False
    
    cols = Me.Section(0).Controls.Count
    acrs = Me.Printer.ItemsAcross
    Set ctl0 = Me("col" & Format(cols, "00") & "_01")
    
    Me.Width = Me.WindowWidth
    For acr = 2 To acrs
        For col = 1 To cols
            Set ctl1 = Me("col" & Format(col, "00") & "_01")
            Set ctl2 = Me("col" & Format(col, "00") & Format(acr, "_00"))
            
            With ctl2
                .Left = ctl0.Left + ctl0.Width + IIf(col = 1, Me.Printer.ColumnSpacing, 0)
                .Top = ctl1.Top
                .Width = ctl1.Width
                .Height = ctl1.Height
                .BackColor = ctl1.BackColor
                .ForeColor = ctl1.ForeColor
                .BackStyle = ctl1.BackStyle
                .Caption = ctl1.Caption
            End With
            
            Set ctl0 = ctl2
        Next col
    Next acr
    Me.Width = 0
        
    With Me.Section(3)
        .Height = 0
        .Height = .Height + Me.col01_01.Top
    End With
    
    Set ctl0 = Nothing
    Set ctl1 = Nothing
    Set ctl2 = Nothing
End Sub

 

تكرار عنوان التقرير_02.accdb

تم تعديل يونيو 14, 2023 بواسطه AbuuAhmed

[حامل المسك]

12 ساعات مضت, شايب said:

الفكرة باعداد تقرير من عمودين او اكثر ثم تكرار حقول العنوان بعدد الاعمدة ولكن لابد من ضبط الهوامش وحجم الاعمدة بدقة

انظر الصور المرفقة

ما شاء الله تبارك الرحمن،، أنت شباب في علمك وطرحك وروعتك،، شكر @شايب

 

7 ساعات مضت, AbuuAhmed said:

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

فكرة رائدة @AbuuAhmed وضبط معي بشكل ليس رائع بل أروع من الرائع،،

إذا كان بالإمكان شرح عمل الكود لتعم الفائدة ويمكن الإفادة منه بشكل موسع،،

 

كلمات الشكر لا تفيكم حقكم،، لكم صادق الدعوات،،