لون السجلات

[النجاشي]

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

استاذتي الكرام

عندي المثال فيه اكواد من استاذنا الفاضل موسي 

اريد تعديل الكود بحيث يكون

اذا تساوت القيم بالحقول(S) اغلاء النموذج مع حقول المجاميغ اسفل النموذج يعطي لون احمر بشكل افقي

تحياتي احبتي

 

لون القيم اذا تساوت بشكل افقي .rar

[Eng.Qassim]

19 دقائق مضت, النجاشي said:

اذا تساوت القيم بالحقول(S)

وعليكم السلام ..هل تقصد تساوي جميع الحقول الفوقانية مع الحقول التحتانية تعطي لون احمر؟

بالمناسبة هي الان باللون الاحمر ..ام تريد الخلفية حمراء

[النجاشي]

32 دقائق مضت, Eng.Qassim said:

وعليكم السلام ..هل تقصد تساوي جميع الحقول الفوقانية مع الحقول التحتانية تعطي لون احمر؟

بالمناسبة هي الان باللون الاحمر ..ام تريد الخلفية حمراء

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

 

تم تعديل مارس 2, 2023 بواسطه النجاشي

[Eng.Qassim]

حصل خلط بين مثالك ومثال استاذ موسى

فقط ارفع افضل اجابة ..لان سؤالك لم تتم الاجابة عليه!!

[النجاشي]

2 دقائق مضت, Eng.Qassim said:

حصل خلط بين مثالك ومثال استاذ موسى

فقط ارفع افضل اجابة ..لان سؤالك لم تتم الاجابة عليه!!

اذا كان بالضغط على الاشاره علامه صح لم استطيع إلغائها هل بسبب ضعف النت او لها طريقه اخري

او أننا عشان أتصفح من الموبيل

[Eng.Qassim]

هل تقصد مثل هذا الشكل

[النجاشي]

الان, Eng.Qassim said:

هل تقصد مثل هذا الشكل

باقي الوسط اي نفس الصوره للاستاذ موسي

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

اذا لم تتضح برسم لك صوره 

اليك الصوره

[ابوخليل]

مشاركة مع اخي قاسم

تفضل

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

طبقت التنسيق على الحقل الثالث .. يمكنك اكمال البقية على النسق نفسه

لا حظ اني ضمن التنسيق جعلت لون الأمامي اسود

لون القيم .rar

[النجاشي]

20 ساعات مضت, ابوخليل said:

مشاركة مع اخي قاسم

تفضل

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

طبقت التنسيق على الحقل الثالث .. يمكنك اكمال البقية على النسق نفسه

لا حظ اني ضمن التنسيق جعلت لون الأمامي اسود

لون القيم .rar 39.34 kB · 7 downloads

الله يعطيك العافيه استاذي الفاضل ابو خليل ما قصرت يالغالي 

لكن استاذي الفاضل انا اجريت محاولات بكود ادمجته مع كود تحديث المجاميع عمله لي الاستاذ ابو احمد الله يحفظه

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

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

وفقكم الله استاذتي الكرام

وهذا الكود الذي عدلت عليه

Function UpdateMe()
    Dim DayNo As Byte, RowTotal As Integer
    Dim cDay As Control
  Dim Sum As Integer
Dim S As Integer
    With Screen.ActiveControl
        If .ControlSource Like "Day*" Then
            DayNo = Mid(.ControlSource, 4)
            If DayNo >= 1 And DayNo <= 50 Then
                Set cDay = Me("Day" & DayNo)
                Me("Sum" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay
                For DayNo = 1 To 50
     
   If Me("s" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay Then
       Me("D" & DayNo).Caption = DayNo
       Me("D" & DayNo).BackColor = RGB(255, 64, 61)
       Me("DDDD" & DayNo).BackColor = RGB(255, 64, 61)
       Me("Day" & DayNo).BackColor = RGB(255, 64, 61)
       Me("Sum" & DayNo).BackColor = RGB(255, 37, 92)
       Me("S" & DayNo).BackColor = RGB(255, 37, 92)
       
        Me("s" & DayNo).ForeColor = RGB(255, 255, 255)
        Me("D" & DayNo).ForeColor = RGB(255, 255, 255)
        Me("DDDD" & DayNo).ForeColor = RGB(255, 255, 255)
        Me("Day" & DayNo).ForeColor = RGB(255, 255, 255)
        Me("Sum" & DayNo).ForeColor = RGB(255, 255, 255)
    
    End If
                   
                   RowTotal = RowTotal + Nz(Me("Day" & DayNo), 0)
                Next DayNo
                Me.total = RowTotal
                Set cDay = Nothing
            End If
        End If
'        End If
    End With
End Function

 

AA.rar

تم تعديل مارس 4, 2023 بواسطه النجاشي

[ابوخليل]

تفضل

ملاحظات : 

حاول تقلل من الأكواد والاحداث قدر المستطاع  

اتعب قليلا على التسميات ... مثلا sum1 ، sum2 ... الخ لاحظ عند التعامل معه داخل الكود اضطررنا الى وضع علامتي تنصيص على sum لكي يعتبرها اكسس كلمة نصية وليست الدالة التي يعرفها ايضا ينطبق هذا على حقل (S) فهذا الحرف يرمز الى الدقائق عند اكسس ... حتى حقل AAAA ليس له معنى 

المهم ان المبرمج يتعب لينتقي تسمية مختصرة قصيرة يفهم منها وظيفة الحقل

Private Sub GenerateDate()
Dim x, xx As Integer
Dim n As Integer
Dim sName As String
Dim vsr As Double
Dim rs As Recordset
Call Reset
Set rs = CurrentDb.OpenRecordset("AAA")
rs.MoveFirst
Do While Not rs.EOF
x = rs!id
Me("DDDD" & x).Caption = rs!NM
Me("D" & x).Caption = rs!id
Me("S" & x) = rs!sr
Me("Sum" & x) = DSum("Day" & x, "table_BAIN")
 rs.MoveNext
 Loop
For x = 1 To 50
    If Me("D" & x).Caption = "" Then
         Me("s" & x).Width = 0
         Me("DDDD" & x).Width = 0
        Me("D" & x).Width = 0
        Me("day" & x).Width = 0
       Me("SUM" & x).Width = 0
    End If
    Next
       Me.Requery
   For xx = 1 To 50
       If Me("s" & xx) = Me("Sum" & xx) Then
  
       Me("Day" & xx).ForeColor = RGB(255, 255, 255)
       Me("Sum" & xx).ForeColor = RGB(255, 255, 255)
       Me("s" & xx).ForeColor = RGB(255, 255, 255)
     
       Me("s" & xx).BackColor = RGB(255, 64, 61)
       Me("Day" & xx).BackColor = RGB(255, 64, 61)
       Me("Sum" & xx).BackColor = RGB(255, 64, 61)
    End If
    Next
Reset
Set rs = Nothing

End Sub

 

AA2.rar

[AbuuAhmed]

5 ساعات مضت, النجاشي said:

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

إذا لم تحيل @ابوخليل للمثال الذي عملت عليه أنا ليفهم الكود ووظيفته وحيثياته فالأمر سيكون بناء كود جديد على دمار كود سابق.
ما عمله أبو خليل هو تدمير لما عملته أنا ، كما يرجى ملاحظة تجنب استخدام أي أمر يقوم بحفظ السجل الحالي مثل (Requery, Refresh, Save) حتى يمكنك التراجع عن التعديلات قبل الحفظ.

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

[ابوخليل]

 تدمير .. يا ساتر  .. فجعتني يابو احمد 

لكن لوا لاحظت اني اعمل على الكود الذي عملته انا بالسابق ، ويبقى عملك بالحفظ والصون لم اتعرض له

فقط انا نظفت المحرر من جميع الاكواد من اجل المتعلم وسرعة الاستدلال لما يحتاج الرجوع اليه .

لو تتبعت ردودي تلاحظ اني احيانا احذف جميع الكائنات ومن ضمنها الاكواد من المرفق والتي ليس لها صلة بالطلب ، 

بكذا يصبح المثال خفيف على النفس وعلى الموقع  

[AbuuAhmed]

3 ساعات مضت, ابوخليل said:

تدمير .. يا ساتر  .. فجعتني يابو احمد 

قد يكون الدمار بدون ركام ، كإنسان فقد عقله ، أو مات دماغيا. 🙂 
أتمنى أن تطلع على المثال فقد صممت له شفرة بها أكثر من فكرة جديدة لأول مرة أقوم بها.

بعض الأمثلة وعند تعدد المساهمين في بنائه وبدون "مشرف" أو مهندس بناء فهو شبه خرابة ، فهو يعمل ولكن بدون تجانس ، وأخطاؤه كثيرة.

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

[AbuuAhmed]

Function UpdateMe()
    Dim DayNo As Byte, RowTotal As Integer
    Dim cDay As Control
    
    With Screen.ActiveControl
        If .ControlSource Like "Day*" Then
            DayNo = Mid(.ControlSource, 4)
            If DayNo >= 1 And DayNo <= 50 Then
                Set cDay = Me("Day" & DayNo)
                    
                Me("Sum" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay
                For DayNo = 1 To 50
                    '------------------------------------------------
                    If Me("s" & DayNo) = Me("Sum" & DayNo) Then
                        Me("D" & DayNo).Caption = DayNo
                        Me("D" & DayNo).BackColor = RGB(255, 64, 61)
                        Me("DDDD" & DayNo).BackColor = RGB(255, 64, 61)
                        Me("Day" & DayNo).BackColor = RGB(255, 64, 61)
                        Me("Sum" & DayNo).BackColor = RGB(255, 37, 92)
                        Me("S" & DayNo).BackColor = RGB(255, 37, 92)
       
                        Me("s" & DayNo).ForeColor = RGB(255, 255, 255)
                        Me("D" & DayNo).ForeColor = RGB(255, 255, 255)
                        Me("DDDD" & DayNo).ForeColor = RGB(255, 255, 255)
                        Me("Day" & DayNo).ForeColor = RGB(255, 255, 255)
                        Me("Sum" & DayNo).ForeColor = RGB(255, 255, 255)
                    End If
                    '------------------------------------------------
                    RowTotal = RowTotal + Nz(Me("Day" & DayNo), 0)
                Next DayNo
                Me.total = RowTotal
                    
                Set cDay = Nothing
            End If
        End If
    End With
End Function

يفترض أن تعديلك يعمل بشكل صحيح بشرط أن أن قيمة Me("s" & DayNo) تكون صحيحة.
في هذا الكود قمت باختصار هذا السطر If Me("s" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay Then فقط.

تم تعديل مارس 4, 2023 بواسطه AbuuAhmed

[النجاشي]

استاذي القدير @AbuuAhmed 

استاذي القدير @ابوخليل 

حفظكم الله ورعاكم 

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

 لا يمكن الاستغناء عنه ابدا

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

  كون  صار التباس  او سو فهم في الموضوع

وابشركم راح تطيب خاطركم بأذن الله عن قريب

فانا الان راح افتح مشاركه بشان تقسيم الميراث حسب الشريعة الاسلامية

 بشكل كامل بأذن الله ابتداء بقدارتي المتواضعه ثم بمساندة احبتي

وبما اقتطفه من فضيلة القاضي العلامة رئيس محكمة المقاطرة

مجيب السبعة حفظه الله ورعاه

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

فاسال الله ان يطيل في عمره ويحفظه قاضينا السبعه  المتواضع

ويتحمل منا الكثير من التساولات بهذا الشان 

واسال الله العظيم ان ينفع بنا وبكم الاسلام والمسلمين

فشكرا منتدانا والقائمين فيه 

اعذروني احبكم جمعيا