مطلوب تنسيق الخط سميك (bold) و رفيع

[haitham elareny]

formattext.accdb

اريد ان يظهر اسم الجهاز متبوعا ببلد المنشأ فى التقرير ويكون تنسيق اسم الجهاز سميك (bold)وبلد المنشأ رفيع

تم تعديل مارس 31, 2022 بواسطه ابوخليل
تنسيق العنوان

[ابوخليل]

الامر يسير جدا

تنسيق مثل التنسيقات في وورد

formattext2.accdb

[haitham elareny]

ليس اهذا هو المطلوب..............المطلوب دمج النصين داخل حقل واحد ويكون اسم الجهاز بخط bold وبلد المنشأ بخط رفيع  حيث انه فى حالة كانا فى حقلين منفصلين يظهر مسافات فارغة بسبب ان ليس طول الحقول متساوية

ليس اهذا هو المطلوب..............المطلوب دمج النصين داخل حقل واحد ويكون اسم الجهاز بخط bold وبلد المنشأ بخط رفيع  حيث انه فى حالة كانا فى حقلين منفصلين يظهر مسافات فارغة بسبب ان ليس طول الحقول متساوية....

[haitham elareny]

يتم دمج الحقلين من خلال الاستعلام ولكن كيف يتم التحكم فى تنسيق حقل اسم الجهاز 

formattext.accdb

[ابوبسمله]

السلام عليكم ورحمه الله وبركاته

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

مشاركه مع معلمى العزيز وشيخنا الجليل @ابوخليل جزاه الله خيرا وبارك الله لنا فيه وفى جميع اخواننا واساتذتنا الافاضل الذين نتعلم منهم كل يوم 💐

نعم يمكن ذلك ولكن ليس بالطريقه العاديه ولكن باستخدام الحقل Rich text ولفعل ذلك ادرجنا حقل نص عادى ومن التبويب بيانات ومن خاصيه تنسيق النص نختار نص منسق

وفى جزء التفصيل وعند حدث عند التنسيق وضعنا الكود التالى

Me.txtFull = "<font size= 4><b>" & Me.devicename & "</b></font>"
Me.txtFull = Me.txtFull & " " & Me.country

وطريقه عرض التقرير معاينه قبل الطباعه

بالتوفيق

formattext.accdb

[haitham elareny]

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

[haitham elareny]

طلب اخير كيف يمكن التحكم فى حجم خط حقل country ليكن font size=9 ,حجم الخط device name =11 مثلا ولكم جزيل الشكر ولو أمكن شرح الكود للاستفادة وبارك الله فيكم

أ

[ابوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا خيرا

بالنسبه للتحكم فى حجم الخط للبلد

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me.txtFull = "<font size=4><b>" & Me.devicename & "</b></font>"
    Me.txtFull = Me.txtFull & " " & "<font size=2>" & Me.country & "</font>"
End Sub

وغير الارقام لتصل للرقم المناسب فى برنامجك

اما عن شرح الكود

فهو ببساطه لدمج الحقلين  devicename و country مع بعض ولكن استخدمنا اولا الحقل من نوع Rich text كما شرحنا بالسابق من اجل استخدام تنسيقات الهتمل للتحكم فالخط من حيث الحجم وخلافه

ويلزمك الاطلاع ع لغه الهتمل للمزيد من التحكم

بالتوفيق