Prikazi cijelu temu 05.02.2012 12:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Option Compare Database
  2. Option Explicit
  3. 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):
  1. Private Sub PageFooter_Format(Cancel As Integer, FormatCount As Integer)
  2.  Me.SumaS = ZbirS
  3. End Sub

U Page Header na on format:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
  2. ZbirS = 0
  3. End Sub

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.