MOZEBITIPONOVO 27.08.2016 09:17
Predmet:Iz kolone u niz

Pozdrav za sve na forumu.

Poceo sam izradu jedne baze za potrebe kolega koji vrše inspekcijski regled. U jednom izveštaju potrebno mi je da u zadanu formu Naloga ubacim i inspektore koji idu u pegled. Našao sam više primera na natu i nešto napravio ali bih poleo to još malo doraditi popraviti.

- Napravio sam privremenu tabelu tblINSEKTORI_NAPREGLEDUtmp jer ne znam kako da selektujem inspektore za konkretn pregled

Set rst = db.OpenRecordset("SELECT Prezime_Ime " & _
" FROM tblINSPEKTORI_NA_PREGLEDUtmp")

Kako bez ove privremene tabele?

- Kako da izmedju pretposlednjeg i poslednjeg zapisa umesto zareza da umetnem slovo i.
Prilozi:
Baza_Copy.zip (Velicina datoteke:69.55 KB)

MOZEBITIPONOVO 27.08.2016 09:19
Predmet:Re: Iz kolone u niz

Evo i primer
Prilozi:
Baza_Copy.zip (Velicina datoteke:69.55 KB)

zxz 28.08.2016 12:02
Predmet:Re: Iz kolone u niz

Ja sam pokusao ali mi bas nije jasno sta hoces odnosno jasno mi je sta hopces ali neznam iz koje tabele odnosno koje podatke i iz koje tabele hoces da prikazes u jednom redu.

MOZEBITIPONOVO 28.08.2016 16:00
Predmet:Re: Iz kolone u niz

Iz tabele tblINSPEKTORI_NA_PREGLEDU, koja je u vezi sa tabelom tblPREGLED, poljem Broj_Predmeta, treba da u izveÅ¡taju prikažem niz kao Petrović Petar isprava broj 11111, Jovanović Jovan isprava broj 22222, stim da ako ima vise inspektora onda da umesto zareza između pretposlednjeg i poslednjeg bude i.

zxz 28.08.2016 17:40
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()

MOZEBITIPONOVO 28.08.2016 20:40
Predmet:Re: Iz kolone u niz

I ja sam poceo odavde. Kod koji mi je poslužio za početak sličan je ovom. Ja sam u stvari napravio neko reÅ¡enje ali nije to to. Napravio sam privremenu tabelu koja se puni kada se otvori Continuous forma (jedina u primeru) frmSTAMPA_NALOGA_1 i kada se klikne na polje Poslovna jedinica, koji za vrednost polja Broj_Predmeta_Pregleda, Append kverijem napuni privremenu tabelu tblINSPEKTORI_NA_ PREGLEDUtemp a onda kodom koji je sličan tvom čita inspektore i to upiÅ¡e u polje rez odakle se to upiÅ¡e u Report gde je i ostali deo teksta. Ja bih hteo izbeći tu privremenu tabelu, to radi posao ali ako neko drugi radi to isto na drugom računaru onda će se privremena tabela popuniti i drugim podacima. Znači hteo bih da na formi frmSTAMPA_NALOGA_1, klikom na polje Poslovna jedinica, prikaze niz u izveÅ¡taja koji se otvara klikom na to polje kao Petrović Petar isprava broj 11111, Jovanović Jovan isprava broj 22222, stim da ako je jedan inspektor na pregledu piÅ¡e Petrović Petar isprava broj 11111 ako su dva inspektora na pregledu piÅ¡e Petrović Petar isprava broj 11111 i (umesto zareza slovo i) Jovanović Jovan isprava broj 2222 ako su tri inspektora na pregledu piÅ¡e Petrović Petar isprava broj 11111, Jovanović Jovan isprava broj 2222 i (umesto zareza slovo i) Simić Sima isprava broj 2222 itd

zxz 28.08.2016 21:06
Predmet:Re: Iz kolone u niz

E sad neznam jesmam li uspio ili nisam.
Opisao si kako si ti radio a i vidio sam ja to tvoje ali sam pokuso napraviti kao sto si i napisao.
Znaci ispise sve predmete i napise imena inspektora na predmetu.
E sad mozda ti tu treba kao sto opisujes da ako ima jedan predmet vise inspektora da to izdvoji odnosno da napise jedan broj predmeta pa zatim imena inspektora.
Mozda tako treba neznam?

MOZEBITIPONOVO 28.08.2016 21:18
Predmet:Re: Iz kolone u niz

U tekstu mi ne treba broj predmeta. Tekst je podugačak, nisam hteo opterećivati njime, a ovo je samo jedan deo koji trebam ubaciti Petrović Petar isprava broj 11111 i ostale inspektore ako ih je viÅ¡e. Polje Broj_Predmeta_pregleda je veza za tabele tblPREGLED i tblINSPEKTORI_NA_PREGLEDU

zxz 28.08.2016 21:54
Predmet:Re: Iz kolone u niz

Pa dobro to sam i napravio samo sto sam stavio broja predmeta umjesto broj isprave:
SQL = "SELECT Prezime, Ime,tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor " _
& "FROM tblINSPEKTORI INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _
& "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor"

i u kodu popravi ovo:
Do While Not Rs.EOF
Temp = Temp & Rs!Ime & "," & Rs!Prezime & "," & Rs!JMBG_Inspektor & " i "
Rs.MoveNext

MOZEBITIPONOVO 01.09.2016 10:32
Predmet:Re: Iz kolone u niz

Nisam bio u prilici javiti se ranije. Zakacio sam novi primer gde je malo više ilustrovano i napisano u samom reportu. Kada se otvori Report rptNALOG sa forme frmSTAMPA_NALOGA_1 mislim da je malo jasnije sa objašnjenjima. Pozdrav!