تلوين يوم الجمعة(يوم عطلة)

السلام عليكم أخي العزيز ورحمة الله وبركاته

تفضل لقد تم معالجة المشروع بناء لطلبك

ColorVacation - Khodor.rar

تبصرة : أخي العزيز لقد لاحظت مشكلة في الجدول f2 في الحقل txtDay حيث قمت حضرتك بتحديد نوع بياناته DateTime لعرض اليوم كنص وهذا خطأ لأن اليوم هو قيمة نصية لذا من المفترض أن يكون نوع الحقل نصي لكي نتمكن من استرجاع اليوم من حقل التاريخ txtDate . طبعا وقد ظهر هذا أيضا في النموذج حيث قمت بتحديد Control Source للـ txtDay هو txtDate ثم قمت بتعديل الـ Format  إلى "dddd".

أخي العزيز بعد أن طرحنا الأخطاء في البرنامج إليك الجل البسيط:

أولا نقوم بتغيير نوع البيانات للحقل txtDay إلى ShortText

ثانيا ندخل إلى النموذج وفي النموذج الفرعي نحدد مربع النص txtDate وفي الحدث AfterUpdate نضع الكود التالي:

الإعلان عن متغير
Dim x As String
تحديد قيمة المتغير 
x= Format(Me.txtDate,"ddd")
يساوي قيمة المتغير
me.txtDay = x

الاخ الفاضل/ khodor1985

فتح الله عليك ورحم الله والديك 

وجزاك الله عنا كل خير

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

طبعا ده طلبي ولكن اخي الكريم

هل يمكن تلوين يوم الجمعة بالكود مثلا بطريقة if دون التنسيق الشرطي

ان امكن اكون ممنون لك كثيرا وان لم يكن فقد تم الاستفادة وحقق طلبي

لك كل احترام وتقدير 

الاخ الفاضل هل يمكن قاعدة بتنسيق 2003 ليس عندي 2010

الاخ الفاضل /  Egyptprince

القاعدة المرفقة 2007 وليس 2010

عموما شاكر لك لتقديمك للمساعدة 

الاخوة والاخوات

ليس هناك حل لتلوين يوم الجمعة باي لون بالكود البرمجي وليس بطريقة التنسيق الشرطي

اكون شاكرا

السلام عليكم

الاخ العزيز

شاهد المرفق اتمنى ان يفيدك بشيء

مثال.rar

الاخ الكريم / SHAMAL

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

مرحبا بك 

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

اشكرك اخي 

وجزاك الله كل خير