Predmet:Re: Iz kolone u niz
Kod stavi u neki modul.
PreuzmiIzvorni kôd (Visual Basic):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!Prezime & "," & Rs!Broj_Predmeta_Pregleda & " i "
Rs.MoveNext
Loop
Temp = Left(Temp, Len(Temp) - 3)
Pregledi = Temp
Exit Function
Kraj:
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()
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.