تصغير ارتفاع مربعات النص في تقرير بناء على شرط عدد السجلات

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

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

إذا كان عدد السجلات أكبر من 25

حجم الخط يصبح بحجم  12

وكذا ارتفاع مربع النص يصبح 0.5 سم

وإذا كان عدد السجلات أقل من 25 :

حجم الخط يصبح بحجم  14

وكذا ارتفاع مربع النص يصبح 0.63 سم

لقد حاولت محاولة متواضعة جدا بوضع كود في : التفصيل في حدث عند التنسيق في التقرير المسمى rap

وهنا تظهر الفراغات كبيرة بين الأسطر

 

لقد قمت بتصور هذا الحل لأني أحيانا اريد أن أحتوي جميع السجلات في صفحة واحدة بما فيها تذييل التقرير  (الذي فيه توقيع المسؤول المباشر و توقيع المسؤول العام)

الرجاء المساعدة والتوجيه وبارك الله فيكم

 

 

 

BASE_F.accdb

[Foksh]

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

لا اعلم ان كان هذا الموضوع سيفيدك بشيء ، ولكن الق نظرة عليه

 

وهذا الموضوع :-

 

 

 

وهذا الموضوع القديم لك أخي الكريم :-

 

 

[Foksh]

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

Private Sub Report_Open(Cancel As Integer)

    Dim lngRecordCount As Long
    Dim ctl As Control

    lngRecordCount = DCount("*", Me.RecordSource)

    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If lngRecordCount > 25 Then
                ctl.FontSize = 12
                ctl.Height = 284
            Else
                ctl.FontSize = 14
                ctl.Height = 357
            End If
        End If
    Next ctl

End Sub

 

[moho58]

تحية طيبة مباركة أخي الفاضل @Foksh

وشكرا كثيرا على سرعة الرد

بالنسبة لتغيير حجم على حسب عدد السجلات هذا لا مشكلة لي فيه ، وسبق أن طرحت موضوع لي في هذا الشأن

 

المشكلة أخي الطيب في ارتفاع مربع النص

والمسافة بين السطور

سوف أجرب الحل المقترح وأوافيك أخي

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

 

[moho58]

تحية طيبة مرة أخرى أخي  @Foksh

أعتذر عن التأخر في الرد

عندي عدة تقارير وأريد أن أطبق عليها الكود

قمت بتغير الأرتفاع مثلا  كما يلي:

    ctl.Height = 120

فظهرت المسافة بين السطور نوعاما كبيرة كما في الصورة 2

رغم أني جعلت الهوامش صفر كما في الصورة 1

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

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

[ابوخليل]

السلام عليكم

ومشاركة مع اخي @Foksh

اضف هذا السطر الى جملتك البرمجية

Me.Datail.Height = Me.Datail.Height * 0.5

لاحظ فيما لو اردت تغيير نسبة ارتفاع الحقل ... نسبة مقطع التفاصيل ستكون مماثلة لنسبة مقاس  ارتفاع الحقل 

BASE_F.rar

[Foksh]

دعماً للأفكار المطروحة ، جرب هذه الفكرة بعد ان تمت تجربتها

 

Private Sub Datail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next

If Me.Counter > 25 Then
    Me.StuName.FontSize = 12
    Me.StuName.Height = 300
    Me.Datail.Height = 300
Else
    Me.StuName.FontSize = 14
    Me.StuName.Height = 600
    Me.Datail.Height = 600
End If

End Sub

 

[moho58]

السلام عليكم

استاذنا الفاضل @ابوخليل   والأستاذ @Foksh

جزاكم الله كل الخير لتفاعلكم مع موضوعي:

بعد التجربه :

بالنسبة لكود الأستاذ foksh

لانه عندي تقارير متعددة  اطبق عليه الكود .

قمت بالتغيير كمايلي:

If Me.Counter > 25 Then
    Me.StuName.FontSize = 8
    Me.StuName.Height = 100
    Me.Datail.Height = 100

فلاحظت ان حجم الخط  لايتغيير لجميع الحقول (يتغير فقط في الاسم) وكذا الارتفاع  لا يتغير - كما في الصورة الأولى-

بالنسبة لكود الأستاذ ابوخليل

عند تغيير حجم الخط مثلا إلى 8

FF.FontSize = 8

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

وهذا ما أريده

فجزاك الله كل الخير أستاذنا

 

أخويا واستاذايا

@Foksh @ابوخليل

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