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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mantars

Üye
Üye
SE.... MA....
 51
 23
 8
 13/04/2009
22
 Balıkesir
 Mali Müşavir
 Ofis 2007
 25/08/2018,15:30
Çö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
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,08:38
Çö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

Kullanici Avatari

assenucler

Aktif Üye
Aktif Üye*
A..... SE.... ŞE....
 2.056
 125
 31/10/2008
63
 İstanbul
 
 -
 13/08/2018,19:49
Çö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
Üye
SE.... MA....
 51
 23
 8
 13/04/2009
22
 Balıkesir
 Mali Müşavir
 Ofis 2007
 25/08/2018,15:30
Çö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ü Qr Code Raporda Gösterme Problemi hbal09 10 221 21/09/2018, 17:40
Son Yorum: hbal09
Çözüldü Raporda Kullanıcı Id Yerine Ad Ve Soy Adını Nasıl Gösterebilirim. 001hacker 2 75 18/09/2018, 18:07
Son Yorum: 001hacker
Çözüldü Access Görünümünü Gizleme adkam25 4 138 02/09/2018, 12:05
Son Yorum: ozanakkaya
Çözüldü Raporda Etiketleri Sipariş Miktarları Kadar Bastırma hbal09 2 100 27/08/2018, 15:25
Son Yorum: hbal09
Çözüldü Raporda Satırlara Sıra Numarası Verme.. ielmacilar 4 123 08/08/2018, 16:07
Son Yorum: ielmacilar

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