Raporda yürüyen bakiye

11/01/2017, 12:28

kadirdursun

Arkadaşlar merhaba;

Mutabakat raporundaki bakiye kısmını yürüyen bakiye olarak düzeltmem lazım. Yardımcı olabilir misiniz?
11/01/2017, 12:41

ozanakkaya

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:
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
11/01/2017, 13:14

kadirdursun

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ı.