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

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


إذهب إلى أفضل إجابة Solved by Khalid Jnb,

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

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

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

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

تحياتي لكم

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

 

MM.rar

تم تعديل بواسطه محمود _ المصري
رابط هذا التعليق
شارك

اخي العزيز

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

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

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

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

تحياتي

Untitled.jpg

MM.mdb

تم تعديل بواسطه خالد سيسكو
رابط هذا التعليق
شارك

اشكرك جدا بجد 

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

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

تحياتي 

تم تعديل بواسطه محمود _ المصري
رابط هذا التعليق
شارك

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

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

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

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

Untitled.jpg.f4ce1afc895484bb2791c9e0a7fb4964.jpg

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

Untitled2.jpg.63b9bbd9bfd4750baa1bd7f124732184.jpg

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

واسف للاطالة

رابط هذا التعليق
شارك

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

بمعنى : اعمل كود يعطيني رقم اليوم في الاسبوع (او اسم اليوم) واطبق  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

 

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

تحياتي

 

mm.rar

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

تم تعديل بواسطه خالد سيسكو
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

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

 

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

السلام عليكم

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

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

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

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

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

تحياتي

 

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

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

mm - Copy.mdb

رابط هذا التعليق
شارك

السلام عليكم

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

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

تحياتي

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

تم تعديل بواسطه خالد سيسكو
رابط هذا التعليق
شارك

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

السلام عليكم

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

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

تحياتي

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

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

  • Like 1
رابط هذا التعليق
شارك

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information