Prikazi cijelu temu 01.09.2016 18:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function Pregledi(BrPredmeta As String)
  2.     Dim SQL As String
  3.     Dim Db As DAO.Database
  4.     Dim Rs As DAO.Recordset
  5.     Dim Temp As String, Znak As String
  6.     Dim BrRekorda As Integer, I As Integer
  7.  
  8.  
  9.     SQL = "SELECT Prezime, Ime,Broj_Predmeta_Pregleda " _
  10.           & "FROM tblINSPEKTORI " _
  11.           & "INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _
  12.           & "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor " _
  13.           & "WHERE Broj_Predmeta_Pregleda= '" & BrPredmeta & "'"
  14.     Set Db = CurrentDb
  15.     Set Rs = Db.OpenRecordset(SQL)
  16.     If Rs.RecordCount = 0 Then
  17.     MsgBox "Nema Podataka"
  18.     GoTo Kraj:
  19.    
  20.     End If
  21.     Do While Not Rs.EOF
  22.     Temp = Temp & Rs!Ime & " " & Rs!Prezime & " isprava broj " & Rs!Broj_Predmeta_Pregleda & ",  "
  23.     Rs.MoveNext
  24.     Loop
  25.     Temp = Left(Temp, Len(Temp) - 3)
  26.     BrRekorda = Rs.RecordCount
  27.     If BrRekorda > 1 Then
  28.         For I = 1 To Len(Temp) - 1
  29.         Znak = Mid(Temp, Len(Temp) - I, 1)
  30.             If Znak = "," Then
  31.             Mid(Temp, Len(Temp) - I, 2) = " i"
  32.             Exit For
  33.             End If
  34.         Next I
  35.     End If
  36.     Pregledi = Temp
  37.     Exit Function
  38. Kraj:
  39.     End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.