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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mantars

Üye
Se.... MA....
 51
 8
 23
 13/04/2009
22
 Balıkesir
 Mali Müşavir
 Ofis 2007
 19/10/2018,15:00
Çö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.

Kullanici Avatari

Seruz

Uzman
Se.... UZ....
 47
 7
 1.566
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 09/02/2019,15:31
Çö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

Kullanici Avatari

assenucler

Aktif Üye*
A..... Se.... Şe....
 125
 2.057
 31/10/2008
63
 İstanbul
 
 -
 03/01/2019,11:47
Çözüldü 
Sayın Seruz;

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

Selam ve sevgiler.



Kullanici Avatari

mantars

Üye
Se.... MA....
 51
 8
 23
 13/04/2009
22
 Balıkesir
 Mali Müşavir
 Ofis 2007
 19/10/2018,15:00
Çö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ü Raporda Resim Kalitesi Bilal Demirci 4 60 11/02/2019, 17:24
Son Yorum: Bilal Demirci
Çözüldü Raporda Otomatik Sıra Numarası Verirken Parametre Değeri Gir Uyarısı Gelmesi mmert06 5 202 25/01/2019, 00:47
Son Yorum: ozanakkaya
Çözüldü Raporda yatay ve dikey yönlendirme yahyamacit 2 185 21/12/2018, 18:14
Son Yorum: yahyamacit
Çözüldü Formdan Başka Formda Kritere Göre Liste Gizleme Ve Görünmesi U.ALTUN 4 122 05/12/2018, 13:50
Son Yorum: U.ALTUN
Çözüldü Raporda Checkbox Görünümü Neden Metinsel Evet/hayır Olarak Gözükür. Oğuz Türkyılmaz 9 207 16/11/2018, 15:41
Son Yorum: Oğuz Türkyılmaz

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