مقارنة بين مربعات نص

[hh88]

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

الاخوة الاعزاء كل عام وانتم بخير

هل ممكن المساعدة

كيف اجعل مربع النص الذي يحتوي على عدد اكبر بين المجموعة ان يتلون بخلفية مختلفة

 

ولكم جزيل الشكر احبتي

 

 

TEST TRY.accdb

[Shivan Rekany]

59 دقائق مضت, hh88 said:

كيف اجعل مربع النص الذي يحتوي على عدد اكبر بين المجموعة ان يتلون بخلفية مختلفة

    If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then
            Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite
        Else
    If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then
            Me.text0.BackColor = vbRed
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbWhite
        ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbRed
            Me.text2.BackColor = vbWhite
        ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbRed
    End If
    End If

 

TEST TRY.accdb

[hh88]

3 ساعات مضت, Shivan Rekany said:

    If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then
            Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite
        Else
    If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then
            Me.text0.BackColor = vbRed
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbWhite
        ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbRed
            Me.text2.BackColor = vbWhite
        ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbRed
    End If
    End If

 

TEST TRY.accdb

الله يسعدك اخي شفان

هل يمكن تطبيق ذلك على تقرير حاول ماضبطت

 

TEST TRY2.accdb

[Shivan Rekany]

2 ساعات مضت, hh88 said:

هل يمكن تطبيق ذلك على تقرير حاول ماضبطت

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    Call PageFooterSection_Paint
End Sub

Private Sub PageFooterSection_Paint()
    If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then
            Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite
        Else
    If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then
            Me.text0.BackColor = vbRed
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbWhite
        ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbRed
            Me.text2.BackColor = vbWhite
        ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbRed
    End If
    End If
End Sub

 

TEST TRY2.accdb

[hh88]

20 ساعات مضت, Shivan Rekany said:

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    Call PageFooterSection_Paint
End Sub

Private Sub PageFooterSection_Paint()
    If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then
            Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite
        Else
    If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then
            Me.text0.BackColor = vbRed
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbWhite
        ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbRed
            Me.text2.BackColor = vbWhite
        ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then
            Me.text0.BackColor = vbWhite
            Me.text1.BackColor = vbWhite
            Me.text2.BackColor = vbRed
    End If
    End If
End Sub

 

TEST TRY2.accdb

الف الف شكر حبيبي ابو شفان 

ماشاء الله تبارك الله

الله يسعدك ويوفقك يااستاذي الفاضل