Rapor sayfa toplamı ve her sayfada yeni toplam
Tarih
14/03/2009 16:25
Konu Sahibi
adams43
Yorumlar
8
Okunma
4163
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



adams43
Üye
Kullanici Avatari
Üye
42
4
26/02/2009
0
Antalya
Ofis 2007
07/06/2015,16:34
Çözüldü 
Sponsor Reklam
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.


Ek Dosyalar
.rar   Sultanlar_2009-03-14.rar (Dosya Boyutu: 15,21 KB / İndirme Sayısı: 52)
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,00:05
Çözüldü 
Sayfa alt toplamları için kod yazmak gerekiyor.
Buyrun, Sizin örneğinizi istediğiniz şekilde düzelttim.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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




Ek Dosyalar
.rar   Sultanlar_2009-03-14_Seruz.rar (Dosya Boyutu: 18,35 KB / İndirme Sayısı: 126)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

adams43
Üye
Kullanici Avatari
Üye
42
4
26/02/2009
0
Antalya
Ofis 2007
07/06/2015,16:34
Çözüldü 
Sponsor Reklam
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

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,00:05
Çözüldü 
Yazıcıya göndermeyi denemediğim için dikkat etmemişim.
Düzelttim, bir de bunu deneyin.


Ek Dosyalar
.rar   Sultanlar_2009-03-14_Seruz.rar (Dosya Boyutu: 19,34 KB / İndirme Sayısı: 182)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.053
31/10/2008
63
İstanbul
-
03/01/2017,18:22
Çözüldü 
Sponsor Reklam
Seruz hocam;

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

adams43
Üye
Kullanici Avatari
Üye
42
4
26/02/2009
0
Antalya
Ofis 2007
07/06/2015,16:34
Çözüldü 
Süper. Tam istediğim gibi oldu.
Başkalarına da örnek olur inş.

Teşekkürler.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Firmaya göre Ödeme Şekli ayrımı ile Toplam değerleri form üzerinde gösterme metınaycıcek 4 207 12/01/2017, 23:27 metınaycıcek
Question Tedarikçilere göre toplam alma ve form üzerinde gösterme safakben 5 167 12/01/2017, 12:58 atoz112
  Buton ile rapor açarken kriterde like kullanımı nightashes 2 83 06/01/2017, 22:41 nightashes
  Rapor Yazdırma Sorunu m_demir 2 88 02/01/2017, 20:08 m_demir
  rapor cıktı tarihini rapor ismi olarak yazıcıya gonderme malidolu 7 276 01/01/2017, 14:07 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya