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

[أبو امين]

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

Private Sub Form_Load()
Me.Section(acDetail).BackColor = RGB(215, 255, 7) ' يمكنك تغيير قيم RGB حسب اللون الذي تريده
End Sub

كود تغيير لون النموذج 

[متقاعد]

32 دقائق مضت, أبو امين said:

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

جرب

Public Function kha(frm As Form)
frm.Section(acDetail).BackColor = RGB(215, 255, 7)
End Function

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

kha me

 

[أبو امين]

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

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

شكلرا لك وهي احسن اجابة هدية لشخصك الكريم  

[متقاعد]

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

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

امين اخي ولك بالمثل واكثر وعيدكم مبارك

[أبو امين]

استاذي الكريم و اذا كنت اريد تغيير جميع اللابل في الفورم من خلال التعديل على الكود .. هل بالامكان فعل ذلك 

يعني نفس الفكرة لكن مع label الموجودة في الفورم اي الموجودة في النموذج 

[متقاعد]

25 دقائق مضت, أبو امين said:

يعني نفس الفكرة لكن مع label الموجودة في الفورم اي الموجودة في النموذج 

اذا تقصد عنوان النموذج لكل النماذج ممكن

فقط ضع السطر التالي في نفس الموديول

frm.Caption = "اكتب هنا ما تريد"

 

[أبو امين]

استاذي لا اقصد لابل الفو رم و انما اقصد تغيير لون  etiquette داخل النموذج  المرافقة لخانة النصوص 

و اتذر عن الهائك 

[متقاعد]

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

استاذي لا اقصد لابل الفو رم و انما اقصد تغيير لون  etiquette داخل النموذج  المرافقة لخانة النصوص 

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

نعم ممكن

ونحتاج الى وضع حلقة تمر على هذه العناوين

Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acLabel Then
ctl.BackStyle = 1
ctl.BackColor = RGB(227, 227, 227)
End If
Next ctl

ولو اردنا تغيير لون الخط للعناوين ممكن نضع السطر التالي

ctl.ForeColor = vbRed

ليصبح الكود النهائي

Public Function kha(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acLabel Then
ctl.BackStyle = 1
ctl.BackColor = RGB(47, 85, 227)
ctl.ForeColor = vbRed
End If
Next ctl
frm.Section(acDetail).BackColor = RGB(215, 255, 7)
End Function

تحياتي

[متقاعد]

مرفق مثال بسيط لمن يرغب في الاطلاع

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

ولكن هذا موضوع اخر

تخياتي واكتفي بهذا القدر

Database20.accdb

[أبو امين]

الله الله عليك استاذي دمت منارة للعلم ... اضاء به الله دربك  و نور حياتك 

تم تعديل أبريل 23, 2023 بواسطه أبو امين

[أبو امين]

مثال جميل كجمال روحك 

طيب الله دنياك و اسرك بالخير و الهناء 

طلب لو ما فيش ازعاج 

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

هل يمكن اضافة : 

نوع الخط 

حجم الخط 

لنفس المثال 

[Ezril]

Docmd. system. Bord_or_Htv!.= from 1 to 7and = true  and control من الدوال!! وضع Lv?! 

اضافه لتغير عنصر الخط فقط. FontSize = 

هيك ربط شيت قوقل ويوجد اوفيس استضافه انت بدك ربط بكنترول برامج Android وios او بدك على شيت كنترول اذا هيك 2 شيت بجوال لواحد!! بتحديث هيك شو بدوو

شوف اي وحده ب د ك احب جيل طيبين 

خلنا نشوفلك موضوع هيك ما نستعجل 

[أبو امين]

اضافة : 

Dim  txt As Control 

 

 

 

ثم نضيف الكود التالي : 

ctl.Fontsize=13 

نضيف هذان الجزءان لكود الاستاذ الفاضل 

[متقاعد]

45 دقائق مضت, أبو امين said:

هل يمكن اضافة : 

نوع الخط 

حجم الخط 

نعم ممكن

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

ctl.FontName = "tahoma"
ctl.FontSize = 10

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

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

وسوف احاول ان اضع مثال لذلك

انظر للصورة المرفقة ربما تتضح فكرة نموذج القيمة التي اشرت اليها