Predmet:Medjuzbir po stranicama
Ovo vam je vjerovatno cesto puta trebalo a to je da imate zbir nekog polja po stranici.
Sta trebate uraditi?
Napraviti jedno teksrualno polje u Page Footer izvjestaju i dajte mu ime SumaS.
Kod ispod postavite kako je napisano i nezaboravite promijeniti ime polja za koje zelite imati zbir.
Na Vruh modula:
PreuzmiIzvorni kôd (Visual Basic):Option Compare Database
Option Explicit
Dim ZbirS As Currency
U detail izvjestaja na on Print
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then
ZbirS = ZbirS + Me.ImeVasegPolja'Ovjde ime polja za koji zelite zbir
endif
End Sub
U Page footer na on format:
PreuzmiIzvorni kôd (Visual Basic):Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
Me.SumaS = ZbirS
End Sub
U Page Header na on format:
PreuzmiIzvorni kôd (Visual Basic):Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
ZbirS = 0
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.