Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Rapor sayfa toplamı ve her sayfada yeni toplam

adams43
adams43
Access Cevaplanmış Soruları
8
7377

Rapor sayfa toplamı ve her sayfada yeni toplam

Çözüldü #1
adams43
Üye
adams43
Bul
Üye
Adı Soyadı:
Yaşı: 43
Konum: Antalya
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/10/2017,06:12
Yorumları: 42
Konuları: 4
Kayıt Tarihi: 26/02/2009
Teşekkür Puanı: 0
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.
.rar Sultanlar_2009-03-14.rar (Dosya Boyutu: 15,21 KB | İndirme Sayısı: 56)
Son Düzenleme: 14/03/2009, 17:13, Düzenleyen: adams43.
Cevapla
Çözüldü #2
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
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
.rar Sultanlar_2009-03-14_Seruz.rar (Dosya Boyutu: 18,35 KB | İndirme Sayısı: 136)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #3
adams43
Üye
adams43
Bul
Üye
Adı Soyadı:
Yaşı: 43
Konum: Antalya
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/10/2017,06:12
Yorumları: 42
Konuları: 4
Kayıt Tarihi: 26/02/2009
Teşekkür Puanı: 0
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.
Cevapla
Çözüldü #4
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Yazıcıya göndermeyi denemediğim için dikkat etmemişim.
Düzelttim, bir de bunu deneyin.
.rar Sultanlar_2009-03-14_Seruz.rar (Dosya Boyutu: 19,34 KB | İndirme Sayısı: 212)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #5
assenucler
Aktif Üye
assenucler
Bul
Aktif Üye
Adı Soyadı: A..... Se.... Şe....
Konum: İstanbul
Ofis Versiyonu: -
Son Oturumu: 03/08/2022,13:36
Yorumları: 2.057
Konuları: 125
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 66
Seruz hocam;

Merhabalar, iyi haftalar süpersiniz...
Arşivime koyuyorum... Teşekkürler
Cevapla
Çözüldü #6
adams43
Üye
adams43
Bul
Üye
Adı Soyadı:
Yaşı: 43
Konum: Antalya
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/10/2017,06:12
Yorumları: 42
Konuları: 4
Kayıt Tarihi: 26/02/2009
Teşekkür Puanı: 0
Süper. Tam istediğim gibi oldu.
Başkalarına da örnek olur inş.

Teşekkürler.
Son Düzenleme: 16/03/2009, 18:19, Düzenleyen: adams43.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task