عرض كل لون بشرط كود فى فورم

[عمر ضاحى]

السلام عليكم 

مرفق اليكم نموج لعرض الالون من جدول

كل كود فى الجدول يرمز للون

المشكله انه يعرضلى كل الاكواد بلون واحد 

انا اريد ان يعرض لى كل لون حسب الكود الذى معه فى نفس السطر

 

وشكرا جزيلا

Color.accdb

[husamwahab]

عليكم السلام

تفضل هذه المحاولة ارجو ان تكون طلبك

 

Color1.rar

[عمر ضاحى]

بسم الله ما شاء الله

هذا هو 

 

الف شكر

[husamwahab]

بالخدمة استاذ عمر

[د.كاف يار]

18 ساعات مضت, عمر ضاحى said:

السلام عليكم 

مرفق اليكم نموج لعرض الالون من جدول

كل كود فى الجدول يرمز للون

المشكله انه يعرضلى كل الاكواد بلون واحد 

انا اريد ان يعرض لى كل لون حسب الكود الذى معه فى نفس السطر

 

وشكرا جزيلا

Color.accdb 1.25 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 7 downloads

تفضل هذه مكتبة اللوان من اروع المكتبات

RGB_Color.html

[عمر ضاحى]

2 ساعات مضت, د.كاف يار said:

تفضل هذه مكتبة اللوان من اروع المكتبات

RGB_Color.html

الف شكر لحضرتك

وهذه ايضا احدى المكتبات بها اكود الالوان جاهزه للمبتدئين امثالى حابب افيد بها غيري

رابط المكتبه

 

[عمر ضاحى]

فى مشكله ظهرت معايا فى الكود

بعد ان اضفت مكتبة كاملة للالوان على اساس اجربها 

ظهر لى هذا الخطأ

 

وحدد لى الخطأ هنا 

 

فما هو السبب ؟

وهذا الكود الخاص بالاستاذ @husamwahab

 

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
  With [bxColorSub].FormatConditions
   .Delete
  End With
  rs.MoveNext
Loop
rs.MoveFirst
Do While Not rs.EOF
  With [bxColorSub].FormatConditions
    With .Add(acExpression, acEqual, "(([ID_Color])=" & rs!ID_Color & ")")
    .BackColor = rs!CodeColor.Value
    End With
  End With
  rs.MoveNext
Loop

 

[عمر ضاحى]

اضافة اخرى 

لما خففت عدد الالوان الى 49 لون اشتغل تمام 50 لا ^_^

حالف هما 49 لون 

هل ده يعني قدرات الاكسيس كده ؟

ولا هناك شئ اجهله

[husamwahab]

5 hours ago, عمر ضاحى said:

ده يعني قدرات الاكسيس كده ؟

ولا هناك شئ اجهله

السلام عليكم استاذ عمر

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

اكثر من 50 تنسيق شرطي للعنصر والقول الفصل لاساتذتنا الاجلاء

[عمر ضاحى]

8 دقائق مضت, husamwahab said:

السلام عليكم استاذ عمر

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

اكثر من 50 تنسيق شرطي للعنصر والقول الفصل لاساتذتنا الاجلاء

انا ايضا انتظر رأيهم 

طيب فى حال الوضع هكذا كيف اضيف قيد لعدد السجلات حتى لا يتخطى ال 49 سجل ولا يظهر هذا الخطأ 

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

[husamwahab]

السلام عليكم

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

لكن عيبها ان تكرر الكود بعدد الالوان التي تريدها 

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

Color2.rar

[husamwahab]

جرب ايضا هذا الكود

 

Color3.rar

[Eng.Qassim]

1 hour ago, عمر ضاحى said:

انا ايضا انتظر رأيهم 

طيب فى حال الوضع هكذا كيف اضيف قيد لعدد السجلات حتى لا يتخطى ال 49 سجل ولا يظهر هذا الخطأ 

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

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

اكيد في شي بدماغك .. والا ليس الموضوع مجرد برنامج الوان

[عمر ضاحى]

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

السلام عليكم

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

لكن عيبها ان تكرر الكود بعدد الالوان التي تريدها 

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

Color2.rar 48.57 kB · 1 download

طريقه جميله وفعاله 

والله تسلم ايدك 

وبارك الله فيك

منذ ساعه, husamwahab said:

جرب ايضا هذا الكود

 

Color3.rar 49.07 kB · 0 downloads

طريقه جميله وفعاله  ايضا 

منذ ساعه, Eng.Qassim said:

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

اكيد في شي بدماغك .. والا ليس الموضوع مجرد برنامج الوان

هههههههههه

ابدا والله 

انا بس بحاول الم باكثر قدر ممكن من المعلومات لغرضين 

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

ثانيا علشان انا ايضا اتعلم فن كيف اركب كود على كود وافهم اكثر استخدمات الاكواد 

والفائده تعم الجميع 

والهدف البعيد عاوز اعمل برنامج مجاني يساعد الناس فى اعمالهم لوجه الله 

يكون غني بالادوات والمميزات والخدمات (شئون موظفين وادارة مخازن وحسابات) ده الهدف

بس بسبب انشغالى ببعض الامور الاخري فاحيانا باتوقف عن التقدم يوم او يومين دون تحديث او اضافه لشئ معين  ^_^

تم تعديل أغسطس 21, 2021 بواسطه عمر ضاحى

[Eng.Qassim]

1 hour ago, عمر ضاحى said:

طريقه جميله وفعاله 

والله تسلم ايدك 

وبارك الله فيك

طريقه جميله وفعاله  ايضا 

هههههههههه

ابدا والله 

انا بس بحاول الم باكثر قدر ممكن من المعلومات لغرضين 

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

ثانيا علشان انا ايضا اتعلم فن كيف اركب كود على كود وافهم اكثر استخدمات الاكواد 

والفائده تعم الجميع 

والهدف البعيد عاوز اعمل برنامج مجاني يساعد الناس فى اعمالهم لوجه الله 

يكون غني بالادوات والمميزات والخدمات (شئون موظفين وادارة مخازن وحسابات) ده الهدف

بس بسبب انشغالى ببعض الامور الاخري فاحيانا باتوقف عن التقدم يوم او يومين دون تحديث او اضافه لشئ معين  ^_^

منة عارف ... والله انتو المصريين شي بجنن العقل

بموت في مصر واهل مصر