طلب تغيير لون حقل حسب كود اللون RGB

[qathi]

السلام عليكم اساتذتي واخواني الافاضل اعضاء منتدانا الغالي

حياكم الله .. طِبتَ وطابَ ممشاكَ ، وتبوَّأْتَم مِن الجنَّةِ منزلًا .. اسأل في فضل من الله وصحه وعافية

 

المطلوب كالتالي:

اولاً:
نموذج الالوان Color_F عند فتح النموذج
- يتم تلوين كل حقل حسب كود اللون RGB

ثانياً:

النموذج الرئيسي للاصناف Ma_F
عند الضغط على زر اختيار اللون يظهر نموذج Color_F يتم اختيار احد الالوان المعروضة ونسخها للحقل اللون ColorN في النموذج Ma_F
ويتغير مباشرة لون خلفية حقل اللون ColorN  حسب كوده RGB الذي تم اختيارة له

وعند ضغط زر التالي او السابق يتغير لون حقل اللون حسب كود RGB وان كان لا يوجد كود لا تظهر اي مشكلة

 

 

 

شاكرا لكم سعة صدوركم .. وعلى كل ماتقدموه لنا من وقتكم وجهدكم الثمين .. فبارك الله فيكم جميعا

 

الملف للتعديل علية

تطبيق لون.accdb

 

تم تعديل نوفمبر 24, 2022 بواسطه qathi

[TQTHAMI]

هذا مثال جميل قد يقيدك 

ارقام الالوان.rar

[qathi]

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

هذا مثال جميل قد يقيدك 

شكرا لك اخي @TQTHAMI
على ردك وكذلك على المثال الجميل الذي ارفقته

لكن المطلوب غير المثال الذي ارفقته .. ولم أعرف كيف اروض كود RGB حتى يعمل في مثالك .. فالمثال الذي ارفقته أنت يعتمد على رقم غريب ولا يتم اعتمادة في عالم التصاميم و الالوان .. ودائما اعتمادي في الألوان على كود الألوان الذي يبداء ب # وكذلك على RGB

 

اكرر شكري لك

واتمنى ان اجد الحل .. حسب المطلوب

 

[ابو جودي]

7 ساعات مضت, qathi said:

المطلوب كالتالي:

اولاً:
نموذج الالوان Color_F عند فتح النموذج
- يتم تلوين كل حقل حسب كود اللون RGB

ثانياً:

النموذج الرئيسي للاصناف Ma_F
عند الضغط على زر اختيار اللون يظهر نموذج Color_F يتم اختيار احد الالوان المعروضة ونسخها للحقل اللون ColorN في النموذج Ma_F
ويتغير مباشرة لون خلفية حقل اللون ColorN  حسب كوده RGB الذي تم اختيارة له

وعند ضغط زر التالي او السابق يتغير لون حقل اللون حسب كود RGB وان كان لا يوجد كود لا تظهر اي مشكلة

 

 

 

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

اتفضل طلبك

 

تدلل 

 

 

تطبيق لون.accdb

[qathi]

9 ساعات مضت, ابو جودي said:

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

اتفضل طلبك

 

تدلل 

 

أهلا باستاذي واخي الغالي ابو جودي

لا تكتمل الشله الا بوجودك .. اشتقنا لك واشتقنى لوجودك .. ارجو ان تحدثني عنك وعن احوالك أسأل الله أن تكون في صحة وعافيه

شكرا لك على ردك .. وعلى تعديلك الملف .. جزاك الله عني خيرا

😂

😂

تم تعديل نوفمبر 25, 2022 بواسطه qathi

[ابو جودي]

اهلا بحضرتك

اشتاقت اليكم نفسى كثيرا

هذا تصوير للمرفق

[qathi]

ابا

57 دقائق مضت, ابو جودي said:

اهلا بحضرتك

اشتاقت اليكم نفسى كثيرا

هذا تصوير للمرفق

أهلا بيك أستاذي الغالي

لي الشرف

اكلمك من الهاتف .. وفيه صعوبه واخطاء في االكتابة

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

 

ثانياً ياريت استاذي وتكمل جميلك وتظهر لون كل حقل على حده في نموذج الفرعي الألوان حسب كود RGB كما هو موضح في في الجزء الأول من الطلب في الاعلى

تم تعديل نوفمبر 25, 2022 بواسطه qathi

[متقاعد]

منذ ساعه, qathi said:

ثانياً ياريت باستاذي وتكمل جميلك ويتظهر لون كل حقل على حده في نموذج الفرعي الألوان حسب كود RGB

في النموذج المستمر

اسهل طريقة باستخدام التنسيق الشرطي للوصول للنتيجة سواء من خلال قيمة حقل

او من خلال حقل id

وهذا الطريقة التي عملتها اضفت حقل id وجعلته مخفي ثم عملت تنسيق شرطي

id=1

ولكل حقل في النموذج المستمر اغير رقم id

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

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

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

تحياتي

 

تطبيق لون(2).accdb

تم تعديل نوفمبر 25, 2022 بواسطه مبرمج متقاعد
نسيت ارفاق الملف

[ابو جودي]

وزى ما بينحكى بالمثل لكل شيخ طريقة 

واثراء للموضوع

استخدمت نفس الطريقة للنموذج المستمر 

تطبيق لون (3).accdb

[متقاعد]

24 دقائق مضت, ابو جودي said:

استخدمت نفس الطريقة للنموذج المستمر

 

طريقة رائعة كما اعتدنا من استاذنا محمد

لكن عند التركيز على الحقل يحصل تداخل في الالوان بعكس التنسيق الشرطي

انظر للصورة

تحياتي

 

تم تعديل نوفمبر 25, 2022 بواسطه مبرمج متقاعد

[ابو جودي]

2 ساعات مضت, مبرمج متقاعد said:

طريقة رائعة 

لكن عند التركيز على الحقل يحصل تداخل في الالوان بعكس التنسيق الشرطي

استاذى الجيل ومعلمى القدير الاستاذ @مبرمج متقاعد انتم الاروع 

وتم حل مشكلة موضوع تغير اللون مع التركيز ولا تزعل 

تطبيق لون (4).accdb

[متقاعد]

30 دقائق مضت, ابو جودي said:

وتم حل مشكلة موضوع تغير اللون مع التركيز ولا تزعل 

يا ابا جودي احسنت فزد

بس والله مافي زعل الله لا يجب الزعل خصوصا مع من نحب

نستخلص من الموضوع

من اراد عملها بشكل بسيط وبدون اكواد فعن طريق التنسيق الشرطي

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

تحياتي

[AbuuAhmed]

موضوع شيق،

هل جربتم اسخدام هذا الأمر؟ :

Call Application.Run("DialogColor", vbBlue)

 

[ابو جودي]

42 دقائق مضت, مبرمج متقاعد said:

من اراد عملها بشكل بسيط وبدون اكواد فعن طريق التنسيق الشرطي

اما من اراد طريقة الاكواد

هههههه تقصد اما من اراد عملها بشكل معقد وعلى طريقة المعقدين نفسيا  فليبحث عن افكار ابو جودى

حللتم اهلا استاذى القدير ومعلمى الجليل الاستاذ  @مبرمج متقاعد  
انتم اساتذتنا تعلمنا وحتى الان نتعلم منكم وعلى يديكم
فأنتم وكل اساتذتنا العظماء كالنجوم اللامعة التى تتلألأ فى منتدانا من يقتضى بأيكم يهتدى الى مراده ليجد الحل والجواب الشافى

ادامكم الله زخرا لنا ولاحبابكم وجزاكم الله عنا كل خير

[jjafferr]

57 دقائق مضت, AbuuAhmed said:

Call Application.Run("DialogColor", vbBlue)

يا ابو احمد ، خليتني انط من على الكرسي وانا اقول بسم الله ما شاء الله واصلي على النبي ، على هذاالسطر الجميل ،

وبعد رسائل الخطأ ، اكتشفت انك تنادي الدالة DialogColor ، بس نسيت ترفقها لنا 😁

'https://www.devhut.net/vba-choosecolor-api-x32-x64/

#If VBA7 Then
Private Type ChooseColor
    lStructSize               As Long
    hwndOwner                 As LongPtr
    hInstance                 As LongPtr
    rgbResult                 As Long
    lpCustColors              As LongPtr
    flags                     As Long
    lCustData                 As LongPtr
    lpfnHook                  As LongPtr
    lpTemplateName            As String
End Type
#Else
Private Type ChooseColor
    lStructSize               As Long
    hwndOwner                 As Long
    hInstance                 As Long
    rgbResult                 As Long
    lpCustColors              As Long
    flags                     As Long
    lCustData                 As Long
    lpfnHook                  As Long
    lpTemplateName            As String
End Type
#End If

Private Const CC_ANYCOLOR = &H100
'Private Const CC_ENABLEHOOK = &H10
'Private Const CC_ENABLETEMPLATE = &H20
'Private Const CC_ENABLETEMPLATEHANDLE = &H40
Private Const CC_FULLOPEN = &H2
Private Const CC_PREVENTFULLOPEN = &H4
Private Const CC_RGBINIT = &H1
'Private Const CC_SHOWHELP = &H8
'Private Const CC_SOLIDCOLOR = &H80

#If VBA7 Then
    Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long
#Else
    Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long
#End If

Public Function DialogColor(Optional lDefaultColor As Variant) As Long
    Dim CC                    As ChooseColor
    Dim lRetVal               As Long
    Static CustomColors(16)   As Long

    'Some predefined color, there are 16 slots available for predefined colors
    'You don't have to defined any, if you don't want to!
    CustomColors(0) = RGB(255, 255, 255)    'White
    CustomColors(1) = RGB(0, 0, 0)       'Black
    CustomColors(2) = RGB(255, 0, 0)     'Red
    CustomColors(3) = RGB(0, 255, 0)     'Green
    CustomColors(4) = RGB(0, 0, 255)     'Blue

    With CC
        .lStructSize = LenB(CC)
        .hwndOwner = Application.hWndAccessApp
        .flags = CC_ANYCOLOR Or CC_FULLOPEN Or CC_PREVENTFULLOPEN Or CC_RGBINIT
        If IsNull(lDefaultColor) = False _
           And IsMissing(lDefaultColor) = False Then .rgbResult = lDefaultColor    'Set the initial color of the dialog
        .lpCustColors = VarPtr(CustomColors(0))
    End With
    lRetVal = ChooseColor(CC)
    If lRetVal = 0 Then
        'Cancelled by the user
        DialogColor = RGB(255, 255, 255)    ' White -> 16777215
    Else
        DialogColor = CC.rgbResult
    End If
End Function

 

جعفر

[AbuuAhmed]

54 دقائق مضت, jjafferr said:

بس نسيت ترفقها لنا 😁

ما نسيت ، بس سطري كان طرق باب ، ولم أتلقى الجواب 🙂 

الآن بما أنك رديت على طرق الباب أضع لك المثال.

طبعا يمكن عملها بدون استخدام زر ، ممكن من حدث DblClick لصندوق اللون.

تطبيق لون_05.accdb

تم تعديل نوفمبر 25, 2022 بواسطه AbuuAhmed

[طاهر الوليدي]

السلام عليكم ورحمة الله

اخواني الافاضل تابعت موضوعكم الشيق

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

الهدف سرعة اكتشاف القيم المكررة

[جبرائيل]

استعمل عند التحميل @  dawon 

:حدث عند التحميل

: حدث عند التحديث+

'غير اسم الحقل
For Each Button_Color In Me.NColor.Value
  
     Button_Color.BackColor =RGB(Me.NColor.Value)
   
Next Button_Color

@ابو جودي

Split = "," 🔍 فاصلتين 

3!

من الخطأ ثبت! ههههههههههههههههه

[qathi]

انشغلت .. وعندما عدت الآن فتحت المنتدى .. فوجدت العجاب والابداع .. وفاتني نقاش مثير

لله دركم اساتذتي الكبار .. لكم ترفع القبعه اجلالاً واحتراما وتقديرا .. على كل هذا الابداع والتألق ..

 

فلكم مني ومن الاعضاء كل الشكر والتقدير

فجزاكم الله عنا خير الجزاء

 

جاري تجربة الملفات

 

[جبرائيل]

 

16 minutes ago, طاهر الوليدي said:

السلام عليكم ورحمة الله

اخواني الافاضل تابعت موضوعكم الشيق

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

الهدف سرعة اكتشاف القيم المكررة

3 minutes ago, جبرائيل said:

'عدل الشرط
For Each Button_Color In Me.Name.Value
  If Me.Name.Value = Me.Name.Value Then
     Button_Color.BackColor =RGB("","","")
   End IF
Next Button_Color

 

 

[qathi]

ماشاء الله والابداع .. أفتح الملفات وأشوف الابداع واللعب

ماشاء الله أستاذي @مبرمج متقاعد@ شكرا لك على بساطت فكرتك الجميلة .. بالرغم أني أميل للأكواد .. لكن شكرا على ردك وتطبيقك في الملف .. لا استغني عنها أن شاء الله فقد اعجبتني

 

لله درك @ابو جودي
ماهاذا الابداع ..والاحتراف .. حفظك الله ياستاذي الغالي .. يعجز لساني عن شكرك .. فبارك الله فيك .. يامحترف الاكواد

 

3 ساعات مضت, AbuuAhmed said:

ما نسيت ، بس سطري كان طرق باب ، ولم أتلقى الجواب 🙂 

الآن بما أنك رديت على طرق الباب أضع لك المثال.

طبعا يمكن عملها بدون استخدام زر ، ممكن من حدث DblClick لصندوق اللون.

تطبيق لون_05.accdb 524 kB · 7 downloads

شكرا لك أستاذي أبو أحمد على مثالك الرائع ..

قمت بتجربت الملف .. يقوم بتلوين خلفية الحقل .. ولا يقوم بتخزين كود اللون في الجدول .. وعند الانتقال إلى السجل التالي أو السابق يضل اللون المختار مثبت في خلفية الحقل

ارجو تعديل الملف بشكل كلي وعملي حتى تعم الفائدة للجميع وتكتمل الافكار

 

 

59 دقائق مضت, جبرائيل said:

استعمل عند التحميل @  dawon 

:حدث عند التحميل

: حدث عند التحديث+

'غير اسم الحقل
For Each Button_Color In Me.NColor.Value
  
     Button_Color.BackColor =RGB(Me.NColor.Value)
   
Next Button_Color

@ابو جودي

Split = "," 🔍 فاصلتين 

3!

 

استاذي @جبرائيل@

  لم أفهم طريقت تطبيق الكود بالرغم أني حاولت تطبيقه

فياريت تقوم بتطبيقها على ملفي .. لتعم الفائدة وتكتمل الأفكار الرائعة منكم

 

تم تعديل نوفمبر 25, 2022 بواسطه qathi

[qathi]

6 ساعات مضت, ابو جودي said:

استاذى الجيل ومعلمى القدير الاستاذ @مبرمج متقاعد انتم الاروع 

وتم حل مشكلة موضوع تغير اللون مع التركيز ولا تزعل 

تطبيق لون (4).

 

أستاذي الغالي @ابو جودي

ملاحظة ..  ارجو حل مشكله بسيطة .. عند وضع كود ( الانتقال إلى سجل جديد ) في حدث عند الفتح النموذج Ma_F فانه لا يتم الانتقال لا إلى التالي أو سابق وتظهر رسالة خطاء عند الانتقال إلى التالي .. ارجو حل هذه المشكلة

بارك الله فيك

DoCmd.GoToRecord , , acNewRec

 

[AbuuAhmed]

2 ساعات مضت, qathi said:

لا يقوم بتخزين كود اللون في الجدول .. وعند الانتقال إلى السجل التالي أو السابق يضل اللون المختار مثبت في خلفية الحقل

ارجو تعديل الملف بشكل كلي وعملي حتى تعم الفائدة للجميع وتكتمل الافكار

جرب الآن

 

 

 

 

 

تطبيق لون_07.accdb

تم تعديل نوفمبر 26, 2022 بواسطه AbuuAhmed
تبديل المرفق

[qathi]

 

43 دقائق مضت, AbuuAhmed said:

جرب الآن

 

شكرا أستاذي أبو أحمد

جربت الملف يعلق عند فتح النموذج مرة ثانية ويرفض الانتقال إلى السجل التالي أو السابق

[AbuuAhmed]

3 دقائق مضت, qathi said:

جربت الملف يعلق عند فتح النموذج مرة ثانية ويرفض الانتقال إلى السجل التالي أو السابق

جرب الآن ، أنا بدلت المرفق ، والأمور عندي ممتازة.