مشكلة في اسناد قيمة لون؟

الطريقة التي أفضلها هي استخدام دالة اللون ()RGB

في عرض التصميم اختر عنصر التحكم المطلوب؛ ذو اللون التفاحي.. وفي خصيصة لون الخلفية انقر على الزر ذي الثلاثة نقاط.. ومن أسفل صندوق الألوان اختر الوان أخري.. ثم تبويب مخصص.. ستجد رقم اللون المطابق للون التفاحي اكتب هذه الرقام بالتسلسل من الأعلى إلى الأسفل في دالة اللون بالطريقة التالية: (RGB(249,205,170

بسم الله الرحمن الرحيم

السلام عليكم

شكرا اخي القحم على سرعة اجابتك .

الطريقة التي تفضلت بها حضرتك، عملت معي بشكل جيد،

ولكن

بصراحة ان اللون ( التفاحي ) سوف تخزن قيمته في جدول ثانوي باسم Primary

وسوف يتم استدعاؤه فيما بعد

في هذه الحالة انني مضظر الى كتابة المزيد من الاسطر ( وذلك بسبب تخزين قيم اللون الثلاث على شكل نص) ومن ثم الاسترجاع لذلك النص على ثلاث مراحل ومن ثم الاسناد كما في الكود التالي :

x = DLookup("[Color_No]", "Primary")
          x1 = Left(x, 3)
          x2 = Mid(x, 5, 3)
          x3 = Right(x, 3)
          Me.dd.BackColor = RGB(x1, x2, x3)

الكود عمل معي بشكل جيد

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

وشكرا

example_23_UP.rar

الظاهر ان الحساب كان خطأ ، والقيمة الصحيحة للون هي (11193849) ولو عمل مربع نص يقرأ قيمة اللون ويخزنه فيه لوجدته هذا الرقم.

خدعة بسيطة واريح من الآلة الحاسبة والحسابات ومضمونة في النتيجة واجابة مباشرة وفي الصميم.

الظاهر ان الحساب كان خطأ ، والقيمة الصحيحة للون هي (11193849) ولو عمل مربع نص يقرأ قيمة اللون ويخزنه فيه لوجدته هذا الرقم.

خدعة بسيطة واريح من الآلة الحاسبة والحسابات ومضمونة في النتيجة واجابة مباشرة وفي الصميم.

الف الف شكر يا اخي Superhot3000

فعلا حل اكثر من رائع في حساب قيمة اللون بدون الة حاسبة

ارجو ان يكون هذا المثال فيه فائدة لجميع اخوتنا في المنتدى، سواء بما تفضل به الاخ القحم وبما تفضل به الاخ Superhot3000

و السلام عليكم

kafi كتب:

الف الف شكر يا اخي Superhot3000

فعلا حل اكثر من رائع في حساب قيمة اللون بدون الة حاسبة

نعم ماقلت.. لا فض فوك..