iCentar » Racunari i oprema » Programirannje i baze podataka » Access

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: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)

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.

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.

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): 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()

zxz

28.08.2016 17:40

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()

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

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?

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

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

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!

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!