• 29 odgovora
  • 11.131 pregleda
multi select u upitu 13.07.2011. u 08:43 · pre 186 meseci #1
imam formu za izbor kriterijuma u upitu
sintaksa je: Forms![imeforme].[imeobjekta]
objekat na formi je listbox.
interesuje kako da podesim upit ako mi je u listbox-u podesena opcija multi select na extend ili simple
pozdrav.

zaboravio sam da pitam sledece,
ako nista nije cekirano u list ili combo boksu da izlista sve po upitu da li je to moguce

[Ovu poruku je menjao Jovan1970 dana 13.07.2011. u 09:56 GMT+1]
Re: multi select u upitu 13.07.2011. u 10:18 · pre 186 meseci #2
Ne znam šta želiš sa tim izborom kriterijuma, ali evo primer koji sam koristio za neku svoju aplikaciju, pa ga prilagodi:

Code:
Private Sub lstDob_Click()

CurrentDb.Execute ("UPDATE [tblTempKalk] SET [Izabrana] = NO")
  
Dim varItm
  
For Each varItm In Me.lstDob.ItemsSelected
CurrentDb.Execute ("UPDATE [tblTempKalk] SET [Izabrana] = True WHERE [SifDob] ='" & Me.lstDob.Column(0, varItm) & "'")
  
Next

Forms![frmMain]![frmTempKalk].Requery
Me.lstDob.Requery
  
End Sub


Kod je postavljen na On Click Event listboxa "lstDob", i selektovanjem šifre dobavljača (text polje) sa liste, vrši se update privremene tabele "tblTempKalk"...
Re: multi select u upitu 13.07.2011. u 10:54 · pre 186 meseci #3
evo sada cu da postavim primer,
u formi PRIMER mogu da odaberem jednu stavku iz liste radno mesto, upit mi vrati sva imena kod kojih je recimo radno mesto vozač,
ali ja bih zeleo da selektujem recimo sve vozače i sve radnike odjednom, ili ako ne selektujem nikog da mi vrati celu tabelu.
nadam se da sam bio jasan ako nisam probacu da pojasnim

evo i 2003 verzija

[Ovu poruku je menjao Jovan1970 dana 13.07.2011. u 17:39 GMT+1]
Re: multi select u upitu 13.07.2011. u 11:39 · pre 186 meseci #4
Hajde prebaci bazu u access 2003 ,jer na poslu nemam 2007.
Potpis
Jednog dana...
Re: multi select u upitu 13.07.2011. u 17:27 · pre 186 meseci #6
dali ovo moze da se primeni na upit kao u primeru ili iskljucivo na formu
Re: multi select u upitu 14.07.2011. u 19:35 · pre 186 meseci #10
bicu tri dana na terenu pa nisam stigao da pogledam primere, ali pogledacu pa cu se javiti u nedelju, kada budem imao vise vremena
sigurno mi nece biti sve jasno
pozdrav i hvala na vasem vremenu
Re: multi select u upitu 14.07.2011. u 20:44 · pre 186 meseci #11
Citat:
Getsbi: Iako ovo pitanje nije do sad postavljano, cenim da je link do ove teme zaslužio da se nađe na spisku "Često postavljana pitanja".


Ili u sve što ste oduvek želeli da znate o accessu (ali niste smeli da pitate) bas mi je ovo trebalo pre par meseci, lupao glavu jedan dan i odustao :D
Re: multi select u upitu 15.07.2011. u 11:18 · pre 185 meseci #12
Jedno malo pojašnjenje u vezi osobine Multi Select list kontrole.

Ako je osobina liste Multi Select postavljena na:

1. Simple - Odabir se vrši klikanjem miša

2. Extend - Odabir se vrši uz pomoć tastera Ctrl (za nesusedne stavke) ili Shift (zasusedne stavke).
Potpis
https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski


Re: multi select u upitu 05.09.2011. u 08:27 · pre 184 meseci #13
pozdrav evo posle duze pauze da se vtratim na temu

Option Compare Database

Private Sub Command4_Click()

Dim ctlList As Control, varItem As Variant
Dim Uslov As String
Dim Polje As String
Polje = "(((RadnoMestoID)="
Uslov = ""

Set ctlList = Forms!PRIMER!List5

For Each varItem In ctlList.ItemsSelected
Uslov = Uslov + Polje & ctlList.ItemData(varItem) & ")) OR "
Next varItem

If Len(Uslov) = 0 Then
DoCmd.OpenForm "PrimerLista"
DoCmd.SetWarnings False
DoCmd.OpenQuery "QPrimer", , acEdit
DoCmd.SetWarnings True
Exit Sub
End If

Uslov = Mid(Uslov, 1, Len(Uslov) - 4)

DoCmd.OpenForm "PrimerLista", , , Uslov
DoCmd.SetWarnings False
DoCmd.OpenQuery "QPrimer", , acEdit
DoCmd.ApplyFilter , Uslov
DoCmd.SetWarnings True

End Sub


potrebno mi je objasnjenja ovog dela koda ako je moguce:

Uslov = Mid(Uslov, 1, Len(Uslov) - 4)

DoCmd.OpenForm "PrimerLista", , , Uslov
DoCmd.SetWarnings False
DoCmd.OpenQuery "QPrimer", , acEdit
DoCmd.ApplyFilter , Uslov
DoCmd.SetWarnings True
Re: multi select u upitu 05.09.2011. u 08:59 · pre 184 meseci #14
Citat:

potrebno mi je objasnjenja ovog dela koda ako je moguce:
Uslov = Mid(Uslov, 1, Len(Uslov) - 4)


Najlakše ti je da vidiš što ti funkcija radi da ispišeš Uslov prije funkcije i poslije

msgbox uslov ...... pa bi ti on ispisao npr

marko OR janko OR zika OR

u onoj petlji ti uvijek na kraju stringa u uslov-u ostaje OR pa ga je zato potrebno izbaciti

MID funcija izdvaja dio stringa iz nekog stringa novitrt=MID(trt, 5 , 15 ) , tu si rekao , odvoji mi od 5 početnog do 15 slova tekst iz teksta trt

LEN(uslov) ti kaze koliko ima slova ( zajedno sa praznim poljima) u nekome stringu



Uslov = Mid(Uslov, 1, Len(Uslov) - 4)

msgbox uslov ...... bi ti sad izgledao ovako

marko OR janko OR zika


Pozdrav
Re: multi select u upitu 05.09.2011. u 09:05 · pre 184 meseci #15
to sam shvatio samo kod mene to nece da radi verovatno gresim u sintaksi pa
evo malog primera, ustvari deo moje baze u kojoj imam problema sa definicijom kriterijuma za upit

Re: multi select u upitu 05.09.2011. u 14:18 · pre 184 meseci #17
da to je to
hvala
a da li bi moglo malo objasnjenje u cemu sam gresio
Re: multi select u upitu 10.06.2017. u 17:04 · pre 114 meseci #18
evo posle više godina da se opet javim u vezi iste teme

da li je moguce dodati filter u akcioni upit
Re: multi select u upitu 10.06.2017. u 18:10 · pre 114 meseci #19
Naravno da može. Akcioni upiti mogu biti razni: Make, Append, Update i Delete. Samo treba da ima smisla. Horizontalni filter postavljaš sa reči WHERE i uslovom iza te reči.
Recimo da je zadatak ovakav: Ažuriraj kolonu cena u tabeli "Table1" s kolonom cena iz tabele "Table2" za zadati uslov da je artikal isti u obe tabele.

UPDATE Table1
INNER JOIN Table2
ON Table1.Art = Table2.Art
SET Table1.Cena = Table2.cena
WHERE (((Table1.Art)=[Table2].[art]));
Potpis
https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski


Re: multi select u upitu 21.06.2017. u 13:59 · pre 113 meseci #20
Treba mi pomoc oko upita i izvjestaja.

Radi se o testiranjima fizicke spremnosti.

Problem: Obrazac testiranja je univerzalni i sadrzi polja za 3 vrste testiranja
Prvi test, Drugi test i Zavrsni test

Zanima me kako da u zbirnom izvjestaju prikazem i lica koja nemaju provedena sva 3 testa?

Za pojedinacne izvjestaje sam napravio 3 upita (prema datumu testiranja) i to radi dobro. Prikazuje mi ono sto mi treba.

Upit za zbirni sam napravio spajanjem tri pojedinacna (obzirom da ima i statickih podataka - ime, prezime, pol itd i dinamickih: broj sklekova, bodovi, procenat itd.)

Pitanje?

Kako da u zbirnom izvjestaju dobijem i lice koje ima npr. samo prvi i drugi a ne i zavrsni test, odnosno da mi prikaze samo ono sto ima zavrseno?

Probao sam sa Is Null or Is Not Null ali ne ide, prikazuje mi samo lica koja imaju sva tri testa zavrsena.
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme