اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر
  في 14‏/11‏/2016 at 11:40, عبد الله قدور said:

السلام عليكم 

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

Expand  

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

قام بنشر (معدل)

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

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

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

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

 

   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‏/11‏/2016 at 18:55, عبد الله قدور 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

 

Expand  

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

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

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

  • Like 3
قام بنشر
  في 14‏/11‏/2016 at 19:30, ابا جودى said:

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

Expand  

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

 

  • Like 1
قام بنشر (معدل)
  في 14‏/11‏/2016 at 19:42, عبد الله قدور said:

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

 

Expand  

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

تم تعديل بواسطه ابا جودى
  • Like 2
قام بنشر (معدل)
  في 14‏/11‏/2016 at 21:11, عبد الله قدور said:

السلام عليكم

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

 

Expand  

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

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

  في 14‏/11‏/2016 at 21:11, عبد الله قدور said:

السلام عليكم

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

 

Expand  
txt_1.BackColor = Me.txt_1.Value

Me.txt_1.Value=

0                        اسود

16777215          ابيض

255                     احمر

26367                برتقالى

32768                 اخضر

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

 

تم تعديل بواسطه ابا جودى
قام بنشر (معدل)

السلام عليكم

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

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

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

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

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

db2016.rarFetching info...

تم تعديل بواسطه عبد الله قدور
قام بنشر
  في 15‏/11‏/2016 at 08:12, عبد الله قدور said:

السلام عليكم

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

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

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

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

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

db2016.rarFetching info...

Expand  

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

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

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

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

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

قام بنشر
  في 15‏/11‏/2016 at 12:48, ابا جودى said:

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

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

Expand  

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

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

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

 

db2016.rar

  • Like 1
قام بنشر (معدل)
  في 15‏/11‏/2016 at 14:30, رمهان said:

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

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

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

 

db2016.rarFetching info...

Expand  

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

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

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

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

الاول لو تريد 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‏/11‏/2016 at 14:43, ابا جودى said:

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

Expand  

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

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

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

Expand  

تحياتي

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information