Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Pregledi()
Dim SQL As String
Dim Db As dao.Database
Dim Rs As dao.Recordset
Dim Temp As String
SQL = "SELECT Prezime, Ime,Broj_Predmeta_Pregleda " _
& "FROM tblINSPEKTORI INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _
& "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
Else
MsgBox "Nema Podataka"
GoTo Kraj:
End If
Do While Not Rs.EOF
Temp = Temp & Rs!Ime & "," & Rs!Prez