المساعدة في التحكم بارتفاع كائن في التقرير بحسب تغير ارتفاع تفاصيل التقرير

[metwali]

السلام عليكم

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

حيث انه لدي كائن

Box

في تفاصيل التقرير واريد ان يتغير ارتفاعه زيادة او نقصان بحسب ارتفاع قسم تفاصيل التقرير بشكل تلقائي عند فتح التقرير

انا وضعت الكود التالي

Me.Box29.Height = Me.Section(0).Height
 

ولكن اذا زاد ارتفاع التقرير لا يزيد ارتفاع الكائن

المثال في المرفقات

وشكرا لكم

 

db1.rar

[رمهان]

لا تظهر المشكلة فعرض المربع يزداد مع عرض التفصيل

[metwali]

السلام عليكم 
شكرا لك اخي العزيز

هذه صورة للتقرير وفيه المشكلة التي تظهر عندي

[metwali]

ممكن احد من الاخوان يساعدنا اكرمكم الله

[metwali]

up

[رمهان]

عزيزي

جرب استبدال امستطيل بمربع نص ثم ماوس ايمن واختيار ارسال للخلف من قائمة الموضع 

بالتوفيق

[metwali]

الف شكر لتعاونك 

ولكن نفس المشكلة 

[ابوخليل]

السلام عليكم

اخوي اعتقد ان المطلوب غير واضح تماما  لغالب الاعضاء

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

لعلك تحصل على تفاعل اكثر من اخوتك

[metwali]

الف شكر لمداخلتك استاذي ابو خليل 

وهذه صورة توضح المطلوب

 

[Gamal.Saad]

اذا كان

مربع النص المظلل و مربع النص القابل للتمدد

كلاهما يتمدد ارتفاعاً

فهذا معناه أنه بعد الحدث

Me.Box29.Height 

يأتي حدث آخر ويتخطاه وهو

me.info2 (can Grow=yes)

 

[metwali]

اخي جمال المشكلة ان المربع المظلل لا يتمدد اكثر من ارتفاع تفصيل التقرير المحدد في التصميم 

وعندما بتمدد مربع النص info لا يتمدد معه للاسفل 

 

[Gamal.Saad]

4 minutes ago, metwali said:

اخي جمال المشكلة ان المربع المظلل لا يتمدد اكثر من ارتفاع تفصيل التقرير المحدد في التصميم 

وعندما بتمدد مربع النص info لا يتمدد معه للاسفل

ربما يكون هناك حل جاهز ومتعارف عليه لهذا الأمر

وسوف ننتظر ربما يحلها أحد الأخوة

واذا لم يكن

فيمكننا أن  نحاول تمديد المربع المظلل اعتمادا على الارتفاع المتوقع للمربع

info

لكن لا أعدك بنجاح التجربة تماما

 

[metwali]

الف شكر لك اخي الكريم جمال 
لا يمكن توقع ارتفاع النص 

info

لانه يعتمد على ادخال المستخدم

 

 

ننتظر لعل الله يكرمنا بمساعدة من الاخوة الكرام

شكرا لك

[ابوخليل]

السلام عليكم

من الصباح وانا احاول تطويع المربع  وخرجت بهذه النتيجة

اتمنى  تستطيع توظيفها في برنامجك

Dim i As Integer
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 i = Me.lbl1.Height + Me.Detail.Height + Me.txt1.Height
  Me.txt1.Height = i
 Me.lbl1.Height = i
End Sub

 

fieldGrow.rar

[metwali]

الف شكر لك استاذي الكبير ابو خليل 

وجعل تعبك في ميزان حسناتك 

 

نلاحظ ان ارتفاع النص

txt1 

يتمدد بنسبة ثابتة ومها زاد طول النص لا يتمدد معه

شكرا لتعبك ما قصرت 

[Shivan Rekany]

استأذن من استاذنا الكرام السيد @ابوخليل و السيد @رمهان و السيد @Gamal.Saad

اتفضل السيد @metwali هذه الطريقة لعل يفيدك بعد عديد من المحاولات وصلت الى هذا

اولا : انا اضفت حقلين جديدين في استعلام مصدر التقرير وهما 

1 /

id1: Len([info2])

لكي نعرف عدد المسافات اي الحروف في حقل اينفو 2

2 /

dd: [id1]\98

لان كل سطر الكامل هو يساوي 98 مسافات لذا انا اضفت هذا الحقل لكي نعرف عدد الاسطر في حقل اينفو 2

ثانيا : غيرت خاصية التفصيل can Grow الى لا كما مبينة في الصورة

ثالثا : استخدمت هذا الكود في التفصيل عند الفورمات

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
        i = ((Me.dd + 1) * 0.503) * 567 
   Me.Box34.Height = i + (1.802 * 567)
End Sub

اتفضل القي نظرتا الى التقرير ووافيني بالنتيجة

db1 (2).rar

م.2005.شفان ريكاني

 

 

[Gamal.Saad]

جميل أستاذ شيفان

كان في خاطري هذه الفكرة أيضا

لذلك قلت للأستاذ متولي صاحب الموضوع

يمكننا توقع التمدد

لكن العقبة التي كانت أمامي

وما زلت أراها في ملفك المرفق

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

لكن داخل كل سجل فالتجربة ناجحة بصورة ممتازة

 

[Shivan Rekany]

الان, Gamal.Saad said:

وما زلت أراها في ملفك المرفق

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

لكن داخل كل سجل فالتجربة ناجحة بصورة ممتازة

شكرا لك سيد جمال على التنبيه

تم العلاج بواسطة اضافة سطر الى الكود

والكود سيكون كالتالي

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
        i = ((Me.dd + 1) * 0.503) * 567
    Me.Box34.Height = i + (1.802 * 567)
    Me.Detail.Height = Me.Box34.Height
End Sub

db1 (2) (2).rar

هل ممكن تعمل التجربة على المرفق

م.2010.شفان ريكاني

[Gamal.Saad]

4 minutes ago, Shivan Rekany said:

شكرا لك سيد جمال على التنبيه

تم العلاج بواسطة اضافة سطر الى الكود

والكود سيكون كالتالي

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim i As Integer
        i = ((Me.dd + 1) * 0.503) * 567
    Me.Box34.Height = i + (1.802 * 567)
    Me.Detail.Height = Me.Box34.Height
End Sub

db1 (2) (2).rar

هل ممكن تعمل التجربة على المرفق

م.2010.شفان ريكاني

ههههههه النتيجة ممتازة حتى تاريخه

كنت أريد أسوي لك أكثر من اعجاب

Like

لكن ذلك غر متاح بالمنتدى للأسف

 

[Shivan Rekany]

الان, Gamal.Saad said:

ههههههه النتيجة ممتازة حتى تاريخه

الحمد لله بنسبة لنا تم الجواب على الأسئلة لكن بعد ما وصلتنا رأيي صاحب السؤال السيد @metwali

الان, Gamal.Saad said:

كنت أريد أسوي لك أكثر من اعجاب

Like

لكن ذلك غر متاح بالمنتدى للأسف

شكرا لك سيد جمال 
شكرا لانك معنا

م.2012.شفان ريكاني

تم تعديل يونيو 9, 2017 بواسطه Shivan Rekany

[metwali]

السلام عليكم 

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

الحل ممتاز 

لكن لا استطيع الاستغناء عن خاصية

can grow = yes