AccessTr.neT
Raporda yürüyen bakiye - Baskı Önizleme

+- AccessTr.neT (https://www.accesstr.net)
+-- Forum: Microsoft Access (https://www.accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://www.accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Raporda yürüyen bakiye (/konu-raporda-yuruyen-bakiye.html)



Raporda yürüyen bakiye - kadirdursun - 11/01/2017

Arkadaşlar merhaba;

Mutabakat raporundaki bakiye kısmını yürüyen bakiye olarak düzeltmem lazım. Yardımcı olabilir misiniz?


Cvp: Raporda yürüyen bakiye - ozanakkaya - 11/01/2017

Merhaba,

Rapordaki Metin68'in denetim kaynağını sil,

Raporun Vba sayfasında en üste aşağıdaki kodu ekle


Kod:
Option Compare Database

Dim GToplam As Currency



Raporda, ayrıntının yazıldığında olayına aşağıdaki kodu ekle.

Kod:
1
2
3
4
5
6
7
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)

    GToplam = GToplam + (Nz([BORC], 0) - Nz(Me.ODEME, 0))

    Me.Metin68 = GToplam

End Sub




Cvp: Raporda yürüyen bakiye - kadirdursun - 11/01/2017

Sayın ozanakkaya;

Teşekkür ediyorum. 
Önceki tarihlerden devir varsa onuda raporda ayrıntının yazıldığında olayına şunu ekleyerek toplattım. Me.Metin68 = Nz([Metin67], 0) + GToplam sonuç doğru çıktı.


Forum use Krzysztof "Supryk" Supryczynski addons.