Access raporunda sayfa altbilgisi

[Eskici]

arkadaşlar yardım!!! delireceğim.
web de ve burada yaptığımtüm aramalarda rapor içinde alt toplam almak istersek sayfa altbilgisine bir metin kutusu ekleyerek - sum(yada topla)([toplanacakalanad]) yazmanızyeterli diyor...
ama OL- MU - YOR toplamı vermiyor #hata uyarısı gözüküyor.
bilen biri varsa yardım etsin.
raporu dizayn etmem 2 saat sürdü bu satırı halletmek ise 2 gündür çözümsüzlükle sonuçlanıyor...

 

[modalı]

Sayın eskici,

Gözden kaçırdığınız bir şey vardır. Ama ezbere bir şey yapamayız. Örneğinizi bir zahmet ekleyin, üstünde çalışalım.


İyi çalışmalar

 

[seruz]

Benim bildiğim kadarıyla
Sayfa altbilgisinde otomatik toplam alınamıyor sadece kod yazarak olabiliyor,
ancak Rapor alt bilgisinde ve grup başları ve sonlarında otomatik alınabiliyor.

Yapamazsanız kendi örneğinizi ekleyin,
kod yazarak toplam almanıza yardımcı olabiliriz.

Eğer kod yazma tecrübeniz varsa,
ekte gönderdiğim fatura dosyasında
"RAPOR FATURA" adlı rapordaki sayfa toplama örneğini inceleyip,
kendi uygulamanıza aktarabilirsiniz.

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