Prikazi cijelu temu 04.11.2011 13:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu
Evo.
Mislim da nije potrebno nikakvo abjasnjenje jer sam uradio na tvom primjeru.

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim OdS As String
  2. Dim DoS As String
  3.  
  4.  
  5. Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
  6. DoS = UCase(Left(Me.Radnik, 1))
  7. Me.slovo = "Od: " & OdS & " do: " & DoS
  8. OdS = DoS
  9. End Sub
  10.  
  11. Private Sub Report_Activate()
  12. If Format$(DoS) = "" Then
  13. OdS = UCase(Left(Me.Radnik, 1))
  14. End If
  15. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.