طلب كود تنسيق نمو حقول التقرير

[alsihran]

السلام عليكم 

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

تأخذ جميع الحقول نفس الارتفاع 

 

 

aa.mdb

تم تعديل نوفمبر 7, 2020 بواسطه alsihran

[alsihran]

رفع

[ابوخليل]

عليكم السلام

انت وضعت الحقول في قسم (مقطع) رأس الصفحة

يمكن تحقيق مطلوبك 

ولكن تطبيق الكود داخل تفصيل التقرير  اكثر اتقانا

سأوافيك بمثالك معدلا  وسوف نطبق من خلاله الحالتين

[alsihran]

36 دقائق مضت, ابوخليل said:

انت وضعت الحقول في قسم (مقطع) رأس الصفحة

يمكن تحقيق مطلوبك 

نعم استاذ لأن التقرير الأساسي لدي يعتمد على مقطع فرز وتجميع لذلك وضعته كما هو لتتضح الصورة 

37 دقائق مضت, ابوخليل said:

سأوافيك بمثالك معدلا  وسوف نطبق من خلاله الحالتين

بالانتظار ........................!!!

[ابوخليل]

تفضل حسب طلبك

Dim fildMaxHeight As Integer
Dim ctl As Control

Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer)
Me.hed1.Height = fildMaxHeight
End Sub

Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer)
   For Each ctl In Me.Section(5).Controls
    If ctl.Height > fildMaxHeight Then
         fildMaxHeight = ctl.Height
      End If
    Next
  For Each ctl In Me.Section(5).Controls
         Me.Line (ctl.Left, ctl.Top)- _
           Step(ctl.Width, fildMaxHeight), vbWhite, BF
         Me.Line (ctl.Left, ctl.Top)- _
                Step(ctl.Width, fildMaxHeight), vbBlack, B
    Next
End Sub

 

ضبط ارتفاع جميع الخلايا_ تقرير .mdb

[alsihran]

 

 

 

 

 

شكر لك 

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

 

ولكي يكتمل المثال لي و لمن سيبحث مستقبلا كيف سيكون الأمر في مقطع التفصيل

تم تعديل نوفمبر 10, 2020 بواسطه alsihran

[ابوخليل]

4 ساعات مضت, alsihran said:

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

هذا ما يحدث بالفعل

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

لاحظ ان قيمة المتغير لن تتغير حتى يتم غلق النموذج وفتحه مرة أخرى على البيانات الجديدة .

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

ولكي يكتمل المثال لي و لمن سيبحث مستقبلا كيف سيكون الأمر في مقطع التفصيل

لن يختلف الأمر .. فقط مكان الحدث

قم بتغيير  الأحداث من رأس الصفحة  hed1  الى التفصيل Detail

[alsihran]

28 دقائق مضت, ابوخليل said:

هذا ما يحدث بالفعل

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

تضح الأمر من خلال الصور والملف المرفق

 

ا

ضبط ارتفاع جميع الخلايا_ تقرير (3).accdb

تم تعديل نوفمبر 10, 2020 بواسطه alsihran

[ابوخليل]

لا اعلم ما هي المشكلة لديك

هل لنسخة اكسس دخل في ذلك ؟؟ فأنا اعمل على الاصدار 2003 ولا يمكنني فتح المرفق الأخير

المثال عندي يعمل على اكمل وجه ، انظر الصور ( عند زيادة البيانات وحين تكون قليلة )

 

[jjafferr]

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

3 ساعات مضت, ابوخليل said:

المثال عندي يعمل على اكمل وجه ، انظر الصور ( 1. عند زيادة البيانات  2. وحين تكون قليلة )

 

انا استعمل اكسس 2010 ، 32بت ، على وندوز 10 64بت ،

وبإستعمال المرفق الاخير للأخ @alsihran :

 

1. عند زيادة البيانات (يعني البيانات الموجودة في المرفق) ، هذه النتيجة :

 

2. وحين تكون قليلة

.

 

 

والسبب في ظهور عدة اسطر للحقل بدل سطر واحد فقط ، هو تمكين اعدادات الحقول والقسم  "قابل للنمو" الى نعم ،

بينما لو جعلناها لا

.

 فالنتيجة سطر واحد فقط ، بغض النظر عن كمية البيانات :

.

جعفر

 

[alsihran]

عملت كما وضحت إلا أن الأمر لايعطي نتيجة 

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

 

والغريب لو تلاحظ أن الخلية لاتعود الى ارتفاعها الطبيعي عندما تكون البيانات قليلة كما ذكر الاستاذ @ابوخليل

كما يتضح من الصورة التي وضعتها 

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