AccessTr.neT
Rapor sayfa toplamı ve her sayfada yeni toplam - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rapor sayfa toplamı ve her sayfada yeni toplam (/konu-rapor-sayfa-toplami-ve-her-sayfada-yeni-toplam.html)

Sayfalar: 1 2


Rapor sayfa toplamı ve her sayfada yeni toplam - adams43 - 14/03/2009

Arkadaşlar ekteki örnekte tablonun bir raporunu yaptım. Rapor altbilgisinte istediğim toplamı alabiliyorum.

Ancak her sayfanın kendi toplamını nasıl aldırabilirim. Ve ayrıca her sayfada bir önceki sayfa ile birlikte yeni bir toplamı nasıl yazdırabilirim. Böylece her sayfanın kendi toplamını görebilirken o tarihe kadarki toplamı da görebileceğim. Rapor alt bilgisindeki toplamda tamamının toplamını görebiliyorum ancak.

Yardımlarınız için şimdiden teşekkürler.


Cvp: Rapor sayfa toplamı ve her sayfada yeni toplam - Seruz - 14/03/2009

Sayfa alt toplamları için kod yazmak gerekiyor.
Buyrun, Sizin örneğinizi istediğiniz şekilde düzelttim.

Kod:
Dim SayfaTop_Tutar, SayfaTop_Euro

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
    SayfaTop_Tutar = SayfaTop_Tutar + Me.Tutar
    SayfaTop_Euro = SayfaTop_Euro + Me.Euro
End Sub

Private Sub Report_Open(Cancel As Integer)
    SayfaTop_Tutar = 0
    SayfaTop_Euro = 0
End Sub

Private Sub SayfaAltbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
    Me.Sayfa_Tutar = SayfaTop_Tutar
    Me.Sayfa_Euro = SayfaTop_Euro
End Sub

Private Sub SayfaÜstbilgisiBölümü_Print(Cancel As Integer, PrintCount As Integer)
    Me.Onceki_Tutar = SayfaTop_Tutar
    Me.Onceki_Euro = SayfaTop_Euro
    SayfaTop_Tutar = 0
    SayfaTop_Euro = 0
End Sub




Cvp: Rapor sayfa toplamı ve her sayfada yeni toplam - adams43 - 16/03/2009

Sayın seruz cevabınız ve emeğiniz için çok teşekkür ederim.

Raporun ön izlemesinde herşey süper yalnız print çıktısında bu toplamları yazdırmadı.

Kodlarda bi değişiklik mi gerekiyor. Vba ile fazla içli dışlı olmadığımdan o kısmı nasıl halledeceğimi bilemiyorum. Bu konudada yardım ederseniz sevinirim.

Tekrar teşekkürler.


Cvp: Rapor sayfa toplamı ve her sayfada yeni toplam - Seruz - 16/03/2009

Yazıcıya göndermeyi denemediğim için dikkat etmemişim.
Düzelttim, bir de bunu deneyin.


Cvp: Rapor sayfa toplamı ve her sayfada yeni toplam - assenucler - 16/03/2009

Seruz hocam;

Merhabalar, iyi haftalar süpersiniz...
Arşivime koyuyorum... Teşekkürler


Cvp: Rapor sayfa toplamı ve her sayfada yeni toplam - adams43 - 16/03/2009

Süper. Tam istediğim gibi oldu.
Başkalarına da örnek olur inş.

Teşekkürler.