Skip to main content

AccessTr.neT

Kayıt Ol

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

Raporda zebra tipi renkli görünüm

mantars
mantars
Access Cevaplanmış Soruları
6
3993

Raporda zebra tipi renkli görünüm

Çözüldü #1
mantars
Üye
mantars
Bul
Üye
Adı Soyadı: Se.... MA....
Yaşı: 57
Konum: Balıkesir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 17/01/2021,21:32
Yorumları: 23
Konuları: 8
Kayıt Tarihi: 13/04/2009
Teşekkür Puanı: 22
Mesleğiniz: Mali Müşavir
ekteki dosyadaki raporda Ayrıtı Altbilgisi alanında listelenen satırların Artalan renklerini 2.4.6. vb çift sıra numaralı satırlarda nasıl değiştirebilirim? (Zebra görünümlü rapor).

Ayrıca gene raporda ayrıntı altbilgisi alanında (Ekli dosyada Vergi No Altbilgisi alanında) listelenen kayıtların sayısını sayfa üst bilgisi alanında nasıl bulabilirim?

Zaman ayırabilecek olan arkadaşların emeklerine şimdiden teşekkürler.
.rar Makbuz.rar (Dosya Boyutu: 30,4 KB | İndirme Sayısı: 11)
Cevapla
Çözüldü #2
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Vergi No Footer kısmına, adı ZebraKutusu olan bir adet dikdörtgen ve Print olayına aşağıdaki kodu ekledim.

Kod:
Private Sub GrupAltbilgisi1_Print(Cancel As Integer, PrintCount As Integer)
    If (Me.SiraNo Mod 2) = 1 Then Me.ZebraKutusu.BackColor = 16777215 Else Me.ZebraKutusu.BackColor = 12632256
End Sub
.rar Makbuz_Seruz.rar (Dosya Boyutu: 32 KB | İndirme Sayısı: 29)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #3
Puletin
Onursal Üye
Puletin
Bul
Onursal Üye
Adı Soyadı:
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 24/12/2016,00:18
Yorumları: 1.717
Konuları: 40
Kayıt Tarihi: 01/11/2008
Teşekkür Puanı: 416
Birinci Sorunuzun cevabı için


Kod:
Private m_RowCount As Long



Kod:
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)

m_RowCount = m_RowCount + 1
    If m_RowCount / 2 = CLng(m_RowCount / 2) Then
            Me.Ayrıntı.BackColor = 15263976 'Change value to the color you desire
        Else
            Me.Ayrıntı.BackColor = 14811135 'Change value to the color you desire
    End If

End Sub

bunu deneyiniz


Seruz Hocam cevabı vermiş zaten sonradan gördüm...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #4
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Puletin'in kodlarını görünce aklıma geldi.
Aslında bir dikdörtgen eklemeye gerek yoktu, benimki formlardaki Koşullandırılmış Biçim olayından kalma bir alışkanlık Img-grin

Aynı işlem bu şekilde de olur.
Kod:
Private Sub GrupAltbilgisi1_Print(Cancel As Integer, PrintCount As Integer)
    If (Me.SiraNo Mod 2) = 1 Then Me.GrupAltbilgisi1.BackColor = 16777215 Else Me.GrupAltbilgisi1.BackColor = 12632256
End Sub
.rar Makbuz_Seruz2.rar (Dosya Boyutu: 32,32 KB | İndirme Sayısı: 22)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #5
mantars
Üye
mantars
Bul
Üye
Adı Soyadı: Se.... MA....
Yaşı: 57
Konum: Balıkesir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 17/01/2021,21:32
Yorumları: 23
Konuları: 8
Kayıt Tarihi: 13/04/2009
Teşekkür Puanı: 22
Mesleğiniz: Mali Müşavir
Sevgili Seruz hocam ve Puletin Hocam

Renklendirme çözüldü. bunun için teşekkürler.

Ancak Seruz Hocamın 1. soruma önerdiği çözüm olan =DCount("*";"[İki Tarih Arası Kesilenler]") kodunun sonucu iki tarih arası kesilen faturaların tamamını sayıyor. Oysaki orada listelenen kayıtlar iki tarih arası kesilen faturaların vergi numarası bazında toplamları. Ben Bunun sayısını ilgili alana yazdırmak istiyorum.

Puletin hocamın buna ilişkin kodunu da nereye ve nasıl yazmam gerektiğini anlamadım.
Cevapla
Çözüldü #6
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Bu arada Satır Sayısı olayını yazmayı unutmuşum, onu da anlatayım.
Yaptığım örnekteki raporda Satır Sayısı = 56 olarak çıkıyor, çünkü raporun kayıt kaynağında aslında 56 kayıt var.

Siz Raporda, Vergi No bazında gruplama yapıp, kayıtları Grup Footer kısmında toplayıp yazdırdığınız için 45 kayıt listeleniyor.

Vergi No bazında gruplama olayını raporda değil, sorguda yapmalısınız.
Kayıtları da raporun normal detay kısmında yazdırırsanız daha iyi olur, bu şekilde satır sayısı da doğru çıkmış olur.
Dediğim gibi bir deneyin, yapamazsanız, yazın.
Ona da yardımcı oluruz.
Biraz vaktim oldu ve anlattığım şekilde sorguda gruplanmış olarak raporu yaptım ve örneği ekledim.
.rar Makbuz_Seruz3.rar (Dosya Boyutu: 32,83 KB | İndirme Sayısı: 30)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task