Raporda Satır Rengi - Baskı Önizleme

Raporda Satır Rengi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Raporda Satır Rengi (/konu-raporda-satir-rengi.html)

Sayfalar: 1 2 3

Cvp: Raporda Satır Rengi - benremix - 29/11/2009

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

Cvp: Raporda Satır Rengi - assenucler - 29/11/2009

Teşekkür sayın benremix.. İyi bayramlar..

Cvp: Raporda Satır Rengi - mehmetdemiral - 29/11/2009

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

Cvp: Raporda Satır Rengi - mehmetdemiral - 29/11/2009

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.

Cvp: Raporda Satır Rengi - access_delisi - 30/11/2009

teşekkürler sledgeab hoca.

Cvp: Raporda Satır Rengi - arzuu - 01/12/2009

teşekkürler sledgeab