تغيير خلفية التقرير حسب اليوم

[sevgilim]

السلام عليكم

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

ولكم مني جزيل الشكر 

[kanory]

وعليكم السلام ... ممكن مرفق مبسط للعمل عليه

[sevgilim]

السلام عليكم kanory 

ارفقت الملف

اشكرك

 

pass.mdb

[عبدالله كاظم]

وعليكم السلام

بعد اذن الأخ @kanory

جرب الكود التالي في حدث On Load أو عند التحميل للتقرير

    Select Case Format(Date, "dddd")
        Case "Sunday"
            Me.مربع_خانة48.BackColor = RGB(156, 216, 255)

        Case "Monday"
            Me.مربع_خانة48.BackColor = RGB(214, 204, 172)

        Case "Tuesday"
            Me.مربع_خانة48.BackColor = RGB(214, 172, 213)

        Case "Wednesday"
            Me.مربع_خانة48.BackColor = RGB(172, 214, 173)

        Case "Thursday"
            Me.مربع_خانة48.BackColor = RGB(214, 175, 172)

        Case "Friday"
            Me.مربع_خانة48.BackColor = RGB(174, 172, 214)

        Case "Saturday"
            Me.مربع_خانة48.BackColor = RGB(244, 122, 237)

    End Select

 

[kanory]

أشكرك أخي عبدالله وهذه طريقة أخرى

pass.mdb

[ابو جودي]

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

اولا استاذ @عبدالله كاظم واستاذ @kanory جزاكم الله خيرا وجعلكم الله سباقون بالخيرات 

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

تظهر المشكله عند الضغط على زر الامر

التقرير الاول تغيير الخلفية

 

اترككم مع المرفق

 

rpt coloer.mdb

تم تعديل مايو 26, 2018 بواسطه ابا جودى

[kanory]

أشكرك أخي @ابا جودى التقريران يعملان بكفاءة عالية لدي ... ما هي المشكلة

[عبدالله كاظم]

رائع أخوي @ابا جودى المرفق يعمل بشكل بدون مشاكل

 

إما إذا كان قصدك في مرفق الأخ السائل فالـ Name حق Detail في في ملفه هو [تفاصيل] تقريبا

تم تعديل مايو 26, 2018 بواسطه عبدالله كاظم

[ابو جودي]

التقرير الاول عندى يغير الخلفية تبعا للقيم من الجدول ولكن تحدث مشكلة

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

لا اتحدث عن المرفق الخاص بى انا فلقد شرعت بالعمل قبل ان يقوم هو بوضع مرفق

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

وهذة المعلومة اعرفها يا استاذ @عبدالله كاظم

طيب اساتذتى الكرام

استاذ @عبدالله كاظم

واستاذ @kanory

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

 

ورجاء لو امكن تطبيقه بمثال لانى اتصفح من الجوال واواجه صعوبة لنقل الاكواد ان وضعت فى المشاركة

جزاكم الله خيرا واعتذر للاثقال على كاهلكم

تم تعديل مايو 26, 2018 بواسطه ابا جودى

[عبدالله كاظم]

غير خاصية Alternate Back Color إلى No Color

[ابو جودي]

16 دقائق مضت, عبدالله كاظم said:

غير خاصية Alternate Back Color إلى No Color

الله يفتح عليك

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

[عبدالله كاظم]

بخصوص الموديول تفضل @ابا جودى

هذي الفانكشن نحطها في كلاس

Public Function getBackColor(DayName As String, repName As String)
On Error Resume Next
    Dim rep As Report
    Dim chst As String
    
    Set rep = Reports(repName)
    Select Case DayName
        Case "السبت", "Saturday", "Sat"
            chst = Nz(DLookup("[Sa]", "tblDayColoer", acFirst), "16777215")
            rep.Detail.BackColor = chst
            
        Case "الاحد", "Sunday", "Sun "
            chst = Nz(DLookup("[Su]", "tblDayColoer", acFirst), "16777215")
            rep.Detail.BackColor = chst
        
        Case "الاثنين", "Monday", "Mon"
            chst = Nz(DLookup("[Mo]", "tblDayColoer", acFirst), "16777215")
            rep.Detail.BackColor = chst

        Case "الثلاثاء", "Tuesday", "Tue"
            chst = Nz(DLookup("[Tu]", "tblDayColoer", acFirst), "16777215")
            rep.Detail.BackColor = chst
            
        Case "الاربعاء", "Wednesday", "Wed"
            chst = Nz(DLookup("[We]", "tblDayColoer", acFirst), "16777215")
            rep.Detail.BackColor = chst

        Case "الخميس", "Thursday", "Thu"
            chst = Nz(DLookup("[Th]", "tblDayColoer", acFirst), "16777215")
            rep.Detail.BackColor = chst
        
        Case "الجمعه", "Friday", "Fri"
            chst = Nz(DLookup("[Fr]", "tblDayColoer", acFirst), "16777215")
            rep.Detail.BackColor = chst
            
    End Select
End Function

 

وهذا الكود نستخدمها في مع حدث On Format في التقرير

Call getBackColor(Me.DayName, Me.Name)

 

[ابو جودي]

هههههههههه

ارجوك استاذ @عبدالله كاظم

وضع المرفق بالاكواد اللازمة

انا اتصفح بالجوال لا استطيع نقل الاكواد

تم تعديل مايو 26, 2018 بواسطه ابا جودى

[kanory]

تفضل أخي @ابا جودى 

rpt coloer.mdb

[ابو جودي]

استاذ @عبدالله كاظم

استاذ @kanory

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

احبكم فى الله

[kanory]

أشكرك أخي @ابا جودى أحبك الله الذي احببتنا من أجله 

[عبدالله كاظم]

يعطيك العافية أخوي @kanory جهزت الملف

أخوي @ابا جودى عافاك الله وكذلك أحبك في الله

[sevgilim]

القلب ينشر عبير الشكر والوفاء والعرفان لكم على كل ما بذلتموه في سبيل مساعدتي ومساعده الإخوان الكرام أن نصل إلى ما طمحنا إليه جميعًا، فقد كان نجاحنا اليوم ثمرة العمل المشترك الذي لم يكن ليتحقق لولا عملنا جميعًا ، فكل الشكر والعرفان لكم أيها الأحبة. وأتمنى من الله عز وجل أن يعطيكم الصحة والعافية، شكراً لكم على ما قدمتموه لنا ودام الله عزّكم ودام عطائكم..😘

[kanory]

و ايضا اشكرك اخي @عبدالله كاظم

[sevgilim]

جزاكم الله الف خير ...لدي استفسار بخصوص تصفح الانترنت من خلال الاكسس وفيه بعض المواقع لا تظهر فيه قيمه مربع السرد . فما المشكله وهل يوجد إصدار جديد لاداه التصفح..واكرر شكري لكم

[kanory]

اخي الكريم @sevgilim افتح موضوعا جديد باستفسارك ... لان السؤال يختلف عن الموضوع المطروح ... حتى يتمكن الاخوة في المنتدي من الاجابة على سؤالك .... بارك الله فيك