Raporda sayfa üst/alt bilgisi gösterip gizleme
Tarih
04/05/2009 14:29
Konu Sahibi
mantars
Yorumlar
3
Okunma
1955
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mantars
Üye
Kullanici Avatari
Üye
S.... M....
23
8
13/04/2009
22
Balıkesir
Ofis 2007
21/11/2016,13:39
Çözüldü 
Dizayn ettiğim bir raporda Sayfa alt bilgisinde "ARA TOPLAM" alanlarım mevcut ve bu alanların kenarlık stilleri 'düz çizgi' olarak ayarlı.

Ayrıca rapor alt bilgisi bölümünde aynı alanların genel toplamı alınıyor.

Ancak sorunum son sayfada "genel toplam" satırından sonra ve "sayfa alt bilgisi" bölümünde boş bir satır (sanırım kenarlık stili düz çizgi olarak ayarlanmasından dolayı) çıkıyor. Bunu nasıl çözebilirim?

Aynı şekilde rapor tasarımıma ilk sayfada görünmemek üzere bir aktarılan toplam satırı ekleyebilirmiyim?

Zaman ayırabilecek arkadaşların emeğine şimdiden teşekkürler.
mantars, 13-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çözüldü 
Sayfa Toplamı konusunda aşağıdaki konuyu inceleyebilirsiniz.
Rapor sayfa toplamı ve her sayfada yeni toplam 

Ayrıca ekteki dosyada istediğinize yakın bir rapor örneği var, inceleyin.
Menüden: "İrsaliye Fatura Yazdırma" - "Fatura Yazdırma Ekranı"
Rapor Adı : "RAPOR FATURA"

Sorununuzu çözemezseniz lütfen kendi örneğinizi ekleyin, yardımcı olmaya çalışırız.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Compare Database
Dim ADET_TOP, TUTAR_TOP, KDVTUTAR_TOP

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
    ADET_TOP = ADET_TOP + ADET
    TUTAR_TOP = TUTAR_TOP + TUTAR
    KDVTUTAR_TOP = KDVTUTAR_TOP + KDVTUTAR
End Sub

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Dim YTL As Currency, YKR As Currency
    
    'Fatura birden fazla sayfa olduğunda ilk sayfalara toplam yazmaması için.
    If Me.TOPLAMSAYFA > 1 And Me.SUANKISAYFA < Me.TOPLAMSAYFA Then
        Me.LabelToplam.Caption = "SAYFA TOPLAMI : "
        Me.SAYFATOP_ADET = ADET_TOP
        Me.SAYFATOP_TUTAR = TUTAR_TOP
        Me.SAYFATOP_KDVTUTAR = KDVTUTAR_TOP
        Me.FATURA_TOPLAMI.Visible = False
        Me.YAZI.Visible = False
        Me.YALNIZYAZ.Visible = False
    Else
        Me.LabelToplam.Caption = "FATURA TOPLAMI : "
        Me.SAYFATOP_ADET = Me.GENELTOP_ADET
        Me.SAYFATOP_TUTAR = Me.GENELTOP_TUTAR
        Me.SAYFATOP_KDVTUTAR = Me.GENELTOP_KDVTUTAR
        Me.FATURA_TOPLAMI = Me.GENELTOP_TUTAR + Me.GENELTOP_KDVTUTAR
        Me.FATURA_TOPLAMI.Visible = True
        Me.YAZI.Visible = True
        Me.YALNIZYAZ.Visible = True
        'Yazı ile yazdırma
        YTL = Fix(Me.FATURA_TOPLAMI)
        YKR = (Me.FATURA_TOPLAMI - YTL) * 100
        Me.YAZI = ""
        If YTL > 0 Then Me.YAZI = CONVMONEY(YTL) & " YTL "
        If YKR > 0 Then Me.YAZI = Me.YAZI & CONVMONEY(YKR) & " YKR"
   End If

End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    ADET_TOP = 0
    TUTAR_TOP = 0
    KDVTUTAR_TOP = 0
End Sub



Ek Dosyalar
.rar   FATURA_SAYFATOP.rar (Dosya Boyutu: 60,23 KB / İndirme Sayısı: 70)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çözüldü 
Sayın Seruz;

İyi akşamlar... Emeğiniz ve paylaşımınız için teşekkürler.

Selam ve sevgiler.
Cevapla


mantars
Üye
Kullanici Avatari
Üye
S.... M....
23
8
13/04/2009
22
Balıkesir
Ofis 2007
21/11/2016,13:39
Çözüldü 
Çok teşekkürler Seruz hocam.
O sorunumu hallettim. Rapor konusunda kod yazmaya da böyelece adım atmış oldum.
mantars, 13-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 256 03/12/2016, 00:13 m_demir
  access raporda guruplandır ve say işlevi yapma murat dikme 2 95 22/11/2016, 01:55 murat dikme
  Formdaki bir alan göre alt formda alanları gizleme enderya 2 84 20/11/2016, 19:34 ozanakkaya
  Raporda yılı gösterme ertans 5 133 17/11/2016, 12:11 ertans
  Seçime Bağlı Form Açma-Açılan Formda Seçilenleri Raporda Gösterme Nasıl Yapılır? mehami 8 200 14/11/2016, 18:43 mehami


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya