iCentar » Racunari i oprema » Programirannje i baze podataka » Access » Abecedni popis u Reportu i oznake za pojedinu stranicu

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

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): Private Sub Report_Activate() Dim Db As Database Dim Rs As Recordset Dim OdS As String Dim DoS As String Set Db = CurrentDb Set Rs = Db.OpenRecordset(Me.RecordSource) If Rs.RecordCount > 0 Then Rs.MoveFirst OdS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1)) Rs.MoveLast DoS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1)) Rs.Close Me.ImePoljaTekstaGdje upisujes = "Od slova: " & OdS & " do slova: " & DoS End If set db=nothing End Sub

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):

Private Sub Report_Activate()
Dim Db As Database
Dim Rs As Recordset
Dim OdS As String
Dim DoS As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(Me.RecordSource)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
OdS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1))
Rs.MoveLast
DoS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1))
Rs.Close
Me.ImePoljaTekstaGdje upisujes = "Od slova: " & OdS & " do slova: " & DoS
End If
set db=nothing
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)

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.

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

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): Dim OdS As String Dim DoS As String Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) DoS = UCase(Left(Me.Radnik, 1)) Me.slovo = "Od: " & OdS & " do: " & DoS OdS = DoS End Sub Private Sub Report_Activate() If Format$(DoS) = "" Then OdS = UCase(Left(Me.Radnik, 1)) End If End Sub

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):

Dim OdS As String
Dim DoS As String
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
DoS = UCase(Left(Me.Radnik, 1))
Me.slovo = "Od: " & OdS & " do: " & DoS
OdS = DoS
End Sub
Private Sub Report_Activate()
If Format$(DoS) = "" Then
OdS = UCase(Left(Me.Radnik, 1))
End If
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

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.

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)

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.

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.