تغيير لون النموذج بناء علي تاريخ اليوم

[محمود _ المصري]

كيف يمكن تغيير لون خلفية النموذج بالكامل بلون احمر عندما يكون حقل التاريخ بالسجل الحالي يساوي تاريخ اليوم فقط

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

اتمني اني أكون وصلت الفكرة بالمطلوب

تحياتي لكم

اخوكم / محمود المصري

 

MM.rar

تم تعديل مارس 5, 2020 بواسطه محمود _ المصري

[Khalid Jnb]

السلام عليكم

تفضل اخي الكريم

اختر تاريخ اليوم ثم اضغط على زر تحديث

اتمنى ان يكون المطلوب

تحياتي

MM.rar

تم تعديل مارس 5, 2020 بواسطه خالد سيسكو

[محمود _ المصري]

شكر اخي الكريم علي تعاونك 

ولكن الملف لم يفتح 

[Khalid Jnb]

اخي العزيز

الملف يعمل عندي بصورة صحيحة 

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

هذه صورة له من جهازي 

اعلمنا النتائج

تحياتي

MM.mdb

تم تعديل مارس 5, 2020 بواسطه خالد سيسكو

[محمود _ المصري]

اشكرك جدا بجد 

تمام فتح عندي بس كان طلبي ان النموذج يعطيني اللون الأحمر للسجل اللي فيه تاريخ اليوم فقط

بمعني أوضح يكون السجل اللي في تاريخ اليوم فقط بلون احمر وعند التنقل بين السجلات من خلال زر التالي والسابق يعطيني لون النموذج الطبيعي دون هذا السجل

تحياتي 

تم تعديل مارس 5, 2020 بواسطه محمود _ المصري

[Khalid Jnb]

السىلام عليكم

اسف على التاخير

تفضل طلبك  عملته لك من خلال التنسيق الشرطي 

تحياتي

MM.mdb

 

تم تعديل مارس 5, 2020 بواسطه خالد سيسكو

[محمود _ المصري]

والله انا تعبك معايا

بس ما بقصد تنسيق شرطي للحقل

انا اقصد لون السجل ككل

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

وعند التنقل بين السجلات ويكون تاريخ اليوم بالحقل يجعل النموذج بلون احمر هكذا

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

واسف للاطالة

[Khalid Jnb]

تفضل اخي

حسب مافهمت من طلبك

اتمنى يكون المطلوب

MM-2.rar

تم تعديل مارس 5, 2020 بواسطه خالد سيسكو

[محمود _ المصري]

تسلم ايدك يا أستاذ/ خالد

هذا هو الكود المطلوب

وقد وضوعت الكود في حدث في الحالي للنموذج فقط

تحياتي

mm.rar

[مصطفى010]

هل من الممكن جعل لون خلفية النموذج يتغير مع اليوم

بمعنى : اعمل كود يعطيني رقم اليوم في الاسبوع (او اسم اليوم) واطبق  IF فإذا كان اليوم 1 (الاحد ) يكون لون الخلفية للنموذج احمر ولو كان 2 يكون اخضر ... وهكذا

برجاء الافادة لاني حاولت لم تعمل معي

حيث Text5 مربع نص يستخلص التاريخ بتنسيق اليوم (dddd) و Text7  يأخذ القيمه النصية منه

Private Sub Form_Load()
[Text7] = [Text5]

End Sub

Private Sub Form_Open(Cancel As Integer)
Dim stt As String
stt = Me.[Text7].Text
If stt = "friday" Then
Me.col.BackColor = vbRed
'ElseIf [Text7].Text = "saturday" Then
'Me.col.BackColor = vbGreen

Else
Me.col.BackColor = 15527148
Me.Refresh
End If
End Sub

 

[Khalid Jnb]

السلام عليكم

تفضل اخي الكريم طلبك

1- الطريقة الاولى

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

وكذلك عملت لك ازرار يتغير اللون عند الانتقال لليوم التالي

2- الطريقة الثانية

دالة تستخرج اليوم من التاريخ  بدوت استعلام من خلال النموذج فقط وكل يوم يقتح النموذج بلون من السيبت لغاية الخميس

تحياتي

 

mm.rar

فتح النموذج كل يوم بلون معين.rar

تم تعديل مارس 8, 2020 بواسطه خالد سيسكو

[مصطفى010]

في ٧‏/٣‏/٢٠٢٠ at 11:08, محمود _ المصري said:

تسلم ايدك يا أستاذ/ خالد

هذا هو الكود المطلوب

وقد وضوعت الكود في حدث في الحالي للنموذج فقط

تحياتي

mm.rar 17.73 kB · 3 تنزيلات

 

12 ساعات مضت, خالد سيسكو said:

السلام عليكم

تفضل اخي الكريم طلبك

هذه الطريقة الاولى

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

وكذلك عملت لك ازرار يتغير اللون عند الانتقال لليوم التالي

غدا اكمل لك الطريقة الاخرى ان شاء الله

تحياتي

 

mm.rar 21.6 kB · 0 تنزيلات

شكرا استاذ خالد انا كنت عايز اعملها تتغير تلقائي يوميا والحمد لله قمت بتعديل الملف واليك الملف بعد التعديل

mm - Copy.mdb

[Khalid Jnb]

السلام عليكم

تسلم ايدك غمل ممتاز

الملف اللي رفقته لك الثاني كمان يفتح كل يوم بلون معين 

تحياتي

فتح النموذج كل يوم بلون معين.rar

تم تعديل مارس 8, 2020 بواسطه خالد سيسكو

[مصطفى010]

2 ساعات مضت, خالد سيسكو said:

السلام عليكم

تسلم ايدك غمل ممتاز

الملف اللي رفقته لك الثاني كمان يفتح كل يوم بلون معين 

تحياتي

فتح النموذج كل يوم بلون معين.rar 23.69 kB · 0 تنزيلات

ما شاء الله جميل