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

[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