تلوين السجلات في التقرير بألوان متبادلة

[lyla]

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

==========================

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

Private Sub Form_Current()
  Dim ctl As Control
  Dim RecKey As Control On Error Resume Next

  '-- ÖÚ åäÇ ÅÓã ÍÞá ÇáãÓáÓá --'
  Set RecKey = Me.SNCF
  '---------------------------'

  For Each ctl In Form.Controls
    With ctl
      If .SECTION = 0 Then
        .FormatConditions(0).Modify acExpression, , RecKey.NAME & "=" & RecKey
        If Err.NUMBER = 7966 Then
          Err.Clear
          .FormatConditions.Add acExpression, , RecKey.NAME & "=" & RecKey
        End If
        If Err.NUMBER <> 438 Then
          .FormatConditions(0).BackColor = QBColor(1)
          .FormatConditions(0).ForeColor = QBColor(15)
          .FormatConditions(0).FontBold = True
        End If
      End If
    End With
  Next ctl
End Sub

Private Sub Form_Load()
  Dim ctl As Control
  Dim RecKey As Control
  Dim Cond As String
  Dim Frequency As Byte On Error Resume Next

  '-- &Ouml;&Uacute; &aring;&auml;&Ccedil; &Aring;&Oacute;&atilde; &Iacute;&THORN;&aacute; &Ccedil;&aacute;&atilde;&Oacute;&aacute;&Oacute;&aacute; &aelig;&Uacute;&Iuml;&Iuml; &Atilde;&Oacute;&Oslash;&Ntilde; &Ccedil;&aacute;&Ecirc;&szlig;&Ntilde;&Ccedil;&Ntilde; --'
  Set RecKey = Me.SNCF
  Frequency = 1
  '---------------------------'

  'Cond = "(([" & RecKey.Name & "] Mod " & Frequency * 2 & ")-" & _
  '        "([" & RecKey.Name & "] Mod " & Frequency & ")=" & Frequency & " And " & _
  '        "([" & RecKey.Name & "] Mod " & Frequency & ")<>0) Or " & _
  '       "(([" & RecKey.Name & "] Mod " & Frequency * 2 & ")+" & _
  '        "([" & RecKey.Name & "] Mod " & Frequency & ")=0)"

  ' &Ecirc;&atilde; &Ccedil;&Icirc;&Ecirc;&Otilde;&Ccedil;&Ntilde; &Ccedil;&aacute;&Atilde;&Oacute;&Oslash;&Ntilde; &Ccedil;&aacute;&Oacute;&Ccedil;&Egrave;&THORN;&Eacute; &Egrave;&Ccedil;&aacute;&Oacute;&Oslash;&Ntilde; &Ccedil;&aacute;&Ecirc;&Ccedil;&aacute;&iacute; &Egrave;&aelig;&Ccedil;&Oacute;&Oslash;&Eacute; &Ccedil;&aacute;&Atilde;&Icirc; &atilde;&aring;&auml;&Iuml; &Uacute;&Egrave;&Ccedil;&Iuml;&iacute;
  Cond = "-1^(-int(-[" & RecKey.NAME & "]/" & Frequency & "))=1"

  For Each ctl In Form.Controls
    With ctl
      If .SECTION = 0 Then
        Do While .FormatConditions.Count < 2
          .FormatConditions.Add acExpression, , False
        Loop
        .FormatConditions(1).Modify acExpression, , Cond
        If Err.NUMBER <> 438 Then
          .FormatConditions(1).BackColor = 12648175
          .FormatConditions(1).ForeColor = QBColor(1)
        End If
      End If
    End With
  Next ctl
End Sub

[الدكتور خضر الرجبي]

السلام عليكم

اختي ليلى ، بارك الله فيك

حتى لا تظنين أنني متجاهل هذا الموضوع ، أود أعلامك أنني أحاول فيه ، ولكني لم أصل إلى حل بعد.

مع الاحترام

[أبو هادي]

السلام عليكم

بعد إذن أخي خضر الرجبي ، هذا كود عملته الآن ، جربه وارجع لنا بالنتائج :

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
  Dim Cntl As Control
  
  On Error Resume Next
  
  For Each Cntl In Me.Controls
    With Cntl
      If .Section = 0 Then
        If Me.Report.CurrentRecord Mod 2 = 0 Then
          .BackStyle = 1
          .BackColor = vbGreen
        Else
          .BackStyle = 0
        End If
      End If
    End With
  Next
End Sub

تحياتي .

تم تعديل فبراير 28, 2005 بواسطه أبو هادي

[الدكتور خضر الرجبي]

السلام عليكم

أختي ليلي ، بارك الله فيك

أشكر أخي أبا هادي على هذا الحل الصحيح 100% ، وقد قمت بعمل مثال ووضعت فيه الكود السابق حيث يوضع في حدث عند التنسيق OnFormat لمقطع التفاصيل Detail في التقرير.

الاخت ليلي ، أمل أن ينال المثال والطريقة إعجابك ويحقق المطلوب.

مع الاحترام

DifferentRecordColorsInReports.rar

[lyla]

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