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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.