AccessTr.neT

Bul · 04/05/2009, 14:29

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.

Bul · 04/05/2009, 17:59

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:

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

Bul · 04/05/2009, 18:39

Sayın Seruz;

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

Selam ve sevgiler.

Bul · 05/05/2009, 15:57

Çok teşekkürler Seruz hocam.
O sorunumu hallettim. Rapor konusunda kod yazmaya da böyelece adım atmış oldum.

AccessTr.neT

Raporda sayfa üst/alt bilgisi gösterip gizleme

Raporda sayfa üst/alt bilgisi gösterip gizleme

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

Giriş yap

Hesap oluştur

Konu Linkleri