Bosna i Hercegovina



#1 04.11.2011-10:00
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,749


Subject: Re: Abecedni popis u Reportu i oznake za pojedinu stranicu
Evo ti provedura.
Mozes je staviti na activate izvjestaja
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#3 04.11.2011-11:50
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 fajlu: rar  ProbaSort.rar
Preuzimanja: 64
Veličina: 77.61 KB


Pozdrav
↑  ↓

#4 04.11.2011-11:54
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,749


Subject: 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.
Pozdrav
↑  ↓

#5 04.11.2011-11:59
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,749


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

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

Pozdrav
↑  ↓

#7 04.11.2011-13:48
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,749


Subject: 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.
Pozdrav
↑  ↓

#9 04.11.2011-14:43
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 fajlu: rar  ProbaSort_2.rar
Preuzimanja: 82
Veličina: 35.04 KB


Pozdrav
↑  ↓

#10 04.11.2011-15:21
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,749


Subject: 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.
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 16.10.2018-15:23.