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

[عمر ضاحى]

السلام عليكم 

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

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

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

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

 

وشكرا جزيلا

Color.accdbFetching info...

[husamwahab]

عليكم السلام

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

 

Color1.rarFetching info...

[عمر ضاحى]

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

هذا هو 

 

الف شكر

[husamwahab]

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

[د.كاف يار]

  في 20‏/8‏/2021 at 14:34, عمر ضاحى said:

السلام عليكم 

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

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

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

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

 

وشكرا جزيلا

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

Expand  

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

RGB_Color.html

[عمر ضاحى]

  في 21‏/8‏/2021 at 09:27, د.كاف يار said:

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

RGB_Color.html

Expand  

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

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

رابط المكتبه

 

[عمر ضاحى]

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

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

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

 

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

 

فما هو السبب ؟

وهذا الكود الخاص بالاستاذ @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]

  في 21‏/8‏/2021 at 13:11, عمر ضاحى said:

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

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

Expand  

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

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

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

[عمر ضاحى]

  في 21‏/8‏/2021 at 19:00, husamwahab said:

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

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

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

Expand  

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

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

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

[husamwahab]

السلام عليكم

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

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

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

Color2.rarFetching info...

[husamwahab]

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

 

Color3.rarFetching info...

[Eng.Qassim]

  في 21‏/8‏/2021 at 19:10, عمر ضاحى said:

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

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

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

Expand  

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

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

[عمر ضاحى]

  في 21‏/8‏/2021 at 19:36, husamwahab said:

السلام عليكم

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

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

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

Color2.rar 48.57 kB · 1 download

Expand  

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

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

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

  في 21‏/8‏/2021 at 20:08, husamwahab said:

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

 

Color3.rar 49.07 kB · 0 downloads

Expand  

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

  في 21‏/8‏/2021 at 20:12, Eng.Qassim said:

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

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

Expand  

هههههههههه

ابدا والله 

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

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

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

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

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

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

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

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

[Eng.Qassim]

  في 21‏/8‏/2021 at 20:35, عمر ضاحى said:

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

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

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

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

هههههههههه

ابدا والله 

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

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

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

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

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

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

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

Expand  

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

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