فكرة وتطبيق تغير لون الخلفية حسب الاولوان

[Ahmed.IQ]

السلام عليكم ورحمة الله 

كان هناك شخص لديه مشروع واحببت ان اساعدة فا طلب ان اساعدة بتغير الوان الخلفية

الفكرة جميله واحببت ان اشارككم بالفكرة

المرفق تنفيذ للفكرة

 

تغير لون الخلفية.rar

[صالح حمادي]

السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة.

أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه.

أكتب الكود التالي في حدث عند الفتح للنموذج

Dim t As Integer
Dim r As Date
r = Now 
[t] = Second([r])
Me.تفصيل.BackColor = [t] * 15

و سوف تحصل على نموذج يتغير لونه بإستمرار

ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات.

بالتوفيق

[رمهان]

33 دقائق مضت, صالح حمادي said:

السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة.

أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه.

أكتب الكود التالي في حدث عند الفتح للنموذج

Dim t As Integer
Dim r As Date
r = Now 
[t] = Second([r])
Me.تفصيل.BackColor = [t] * 15

و سوف تحصل على نموذج يتغير لونه بإستمرار

ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات.

بالتوفيق

فكره اخ صالح واعتقد يمكن توظيفها لحاجات اخرى

ويمكن اختصارها

Me.Detail.BackColor = Second(Now()) * 15

 

[Ahmed.IQ]

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

السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة.

أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه.

أكتب الكود التالي في حدث عند الفتح للنموذج

Dim t As Integer
Dim r As Date
r = Now 
[t] = Second([r])
Me.تفصيل.BackColor = [t] * 15

و سوف تحصل على نموذج يتغير لونه بإستمرار

ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات.

بالتوفيق

جميلة الفكرة وشكراً لك اخي صالح

[صالح حمادي]

العفو أخ أحمد.

مشكور أخي رمهان على المشاركة و دائما كلما كان الكود أقصر كان أفضل. لكن المشكلة أن هذا الكود لم يعمل معي و الله أعلم

[رمهان]

استبدل detail  ب  section(0)  

عذرا اخ صالح  اكتب من الموبايل

[صالح حمادي]

ممتاز أخي رمهان تعودنا على إبداعك الكبير. الكود يعمل بشكل جد ممتاز. جزاك الله كل خير و نحن في هذا الشهر المبارك إن شاء الله

[رمهان]

خلني اوضح ايش الهرجه اصلا

اعتقد النسخة لديك عربي فالاكسس يفهم عربي اكثر لذلك للاشارة للتفصيل لديل تكتب

me.تفصيل

انا لدي انجليزي فيفهم الانجليزي لذلك اكتب

me.detail

ولتلاشي فهم اللغة نضع التعامل بالفهرس . 0 للتفصيل   1 للهيدر    2  لفووتر  

ويمكن كذلك اتعامل باسم الثابت acdetail

وللمزيد

https://msdn.microsoft.com/en-us/library/office/ff835642.aspx

 

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

تحياتي

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

[صالح حمادي]

نعم كلامك مضبوط أخي النسخة التي لدي عربية.

شكرا جزيلا على الإضافات