Centar za edukaciju-BiH



#1 04.11.2011 10:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#2 04.11.2011 11:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 04.11.2011 11:50
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  ProbaSort.rar
Preuzimanja:344
Velicina datoteke:77.61 KB


Pozdrav
↑  ↓

#4 04.11.2011 11:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 04.11.2011 11:59
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#6 04.11.2011 12:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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.
↑  ↓

#7 04.11.2011 13:48
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
↑  ↓

#8 04.11.2011 13:51
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 04.11.2011 14:43
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  ProbaSort_2.rar
Preuzimanja:349
Velicina datoteke:35.04 KB


Pozdrav
↑  ↓

#10 04.11.2011 15:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 3: 15 am.