Sn Sledgeab affınıza sığınarak iç içe raporda satır renlerinin farklı olmasının kodlarını aşağıda bilgilerinize sundum..Belki birilerinin işine yarar.. Saygılar...
Kod:
Option Compare Database
Option Explicit
Private Sub GrupÜstbilgisi0_Format(Cancel As Integer, FormatCount As Integer)
If Me.GrupÜstbilgisi0.BackColor = vbWhite Then
Me.GrupÜstbilgisi0.BackColor = vbGreen
Else
Me.GrupÜstbilgisi0.BackColor = vbWhite
End If
End Sub
Private Sub GrupÜstbilgisi1_Format(Cancel As Integer, FormatCount As Integer)
If Me.GrupÜstbilgisi1.BackColor = 15651516 Then
Me.GrupÜstbilgisi1.BackColor = 13353215
Else
Me.GrupÜstbilgisi1.BackColor = 15651516
End If
End Sub
Private Sub GrupÜstbilgisi2_Format(Cancel As Integer, FormatCount As Integer)
If Me.GrupÜstbilgisi2.BackColor = vbWhite Then
Me.GrupÜstbilgisi2.BackColor = vbYellow
Else
Me.GrupÜstbilgisi2.BackColor = vbWhite
End If
End Sub
Teşekkür sayın benremix.. İyi bayramlar..
Aynı işlemi 3 renk (veya daha fazla) yapmak isterseniz benim önerim select case kullanmaktır. Bunun için raporun ayrıntısındaki biçimlendiğinde yordamındaki kodları silip aşağıdaki kodları yapıştırın:
Kod:
Select Case Me.Ayrıntı.BackColor
Case vbWhite
Me.Ayrıntı.BackColor = vbGreen
Case vbGreen
Me.Ayrıntı.BackColor = vbWhite
End Select
Select Case Me.Ayrıntı.BackColor
Case vbWhite
Me.Ayrıntı.BackColor = vbRed
Case vbRed
Me.Ayrıntı.BackColor = vbWhite
End Select
Böylece resimde gördüğünüz görüntüyü alacaksınız. Kolay gelsin...
Aynı işlemi daha bir mantık kullanarak yapmak isterseniz, o zaman da mesela Arıza türü alanındaki "Su" - "Kanal" - "Elektrik" şeklindeki değişen değerlere göre remkler atayabilirsiniz. Bunun için yine select case komutu biçilmiş kaftandır.
Kod:
Select Case Me.ArizaTuru
Case "Su"
Me.Ayrıntı.BackColor = vbGreen
Case "Kanal"
Me.Ayrıntı.BackColor = vbRed
Case "Elektrik"
Me.Ayrıntı.BackColor = vbYellow
End Select
Böylece arıza türü "su" olunca Yeşil, "Kanal" olunca Kırmızı, "Elektrik" olunca da Sarı renk alacaktır.
Not: Elektrik isimli arıza türünü tabloya ben girdim. Normalde sadece 2 tür arıza vardı. Örneği 3 lü yapmak adına "elektrik" adında bir arıza türü de ben girdim.
teşekkürler sledgeab hoca.
![[Resim: 3renkrapor.jpg]](http://img260.imageshack.us/img260/2736/3renkrapor.jpg)
![[Resim: 3lseim.jpg]](http://img213.imageshack.us/img213/8804/3lseim.jpg)