Function Pregledi(BrPredmeta As String)

    Dim SQL As String

    Dim Db As DAO.Database

    Dim Rs As DAO.Recordset

    Dim Temp As String, Znak As String

    Dim BrRekorda As Integer, I As Integer

 

 

    SQL = "SELECT Prezime, Ime,Broj_Predmeta_Pregleda " _

          & "FROM tblINSPEKTORI " _

          & "INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _

          & "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor " _

          & "WHERE Broj_Predmeta_Pregleda= '" & BrPredmeta & "'"

    Set Db = CurrentDb

    Set Rs = Db.OpenRecordset(SQL)

    If Rs.RecordCount = 0 Then

    MsgBox "Nema Podataka"

    GoTo Kraj:

   

    End If

    Do While Not Rs.EOF

    Temp = Temp & Rs!Ime & " " & Rs!Prezime & " isprava broj " & Rs!Broj_Predmeta_Pregleda & ",  "

    Rs.MoveNext

    Loop

    Temp = Left(Temp, Len(Temp) - 3)

    BrRekorda = Rs.RecordCount

    If BrRekorda > 1 Then

        For I = 1 To Len(Temp) - 1

        Znak = Mid(Temp, Len(Temp) - I, 1)

            If Znak = "," Then

            Mid(Temp, Len(Temp) - I, 2) = " i"

            Exit For

            End If

        Next I

    End If

    Pregledi = Temp

    Exit Function

Kraj:

    End Function