Prikazi cijelu temu 05.02.2012-12:25
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: 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:
DownloadIzvorni kod (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:

DownloadIzvorni kod (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:
DownloadIzvorni kod (Visual Basic):
  1. Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
  2. ZbirS = 0
  3. End Sub

Pozdrav