AccessTr.neTMicrosoft AccessAccess Örnekleri ve Uygulamaları

Raporda Satır Rengi

1 2 3
29/11/2009, 11:37

benremix

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
29/11/2009, 17:54

assenucler

Teşekkür sayın benremix.. İyi bayramlar..
29/11/2009, 20:56

mehmetdemiral

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...


29/11/2009, 21:08

mehmetdemiral

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.


30/11/2009, 14:21

access_delisi

teşekkürler sledgeab hoca.
01/12/2009, 11:59

arzuu

teşekkürler sledgeab
1 2 3