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

[qathi]

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

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

 

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

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

ثانياً:

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

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

 

 

 

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

 

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

تطبيق لون.accdbFetching info...

 

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

[TQTHAMI]

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

ارقام الالوان.rarFetching info...

[qathi]

  في 24‏/11‏/2022 at 21:35, TQTHAMI said:

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

Expand  

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

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

 

اكرر شكري لك

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

 

[ابو جودي]

  في 24‏/11‏/2022 at 19:49, qathi said:

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

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

ثانياً:

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

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

 

 

Expand  

 

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

اتفضل طلبك

 

تدلل 

 

 

تطبيق لون.accdbFetching info...

[qathi]

  في 25‏/11‏/2022 at 03:03, ابو جودي said:

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

اتفضل طلبك

 

تدلل 

Expand  

 

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

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

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

😂

😂

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

[ابو جودي]

اهلا بحضرتك

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

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

[qathi]

ابا

  في 25‏/11‏/2022 at 11:08, ابو جودي said:

اهلا بحضرتك

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

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

Expand  

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

لي الشرف

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

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

 

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

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

[متقاعد]

  في 25‏/11‏/2022 at 11:15, qathi said:

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

Expand  

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

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

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

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

id=1

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

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

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

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

تحياتي

 

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

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

[ابو جودي]

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

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

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

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

[متقاعد]

  في 25‏/11‏/2022 at 14:00, ابو جودي said:

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

Expand  

 

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

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

انظر للصورة

تحياتي

 

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

[ابو جودي]

  في 25‏/11‏/2022 at 14:23, مبرمج متقاعد said:

طريقة رائعة 

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

Expand  

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

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

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

[متقاعد]

  في 25‏/11‏/2022 at 16:35, ابو جودي said:

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

Expand  

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

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

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

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

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

تحياتي

[AbuuAhmed]

موضوع شيق،

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

Call Application.Run("DialogColor", vbBlue)

 

[ابو جودي]

  في 25‏/11‏/2022 at 17:06, مبرمج متقاعد said:

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

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

Expand  

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

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

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

[jjafferr]

  في 25‏/11‏/2022 at 17:15, AbuuAhmed said:

Call Application.Run("DialogColor", vbBlue)

Expand  

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

وبعد رسائل الخطأ ، اكتشفت انك تنادي الدالة 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]

  في 25‏/11‏/2022 at 18:24, jjafferr said:

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

Expand  

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

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

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

تطبيق لون_05.accdbFetching info...

تم تعديل نوفمبر 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]

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

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

 

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

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

 

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

 

[جبرائيل]

 

  في 25‏/11‏/2022 at 21:20, طاهر الوليدي said:

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

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

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

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

Expand  

  في 25‏/11‏/2022 at 21:24, جبرائيل 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

 

Expand  

 

[qathi]

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

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

 

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

 

  في 25‏/11‏/2022 at 19:15, AbuuAhmed said:

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

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

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

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

Expand  

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

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

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

 

 

  في 25‏/11‏/2022 at 21:24, جبرائيل said:

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

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

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

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

@ابو جودي

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

3!

Expand  

 

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

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

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

 

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

[qathi]

  في 25‏/11‏/2022 at 16:35, ابو جودي said:

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

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

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

Expand  

 

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

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

بارك الله فيك

DoCmd.GoToRecord , , acNewRec

 

[AbuuAhmed]

  في 25‏/11‏/2022 at 22:22, qathi said:

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

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

Expand  

جرب الآن

 

 

 

 

 

تطبيق لون_07.accdbFetching info...

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

[qathi]

 

  في 26‏/11‏/2022 at 00:31, AbuuAhmed said:

جرب الآن

Expand  

 

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

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

[AbuuAhmed]

  في 26‏/11‏/2022 at 01:15, qathi said:

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

Expand  

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