Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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!ImepoljaIzRe