Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Raporda Satır Rengi

ozanakkaya
ozanakkaya
Access Örnekleri ve Uygulamaları
13
6780

Raporda Satır Rengi

#7
benremix
Onursal Üye
benremix
www Bul
Onursal Üye
Adı Soyadı: Ra.... So....
Yaşı: 57
Konum: Ankara
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 19/03/2024,21:49
Yorumları: 4.446
Konuları: 127
Kayıt Tarihi: 17/05/2009
Teşekkür Puanı: 365
Mesleğiniz: Şirket Sahibi
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
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.

Access için her zaman lazım olacak konu başlıkları listesi


Son Düzenleme: 29/11/2009, 11:38, Düzenleyen: benremix.
Cevapla
#8
assenucler
Aktif Üye
assenucler
Bul
Aktif Üye
Adı Soyadı: A..... Se.... Şe....
Konum: İstanbul
Ofis Versiyonu: -
Son Oturumu: 03/08/2022,13:36
Yorumları: 2.057
Konuları: 125
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 66
Teşekkür sayın benremix.. İyi bayramlar..
Cevapla
#9
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 01/04/2024,18:42
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
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...

[Resim: 3renkrapor.jpg]
İnadına, ille de Accesstr.net...
Cevapla
#10
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 01/04/2024,18:42
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
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.

[Resim: 3lseim.jpg]
İnadına, ille de Accesstr.net...
Cevapla
#11
access_delisi
Tımarhaneden Yeni Kaçtım
access_delisi
Bul
Aktif Üye
Adı Soyadı: Ah.... Fu.... Ce....
Yaşı: 48
Konum: Denizli
Ofis Versiyonu: -
Son Oturumu: 14/01/2023,00:45
Yorumları: 454
Konuları: 87
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 20
teşekkürler sledgeab hoca.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#12
arzuu
desire
arzuu
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 34
Konum: -
Ofis Versiyonu: Ofis XP
Son Oturumu: 24/04/2010,10:04
Yorumları: 341
Konuları: 38
Kayıt Tarihi: 17/02/2009
Teşekkür Puanı: 176
teşekkürler sledgeab
"Gülümsemenin, parasal değeri yoktur. Satın alınmaz, ödünç verilmez, dilenilmez, çalınmaz ama verilmedikçe hiç alınamaz."
Baştan sona Sql veritabanı oluşturma
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task