Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/05/2009 14:29
Konu Sahibi
mantars
Yorumlar
3
Okunma
2624
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
mantars

mantars

Üye
5364
Se.... MA....
 52
 8
 23
 13/04/2009
22
 Balıkesir
 Mali Müşavir
 Ofis 2007
 Dün,18:15
Çö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.

Seruz

Seruz

Uzman
47
Se.... UZ....
 47
 7
 1.566
 30/10/2008
822
 Tekirdağ
 BT Şefi
 Ofis XP
 18/07/2019,14:39
Çö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


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

...........
assenucler

assenucler

Aktif Üye*
91
A..... Se.... Şe....
 125
 2.057
 31/10/2008
66
 İstanbul
 
 -
 06/07/2019,23:49
Çözüldü 
Sayın Seruz;

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

Selam ve sevgiler.



mantars

mantars

Üye
5364
Se.... MA....
 52
 8
 23
 13/04/2009
22
 Balıkesir
 Mali Müşavir
 Ofis 2007
 Dün,18:15
Çö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.

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sorgudaki Sonuçların Raporda Gösterilmesi derebeyi 6 198 04/07/2019, 09:11
Son Yorum: derebeyi
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 296 03/06/2019, 04:22
Son Yorum: halily
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 174 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Raporda Kenar Boşluklarını Sıfırlama sertac76 6 341 04/04/2019, 14:01
Son Yorum: halily
Çözüldü Raporda verileri yan yana yazdırma? mahirozcan 21 7.891 17/03/2019, 11:18
Son Yorum: dioxi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.