Prikazi cijelu temu 28.08.2016 17:40
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Iz kolone u niz
Kod stavi u neki modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Pregledi()
  2. Dim SQL As String
  3. Dim Db As dao.Database
  4. Dim Rs As dao.Recordset
  5. Dim Temp As String
  6.  
  7. SQL = "SELECT Prezime, Ime,Broj_Predmeta_Pregleda " _
  8.       & "FROM tblINSPEKTORI INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _
  9.       & "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor"
  10. Set Db = CurrentDb
  11. Set Rs = Db.OpenRecordset(SQL)
  12. If Rs.RecordCount > 0 Then
  13. Rs.MoveFirst
  14. Else
  15. MsgBox "Nema Podataka"
  16. GoTo Kraj:
  17. End If
  18. Do While Not Rs.EOF
  19. Temp = Temp & Rs!Ime & "," & Rs!Prezime & "," & Rs!Broj_Predmeta_Pregleda & " i "
  20. Rs.MoveNext
  21. Loop
  22. Temp = Left(Temp, Len(Temp) - 3)
  23. Pregledi = Temp
  24. Exit Function
  25. Kraj:
  26. End Function
Napravi prazan izvjestaj i u njemu stavi samo jedno tekstualno polje.
Na tom polju stavi Can Grow i Can Shrink na yes.
Polje stavi dugo koliko hoces da ti bude sirina ispisa a sirina polja sto uza.
Na njega na kontrolsource napisi:

=Preglsedi()
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.