التحكم في حجم الخط في التقرير من خلال نموذج

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني واساتذتي الافاضل  كل عام وانتم بخير بحلول شهر رمضان المبارك 

طلبي انشاء الله يكون بسيط 

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

ولكم جزيل الشكر

[Foksh]

أخي الغالي @حسين العربى .

تفضل بزيارة هذه المشاركة لمعلمنا @ابوخليل

 

في هذه المشاركة  

[حسين العربى]

استاذي الفاضل شكرا علي اهتمامك 

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

كما هو موضح في عنوان المشاركة

وشكر لك

[Foksh]

تفضل اخي الكريم @حسين العربى

تم إضافة كود بسيط يجعل الدالة في المديول تطبق نفسها على جميع العناصر التي من النوع TextBox في الحدث عند التحميل للتقرير باستخدام هذا الكود :-

 

Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
        Call getTextPrts (ctl)
        End If
    Next ctl
End Sub

وفي المديول تم إيقاف السطر التالي

mytxt = rs!HRA

ليتم التطبيق على جميع الحقول. ، طبعاً تستطيع تطبيق نفس الفكرة على جميع النماذج والتقارير لديك.

 

وهذا الملف مع التعديلات 🤗

color All.accdb

[حسين العربى]

جزاك الله خيرا وجعلة الله في ميزان حسناتك استاذي وعلمي الفاضل 

[حسين العربى]

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

[Foksh]

6 ساعات مضت, حسين العربى said:

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

مشاركة الأستاذ @ابوخليل كانت بنفس الفكرة التي ترغب بها ،

 

يبدو أنك لم تنتبه للسطر 🤗

mytxt = rs!HRA

حيث HRA هو اسم الحقل في الجدول .

تم تعديل فبراير 19 بواسطه Foksh

[حسين العربى]

 نعم استاذي الفاضل لم انتبه  وممكن ان تقول لم افهم الكود جيدا 

لاني كنت علي عجاله 

جزاك الله خيرا  علي سعة صدرك  استاذي الفاضل🌹

تم تعديل فبراير 20 بواسطه حسين العربى
نعم

[حسين العربى]

استاذي الفاضل توجد ملوحظه مهمه طبعا بالتجربه تظهر لنا اشياء مهمة 

عند تصدير التقرير الي  PDF لايتأثر بالتغيرات التي تتم علي الخط 

مرفق ملف حضرتك  بعد عمل تصدير للطباعة الي  PDF

color All3.rar

تم تعديل فبراير 20 بواسطه حسين العربى
اوكي

[Foksh]

2 ساعات مضت, حسين العربى said:

عند تصدير التقرير الي  PDF لايتأثر بالتغيرات التي تتم علي الخط 

 

اخي الكريم التغييرات ستحدث حسب موقع الحدث في التقرير ، وانت قمت باستدعاء الكود عند تحميل التقرير ، ولكن هنا انت لم تقم بفتح التقرير حتى يتم استدعاء الأمر أو الدالة . صح ؟؟

لذا عليك أولاً بفتح التقرير قبل كود تصدير التقرير الى PDF ، ثم اغلاقه اذا لم تكن بحاجة اليه .

 

تفضل الكود

 

Badge_Output = Application.CurrentProject.Path & "\Badges.PDF"
stDocName = size
    DoCmd.OpenReport stDocName, acViewPreview
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, Badge_Output, True, , , acExportQualityPrint
    DoCmd.Close acReport, stDocName

 

[حسين العربى]

مشاء الله عليك استاذي ومعلمي الفاضل 

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

[Foksh]

وإياكم من الدعاء لكم النصيب الأكبر 

[kkhalifa1960]

بعد اذنكم اضيف مشاركة . واذا لاتريد فتح التقرير في اضافة بسيطة عند تصير التقرير .

 

'    , , , acHidden


Badge_Output = Application.CurrentProject.Path & "\Badges.PDF"
stDocName = size
    DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, Badge_Output, True, , , acExportQualityPrint
    DoCmd.Close acReport, stDocName

 

تم تعديل فبراير 20 بواسطه kkhalifa1960

[حسين العربى]

الف شكر ليك استاذي kkhalifa1960  الفاضل علي اهتمام وجزاك الله خيرا

تم تعديل فبراير 21 بواسطه حسين العربى

[حسين العربى]

لو تكرمت استاذي الفاضل 

انا حاولت طبعا قبل مارجع ليكم علي حد خبرتي ولاكن عجزت 

ازاي مثلا عندي مربعين نص كل مربع نص يكون ليه اعدادات مختلفه عن الاخر في حجم الخط واللون ونوع الخط 

مرفق لكم مثال للتطبيق عليه

color All4.rar

[safaa salem5]

كدا هتعمل نفس اللى انا عملته

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

[حسين العربى]

1 ساعه مضت, safaa salem5 said:

كدا هتعمل نفس اللى انا عملته

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

عملت كده بس ماظبطت معي الامور

[حسين العربى]

Up

[حسين العربى]

توصلت الي هذا الحل وهو ممتاز جدا وغير معقد 

https://www.officena.net/ib/topic/122422-طريقة-تغيير-نووع-الخط-ولونه-وسمكهبولد-ووضع-خط-اسفله-وحفظ-القيم-فى-حقول/?do=findComment&comment=736130

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

تم تعديل فبراير 24 بواسطه حسين العربى
الرابط خطأ

[حسين العربى]

https://www.officena.net/ib/topic/122422-طريقة-تغيير-نووع-الخط-ولونه-وسمكهبولد-ووضع-خط-اسفله-وحفظ-القيم-فى-حقول/?do=findComment&comment=736182

[UserUser2]

في 21‏/2‏/2024 at 07:15, safaa salem5 said:

كدا هتعمل نفس اللى انا عملته

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

مثال لو امكن من فضلك