Prikazi cijelu temu 04.11.2011 12:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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.