pmiroslav 04.11.2011 11:00
Predmet:Abecedni popis u Reportu i oznake za pojedinu stranicu

Dali netko ima ideju kako u Page Footer reporta koji sadrži neki spisak složen po abecedi, recimo imena , staviti tekst box u kojem bi bilo početno slovo prvog zapisa i početno slovo zadnje zapisa u Reportu, tako da kada ispisani papiri listaju da se vidi od kojeg do kojeg slova su imena na tom listu.

Recimo :    A do D
        D do E
itd

zxz 04.11.2011 12:26
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

Evo ti provedura.
Mozes je staviti na activate izvjestaja
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Report_Activate()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim OdS As String
  5. Dim DoS As String
  6.  
  7.  
  8. Set Db = CurrentDb
  9. Set Rs = Db.OpenRecordset(Me.RecordSource)
  10. If Rs.RecordCount > 0 Then
  11. Rs.MoveFirst
  12. OdS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1))
  13. Rs.MoveLast
  14. DoS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1))
  15. Rs.Close
  16. Me.ImePoljaTekstaGdje upisujes = "Od slova: " & OdS & " do slova: " & DoS
  17. End If
  18. set db=nothing
  19. End Sub

pmiroslav 04.11.2011 12:50
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

Hvala na brzom odgovoru, ali na žalost ne radi kako treba.
Na svim stranicama u podnožju mi se ispiše "Od slova A do slova Z"

Napominjem da sam ovu funkciju isprobavao i na On Format, On Page, On Print i uvjek isto
Prilozi:
ProbaSort.rar (Velicina datoteke:77.61 KB)

zxz 04.11.2011 12:54
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

E pa ja tebe nisam razumio,
Ti znaci to hoces po stranicama.
Da ti kazem pravo nisam ni razmisljao o tome.
Sad cu to pogledati.

pmiroslav 04.11.2011 12:59
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

Tako je, želio bih da se ispiÅ¡e od kojeg do kojeg slova je zastupljen popis na određenoj stranici

zxz 04.11.2011 13:32
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

pmiroslav 04.11.2011 14:48
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

Hvala za ovo, jedino Å¡to mi u mom konkretnom primjeru na prcoj stranici ne ispisuje OdS,
pa bude ispisano

Od: Do: D

zxz 04.11.2011 14:51
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

Moralo bi pisati ako si stavio na:
Sub Report_Activate
Private Sub Report_Activate()
If Format$(DoS) = "" Then
OdS = UCase(Left(Me.Radnik, 1))
End If
Jedino nece ako ga ne zatvaras pa ponovo pokreces ali i tad treba da pise neko slovo.

pmiroslav 04.11.2011 15:43
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

Evo moj primjer, možda ti uočiÅ¡ gdje je kvaka, ja ne uspjevam.
Prilozi:
ProbaSort_2.rar (Velicina datoteke:35.04 KB)

zxz 04.11.2011 16:21
Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu

Imas neku gresku na izvjestaju ali nisam trazio.
Ne radi ti dogadjaj on activate.
Napravi prazan report i sve prekopiraj u taj novi i radit ce ti.