تكبير الخط بالنموذج

[ابو ياسين المشولي]

السلام عليكم اخواني مشرقي المنتدى والاعضاء الكرام

لدي استفسار كيف اكبر الخط في النموذج

مثال كيف اتحكم بالخط 

عبر الكود

Me.Caption = "ابو ياسين"

 

[ابو ياسين المشولي]

للرفع

[ابو ياسين المشولي]

اين اهل الخبرة

[النجاشي]

استاذي الكريم@ابو ياسين المشولي

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

تحياتي اليك يالغالي

حجم الخط.mdb

[ابو ياسين المشولي]

شكرا لمرورك اخي ابو زاهر

انا اريد اتحكم بالخط عبر كود مختصر

كود بالنموذج

[النجاشي]

4 دقائق مضت, ابو ياسين المشولي said:

شكرا لمرورك اخي ابو زاهر

انا اريد اتحكم بالخط عبر كود مختصر

كود بالنموذج

العفو استاذي حبينا نقدم ما نستطيع

مطلوبك باذن الله تجده عند الخبراء

[ابو ياسين المشولي]

شكرا لمرورك اخي ابو زاهر

ماقصرت

[Hamdi Edlbi-khalf]

ربما هذا ما تبحث عنه 

Private Sub cmdDecreaseFont_Click()
     Me.txt.FontSize = Me.txt.FontSize - 1
End Sub

Private Sub cmdIncreaseFont_Click()
    Me.txt.FontSize = Me.txt.FontSize + 1
End Sub

 

[ابو ياسين المشولي]

1 ساعه مضت, Khalf said:

ربما هذا ما تبحث عنه 

Private Sub cmdDecreaseFont_Click()
     Me.txt.FontSize = Me.txt.FontSize - 1
End Sub

Private Sub cmdIncreaseFont_Click()
    Me.txt.FontSize = Me.txt.FontSize + 1
End Sub

 

مرورك اخي Khalf

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

اريد اتحكم بحجم خط النموذج التسميه التوضيحيه

انا عامل في النموذج عند حدث التحميل

هذا

ولكن يطلع الخط صغير وما عرفت كيف اجعله كبير

Me.Form.Caption = DLookup(" [اسم المحل] ", "الجدول") & Space(100)

 

تم تعديل أغسطس 15, 2018 بواسطه ابو ياسين المشولي

[ابو ياسين المشولي]

للرفع

[ابو ياسين المشولي]

مازال الامل يرودني

اني بجد له حل

[Hamdi Edlbi-khalf]

في August 16, 2018 at 18:11, ابو ياسين المشولي said:

 

مازال الامل يرودني

اني بجد له حل

 

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

بالرابط المرفق ستجد طريقة التفافية بعمل نموذج يغطي الشريط العلوي .. و يتم التحكم فيه بنوع و حجم و لون الخط بطبيعة الحال ..

https://bytes.com/topic/access/answers/965987-change-font-forms-caption

[ابو ياسين المشولي]

شكرا لك اخي

سوف اشوفه واعطيك خبر

[Hamdi Edlbi-khalf]

منذ ساعه, ابو ياسين المشولي said:

 

شكرا لك اخي

سوف اشوفه واعطيك خبر

 

بالتوفيق أخي الكريم 

لا تحرمنا من إنجازك القريب إن شاء الله .

[ابو ياسين المشولي]

50 دقائق مضت, Khalf said:

بالتوفيق أخي الكريم 

لا تحرمنا من إنجازك القريب إن شاء الله .

 شكرا اخي ولكن ليس هو المطلوب

هذا الكود هو يحرك النموذج

انا اريد كود يتحكم بخط تسميه توضيحيه بالنموذج

 

[Hamdi Edlbi-khalf]

تماماً أخي

فكرة العمل إنشاء نموذج يغطي الشريط العلوي للنموذج الرئيسي.

و الأمر في المنشور كان اختيار صاحب السؤال كي يحرك العنوان .

 

[ابو ياسين المشولي]

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

[ابو ياسين المشولي]

للرفع

[Shivan Rekany]

في ١٦‏/٨‏/٢٠١٨ at 00:39, ابو ياسين المشولي said:

ولكن يطلع الخط صغير وما عرفت كيف اجعله كبير

Me.Form.Caption = DLookup(" [اسم المحل] ", "الجدول") & Space(100)

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

[ابو ياسين المشولي]

منذ ساعه, Shivan Rekany said:

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

كيف اغير الشريط 

[Hamdi Edlbi-khalf]

On August 19, 2018 at 8:01 PM, Shivan Rekany said:

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

هلا تكرمت بشرح الطريقة أو الإحالة إلى رابط ؟