Prikazi cijelu temu 04.11.2011-11:26
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


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