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

تم عمل هذا

Private Sub اسم_ودرجة_وللون_اللون__GotFocus()
 اسم_ودرجة_وللون_اللون_.BackColor = vbكود_اللون
End Sub

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

السلام عليكم 

جرب المرفق بعد إجراء بعد التعديلات عليه كما انه تم اضافة 560 لون حسب نظام الاكسس في الجدول بدل السابق

miro.rar

شكرا ياخي على المداخله

ولكني اريد اللون يظهر بالتكست بوكس وليس بليبل

بارك اتلله بك

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

amir_adam87 كتب:

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

MIRO55.JPG

ارجو الافاده بارك الله بكم

لا يوجد اجابه بارك الله بكم

ممكن تجرب المرفق 

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

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

miro.rar

اشكراك اخ mtak33 على المدخله الجميله ولكن هل من كود يثبت تلك الالوان امام ارقامها مثل ما في المرف شيت_الاكسل ام انها مستحيل

بارك الله بك

الجمد لله الذى وفقنى لما اراه حل لطلبك

ارجو ان يكون هو المطلوب 

و لا تنسانا من صالح الدعاء

color-convert.rar

اخي امير

يمكنك عمل الذي تريده ، اذا حولت صيغة قاعدة البيانات الى صيغة 2007 ، والنتيجة كما ترى:

وطريقة العمل:

1. حول الصيغة الى 2007 ، وافتح البرنامج من جديد ،

2. في النموذج ، انا اضفت حقل iColor ، وجعلت Text Format ، بدلا عن Plain Text ، غيرتها الى Rich Text ، والذي هو اساسا في الاكسس عبارة عن حقل HTML بصلاحيات ضيقة:

ثم في Control source الحقل iColor ، عملت هذا الـ HTML كود:

="<div><font size=7 color=black style=" & "BACKGROUND-COLOR:" & [كود_اللون] & ">" & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & "</font></div>"

وقد اخذ مني هذا الكود الوقت الطويل للوصول اليه ، وذلك بسبب عدم معرفتي ببرمجة HTML :(

السبب اني استطعت ان اعمل هذا ، هو بسبب HTML كود ، والذي لا يوجد في صيغة اكسس اقل من 2007 ،

وقد ، قد ، يمكنك عمل هذا بصيغة 2003 اذا استخدمت كائن Internet Browser ، ثم تضيف فيه مثل الكود اعلاه ، ولكني لا اعرف النتيجة :(

جعفر

151.Background_Color.accdb.zip

عمل جميل اخي mtak33  :plusone:

بارك الله بكم يا اخوا ولكن البرنامج لدي  يحتوي على اكثرمن 375 جدول والكثير من الاستعلامات والشاشات وهوا على اكسس 2003 تم تحويل قاعدة البيانات الى اس كيو ال ونجح ذلك والحمد الله اما الشاشات والاستعلامات والتقارير والوحدات النمطه هي اكسس 2003 وعند التحويل الى اكسس2007 اخاف من اتلاف الشاشات حيث النظام يعمل على الشبكه في العمل لدينا

بارك الله بكم على تعاونكم معنا  

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

بارك الله بكم

اخي امير

المشاركة رقم 11 للاخ mtak33 هي الافضل لك ، فاستخدمها على بركة الله :)

جعفر