Predmet:Re: Iz kolone u niz
Evo procedura ali gdje se tekst umece nisam bas siguran inace bi odradio do kraja.
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.