تغيير (تصغير) حجم الخط في تقرير بناء على عدد السجلات

[moho58]

السلام عليكم

الإخوة الكرام في هذا المنتدى الرائع

في هذا المثال أريد تصغير حجم الخط في التقرير   إلى (10)  إذا كان عدد السجلات في التقرير يفوق 25 سجل

وبارك الله فيكم وربي يجازيكم خير الجزاء

 

baseF.accdb

[Foksh]

اخي الكريم ضع هذا الكود في الجزء الموجود فيه الحقول في حدث عند التنسيق :

Dim salloum As Control
For Each FontS In Report.Controls
If me.x <25 Then
FontS.FontSize = 10
Else
FontS.FontSize = 14
End If
Next FontS

حيث X هو الحقل الذي يجمع عدد السجلات في

التقرير .

 

واخبرنا بالنتيجة 😊

تم تعديل أكتوبر 4, 2023 بواسطه Foksh
إضافة صورة توضيحية

[kkhalifa1960]

مشاركة مع اساذنا @Foksh تفضل أخي .

baseF-1.accdb

[moho58]

3 ساعات مضت, Foksh said:

اخي الكريم ضع هذا الكود في الجزء الموجود فيه الحقول في حدث عند التنسيق :

Dim salloum As Control
For Each FontS In Report.Controls
If me.x <25 Then
FontS.FontSize = 10
Else
FontS.FontSize = 14
End If
Next FontS

حيث X هو الحقل الذي يجمع عدد السجلات في

التقرير .

 

واخبرنا بالنتيجة 😊

مشكور أخي وبارك الله فيك

ظهر الخطأ كما في الصورة

 

 

تم تعديل أكتوبر 4, 2023 بواسطه moho58

[moho58]

1 ساعه مضت, kkhalifa1960 said:

مشاركة مع اساذنا @Foksh تفضل أخي .

baseF-1.accdb 928 kB · 5 downloads

عمل رائع أخي الكريم  مشكور وبارك الله فيك هذا هو المطلوب بالضبط

[Foksh]

5 ساعات مضت, moho58 said:

ظهر الخطأ كما في الصورة

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