تنسيق حقول التقرير

[علي المصري]

لدي تقرير به العديد من الحقول لأسماء الطلاب وبياناتهم

فجعلت الحقل حر في عملية التقلص أي تسع عموديا حلى حسب محتواه

مثلا إذا كان الاسم طويل يكتب عل سطرين داخل حقل الاسم

كما بالصورة المرفقة

 

 

 

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

 

فهل إلى ذلك من سبيل

 

هل يمكن عمل هذا التنسيق لتكتمل الناحية الجمالية للتقرير

 

شكرا

[.Azhar]

منور استاذ علي تفضل هذا مثال

 

Database5.rar

[علي المصري]

منورة بيك يا استاذ أزهر العراقي وبكل من في المنتدى الغالي

شكرا

[علي المصري]

عند الاستخدام مع الملف الخاص بي ظهرت رسالة خطأ في السطر التالي

 

ctl.TopMargin = ((ctl.Height - lngHeight) / 2

 

فما الحل

أو هل فيه شيء في الاعدادات

 

شكرا

[علي المصري]

هذا الكود لا يعمل إلا اذا احتوى الحقل على سطر واحد فقط

في حالة احتواء الحق على سطرين لا يعمل ويعطى رسالة الخطأ الموضحة بالمشاركة السابقة

[.Azhar]

اهلا استاذ على جرب الكود على كل حقل على حده

[علي المصري]

كتبت الكود بالطريقة التالية ولم تفلح

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
VerticallyCenter Me.Mobil
VerticallyCenter Me.FathNa
VerticallyCenter Me.Notes
VerticallyCenter Me.SName
VerticallyCenter Me.eSiS

End Sub

[.Azhar]

طيب استاذ علي جرب هذه الكودات

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
VerticallyCenter Me.txtCustomerID2
VerticallyCenter Me.txtCustomerName2
VerticallyCenter Me.txtTestMemo2
End Sub


Private Sub VerticallyCenter(ctl As Control)
Dim lngHeight As Long

lngHeight = fTextHeight(ctl)
ctl.TopMargin = ((ctl.Height - lngHeight) / 2)

End Sub

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize

VerticallyCenter Me.Label11
VerticallyCenter Me.Label7
End Sub

[.Azhar]

هذا الكود استاذ علي

ctl.TopMargin = ((ctl.Height - lngHeight) / 2)

هو قياسات بالبكسل

[ابوخليل]

الاخ العزيز علي المصري

اذا لم تصل الى نتيجة مرضية ارفق مثالا بسيطا واجعله على صيغة mdb

لعلنا نجد طريقة توصلنا للمطلوب

[علي المصري]

إليكم المرفق المطلوب تعديله

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

Database2.rar

[.Azhar]

اهلا استاذ علي تفضل لا توجد مشكله في الكود انا اشرت لك سابقا ان الكود الذي يظهر به الخطأ هو للقياسات .

هذا هو المرفق مع الصورة

D2.rar

[ابوخليل]

جزاك الله خيرا يابو احمد على هذا الجهد والعطاء

 

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

لذا فالتعامل معها يحتاج الى عمليات خاصة خارج نطاق خصائصها

وفي مسألتك هذه نحن بحاجة الى عمليتين :

الاولى : لتوسيع الخلية عموديا ( ويجب ان تتزامن الخلايا الاخرى معها في التمدد والتقلص )

الثانية : توسيط النص عموديا سواء كان سطرا واحدا او اكثر  ( ويطبق ذلك على جميع الخلايا )

ولدي وحدتين نمطيتين تعمل كل واحدة على حدة ولم يتسنى لي الجمع بينهما

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

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

 

انظر التعديل على المرفق آمل ان يحوز على رضاك

Database4.rar

[.Azhar]

الله يبارك باستاذنا الغالي ابو خليل .

عمل رائع شكرا لمروركم الكريم .

[علي المصري]

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

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

 

المثال الذي ارفقته حضراتكم ممتاز ويعمل بكفاءة

 

شكرا جزيلا