كيف يمكن اختيار لون التنسيق الشرطي برمجيا

[عبد الله قدور]

السلام عليكم 

هل هناك طريقة لاختيار لون التنسيق الشرطي برمجيا 

[ابو جودي]

14 ساعات مضت, عبد الله قدور said:

السلام عليكم 

هل هناك طريقة لاختيار لون التنسيق الشرطي برمجيا 

هو انا مش قادر افهم السؤال كويس معلش لسه جاى من الشغل ومرهق شويةبس مبدئيا ياريت مرفق بسيط يا استاذ عبد الله
حضرتك توضع الكود ده حيكون على ايه نموذج ام تقرير ؟

[عبد الله قدور]

الى حين تجهيز المرفق الفكرة كالتالي

عندي جدول للعملات اريد استخدامها في جدول الحركة اليومية تمام

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

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

 

   Dim objFrc As FormatCondition
    Dim lngRed As Long
    Dim lngWhite As Long
    Dim lngBlack As Long
    Dim lngYellow As Long
    Dim lngBlue As Long
    Dim lngGreen As Long
    
    lngRed = RGB(255, 0, 0)
    lngWhite = RGB(255, 255, 255)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngBlue = RGB(0, 0, 255)
    lngGreen = RGB(0, 255, 0)
    Me![inCoinName].FormatConditions.Delete

    Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual)
    Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual, "ليرة")
    Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual, 500)

    With Me![inCoinName].FormatConditions(0)
        .BackColor = lngYellow
        .FontBold = True
        .ForeColor = lngRed
    End With

    With Me![inCoinName].FormatConditions(1)
        .BackColor = lngBlue
        .FontBold = True
        .ForeColor = lngWhite
    End With

    With Me![inCoinName].FormatConditions(2)
        .BackColor = lngGreen
        .FontBold = True
        .ForeColor = lngBlack
    End With

 

تم تعديل نوفمبر 14, 2016 بواسطه عبد الله قدور

[ابو جودي]

9 ساعات مضت, عبد الله قدور said:

الى حين تجهيز المرفق الفكرة كالتالي

عندي جدول للعملات اريد استخدامها في جدول الحركة اليومية تمام

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

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

 

   Dim objFrc As FormatCondition
    Dim lngRed As Long
    Dim lngWhite As Long
    Dim lngBlack As Long
    Dim lngYellow As Long
    Dim lngBlue As Long
    Dim lngGreen As Long
    
    lngRed = RGB(255, 0, 0)
    lngWhite = RGB(255, 255, 255)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngBlue = RGB(0, 0, 255)
    lngGreen = RGB(0, 255, 0)
    Me![inCoinName].FormatConditions.Delete

    Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual)
    Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual, "ليرة")
    Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual, 500)

    With Me![inCoinName].FormatConditions(0)
        .BackColor = lngYellow
        .FontBold = True
        .ForeColor = lngRed
    End With

    With Me![inCoinName].FormatConditions(1)
        .BackColor = lngBlue
        .FontBold = True
        .ForeColor = lngWhite
    End With

    With Me![inCoinName].FormatConditions(2)
        .BackColor = lngGreen
        .FontBold = True
        .ForeColor = lngBlack
    End With

 

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

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

مكتبة اكواد.rar

[عبد الله قدور]

10 دقائق مضت, ابا جودى said:

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

شكرا جزيلا لك اخي ابا جودي

 

[ابو جودي]

9 ساعات مضت, عبد الله قدور said:

شكرا جزيلا لك اخي ابا جودي

 

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

تم تعديل نوفمبر 14, 2016 بواسطه ابا جودى

[صالح حمادي]

ما شاء الله عليك أستاذ أبا جودي

 

[ابو جودي]

9 ساعات مضت, صالح حمادي said:

ما شاء الله عليك أستاذ أبا جودي

 

اهلا اهلا اهلا اخى الحبيب الغالى على قلبلى صالح حمادي

 

[عبد الله قدور]

السلام عليكم

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

 

[ابو جودي]

9 ساعات مضت, عبد الله قدور said:

السلام عليكم

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

 

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

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

9 ساعات مضت, عبد الله قدور said:

السلام عليكم

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

 

txt_1.BackColor = Me.txt_1.Value

Me.txt_1.Value=

0                        اسود

16777215          ابيض

255                     احمر

26367                برتقالى

32768                 اخضر

وهذا على سبيل المثال وليس الحصر
وعند حضرتك كل ارقام الالوان

 

تم تعديل نوفمبر 14, 2016 بواسطه ابا جودى

[عبد الله قدور]

السلام عليكم

هذا مثال للمشكلة التي اعاني منها الان

في جدول tblcoin ستجد فيه العملات ورقم اللون الخاص لكل عملة وسيظهر ذلك جليلا في نموذج frmcoin 

عندي الان جدول ادخال عمليات قبض او دفع بهذه العملات وهو tblInput ومعه نموذج ورقة بيانات frmInput

المطلوب تلوين عمود العملات في النموذج frminput اعتمادا على الالوان المحددة في جدول العملات tblcoin

ملاحظة : جدول frminput يجب ان يبقى ورقة بياناتت حصرا 

db2016.rar

تم تعديل نوفمبر 15, 2016 بواسطه عبد الله قدور

[ابو جودي]

10 ساعات مضت, عبد الله قدور said:

السلام عليكم

هذا مثال للمشكلة التي اعاني منها الان

في جدول tblcoin ستجد فيه العملات ورقم اللون الخاص لكل عملة وسيظهر ذلك جليلا في نموذج frmcoin 

عندي الان جدول ادخال عمليات قبض او دفع بهذه العملات وهو tblInput ومعه نموذج ورقة بيانات frmInput

المطلوب تلوين عمود العملات في النموذج frminput اعتمادا على الالوان المحددة في جدول العملات tblcoin

ملاحظة : جدول frminput يجب ان يبقى ورقة بياناتت حصرا 

db2016.rar

طيب ممكن سؤالين

الاول لو تريد frminput يجب ان يبقى ورقة بيانات  

ليه حضرتك معملتش التنسيق الشرطى مباشرة لانه سيعمل فى هذه الحالة

الثانى لو تريد frminput يجب ان يبقى ورقة بيانات  

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

[رمهان]

سؤال جديد كليا !

اعود لك بالحل ان شاء الله 

[ابو جودي]

9 ساعات مضت, رمهان said:

سؤال جديد كليا !

اعود لك بالحل ان شاء الله 

اهلا اهلا اهلا استاذى الجليل ومعلمى القدير  

اذا حضر الماء بطل التيمم

[رمهان]

1 ساعه مضت, ابا جودى said:

اهلا اهلا اهلا استاذى الجليل ومعلمى القدير  

اذا حضر الماء بطل التيمم

العفو اخي الاستاذ محمد عصام

الاخ الاستاذ عبدالله 

تفضل وبالتوفيق

 

db2016.rar

[ابو جودي]

9 ساعات مضت, رمهان said:

العفو اخي الاستاذ محمد عصام

الاخ الاستاذ عبدالله 

تفضل وبالتوفيق

 

db2016.rar

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

ولكن اسمح لى استاذى الحبيب ان اسأل سؤال على استحياء

انا فى مشاركة سابقة سالت الاستاذ عبد الله تلكك الاسئلة

طيب ممكن سؤالين

الاول لو تريد frminput يجب ان يبقى ورقة بيانات  

ليه حضرتك معملتش التنسيق الشرطى مباشرة لانه سيعمل فى هذه الحالة

الثانى لو تريد frminput يجب ان يبقى ورقة بيانات  

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

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

وللعلم انا كنت احاول باستخدام هذا الكود 
 

If Me.inCoinName = "دولار" Then inCoinName.BackColor = DLookup("coinColor", "tblcoin", "coinName = 'دولار'")
If Me.inCoinName = "دينار" Then inCoinName.BackColor = DLookup("coinColor", "tblcoin", "coinName = 'دينار'")
If Me.inCoinName = "ليرة" Then inCoinName.BackColor = DLookup("coinColor", "tblcoin", "coinName = 'ليرة'")

 

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

تم تعديل نوفمبر 15, 2016 بواسطه ابا جودى

[عبد الله قدور]

منذ ساعه, رمهان said:

الاخ الاستاذ عبدالله 

تفضل وبالتوفيق

 

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

 

[رمهان]

20 ساعات مضت, ابا جودى said:

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

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

في 11/15/2016 at 11:12, عبد الله قدور said:

ملاحظة : جدول frminput يجب ان يبقى ورقة بياناتت حصرا 

تحياتي

[عبد الله قدور]

دائما وكما في كل مرة يثبت الاخ رمهان أنه الملك

 

6 ساعات مضت, رمهان said:

تحياتي