Hoću da izbegnem opcije desnog klika za filtriranje podataka na formi, znači samo komandni dugmići dolaze u obzir. Elem, u pitanju je pretraga nekretnina i razmaženi kupac bira po sedam ili osam kriterijuma. Na formi je desetak što list, što kombo boksova, i svaki od njih treba da sužava pretragu. E, to mi je problem - sve radi, za svaki kriterijum ok, sem za dva koji su BETWEEN - AND . Znam da je tema bila, ali ako mi neko kaže kako da ovu bazu aploudujem - rado ću to i da uradim.
Pretraga u bazi po višestrukom kriterijumu
Zaključano
Zakačeno
A ti upališ motorku.... Dosetio se i ja da prikačim bazu, eto je gore. Dakle, možda nisam bio dovoljno precizan u opisu problema, ali ko otvori ovu bazu videće Form2 koji savršeno radi pretragu po jednom kriterijumu, videće i Form3 koji lepo pretražuje sem CENA od - do. E, tu sam zakucao i treba mi pomoć: ovo je RecordSource Form3 :
SELECT tblNEKRETNINE.STATUS, tblNEKRETNINE.Šifra, tblNEKRETNINE.[VRSTA OBJEKTA], tblNEKRETNINE.[MESTO OBJEKTA], tblNEKRETNINE.[LOKACIJA OBJEKTA], tblNEKRETNINE.Površina, tblNEKRETNINE.Spratnost, tblNEKRETNINE.[Vrsta grejanja], tblNEKRETNINE.Telefon, tblNEKRETNINE.CENA, tblNEKRETNINE.TOP FROM tblNEKRETNINE WHERE (((tblNEKRETNINE.STATUS) Like "*"+Forms!Form3!PretragaSTATUS+"*" Or (tblNEKRETNINE.STATUS) Is Null) And ((tblNEKRETNINE.Šifra) Like "*"+Forms!Form3!PretragaŠifra+"*" Or (tblNEKRETNINE.Šifra) Is Null) And ((tblNEKRETNINE.[VRSTA OBJEKTA]) Like "*"+Forms!Form3!PretragaVO+"*" Or (tblNEKRETNINE.[VRSTA OBJEKTA]) Is Null) And ((tblNEKRETNINE.[MESTO OBJEKTA]) Like "*"+Forms!Form3!PretragaMO+"*" Or (tblNEKRETNINE.[MESTO OBJEKTA]) Is Null) And ((tblNEKRETNINE.[LOKACIJA OBJEKTA]) Like "*"+Forms!Form3!PretragaLO+"*" Or (tblNEKRETNINE.[LOKACIJA OBJEKTA]) Is Null) And ((tblNEKRETNINE.Površina) Like "*"+Forms!Form3!PretragaPovršina+"*" Or (tblNEKRETNINE.Površina) Is Null) And ((tblNEKRETNINE.Spratnost) Like "*"+Forms!Form3!PretragaSpratnost+"*" Or (tblNEKRETNINE.Spratnost) Is Null) And ((tblNEKRETNINE.[Vrsta grejanja]) Like "*"+Forms!Form3!PretragaVG+"*" Or (tblNEKRETNINE.[Vrsta grejanja]) Is Null) And ((tblNEKRETNINE.Telefon) Like "*"+Forms!Form3!PretragaTelefon+"*" Or (tblNEKRETNINE.Telefon) Is Null));
OK, sad vidim da pretragu po telefonu ( da li ima ili ne ) treba izbaciti, ali je poenta da ne mogu da izbunarim od - do. E, pa hajde moderatori - ima li meni pomoći ?
SELECT tblNEKRETNINE.STATUS, tblNEKRETNINE.Šifra, tblNEKRETNINE.[VRSTA OBJEKTA], tblNEKRETNINE.[MESTO OBJEKTA], tblNEKRETNINE.[LOKACIJA OBJEKTA], tblNEKRETNINE.Površina, tblNEKRETNINE.Spratnost, tblNEKRETNINE.[Vrsta grejanja], tblNEKRETNINE.Telefon, tblNEKRETNINE.CENA, tblNEKRETNINE.TOP FROM tblNEKRETNINE WHERE (((tblNEKRETNINE.STATUS) Like "*"+Forms!Form3!PretragaSTATUS+"*" Or (tblNEKRETNINE.STATUS) Is Null) And ((tblNEKRETNINE.Šifra) Like "*"+Forms!Form3!PretragaŠifra+"*" Or (tblNEKRETNINE.Šifra) Is Null) And ((tblNEKRETNINE.[VRSTA OBJEKTA]) Like "*"+Forms!Form3!PretragaVO+"*" Or (tblNEKRETNINE.[VRSTA OBJEKTA]) Is Null) And ((tblNEKRETNINE.[MESTO OBJEKTA]) Like "*"+Forms!Form3!PretragaMO+"*" Or (tblNEKRETNINE.[MESTO OBJEKTA]) Is Null) And ((tblNEKRETNINE.[LOKACIJA OBJEKTA]) Like "*"+Forms!Form3!PretragaLO+"*" Or (tblNEKRETNINE.[LOKACIJA OBJEKTA]) Is Null) And ((tblNEKRETNINE.Površina) Like "*"+Forms!Form3!PretragaPovršina+"*" Or (tblNEKRETNINE.Površina) Is Null) And ((tblNEKRETNINE.Spratnost) Like "*"+Forms!Form3!PretragaSpratnost+"*" Or (tblNEKRETNINE.Spratnost) Is Null) And ((tblNEKRETNINE.[Vrsta grejanja]) Like "*"+Forms!Form3!PretragaVG+"*" Or (tblNEKRETNINE.[Vrsta grejanja]) Is Null) And ((tblNEKRETNINE.Telefon) Like "*"+Forms!Form3!PretragaTelefon+"*" Or (tblNEKRETNINE.Telefon) Is Null));
OK, sad vidim da pretragu po telefonu ( da li ima ili ne ) treba izbaciti, ali je poenta da ne mogu da izbunarim od - do. E, pa hajde moderatori - ima li meni pomoći ?
Stavio sam u kriterijum za polje CENA u upitu :
>=[Forms]![Form3]![PretragaCENAod] And <=[Forms]![Form3]![PretragaCENAdo]
i radi. Valja još da za tekst box PretragaCENAod Default Value bude 0, a za PretragaCENAdo maksimalna cena iz tabele, tako će raditi i ako ne uneseš nikakav kriterijum.
Hvala BK. Ako stavim ovo što je dole - ni da bekne !!!
SELECT tblNEKRETNINE.STATUS, tblNEKRETNINE.Šifra, tblNEKRETNINE.[VRSTA OBJEKTA], tblNEKRETNINE.[MESTO OBJEKTA], tblNEKRETNINE.[LOKACIJA OBJEKTA], tblNEKRETNINE.Površina, tblNEKRETNINE.Spratnost, tblNEKRETNINE.[Vrsta grejanja], tblNEKRETNINE.Telefon, tblNEKRETNINE.CENA, tblNEKRETNINE.TOP FROM tblNEKRETNINE WHERE (((tblNEKRETNINE.STATUS) Like "*"+Forms!Form3!PretragaSTATUS+"*" Or (tblNEKRETNINE.STATUS) Is Null) And ((tblNEKRETNINE.Šifra) Like "*"+Forms!Form3!PretragaŠifra+"*" Or (tblNEKRETNINE.Šifra) Is Null) And ((tblNEKRETNINE.[VRSTA OBJEKTA]) Like "*"+Forms!Form3!PretragaVO+"*" Or (tblNEKRETNINE.[VRSTA OBJEKTA]) Is Null) And ((tblNEKRETNINE.[MESTO OBJEKTA]) Like "*"+Forms!Form3!PretragaMO+"*" Or (tblNEKRETNINE.[MESTO OBJEKTA]) Is Null) And ((tblNEKRETNINE.[LOKACIJA OBJEKTA]) Like "*"+Forms!Form3!PretragaLO+"*" Or (tblNEKRETNINE.[LOKACIJA OBJEKTA]) Is Null) And ((tblNEKRETNINE.Površina) Like "*"+Forms!Form3!PretragaPovršina+"*" Or (tblNEKRETNINE.Površina) Is Null) And ((tblNEKRETNINE.Spratnost) Like "*"+Forms!Form3!PretragaSpratnost+"*" Or (tblNEKRETNINE.Spratnost) Is Null) And ((tblNEKRETNINE.[Vrsta grejanja]) Like "*"+Forms!Form3!PretragaVG+"*" Or (tblNEKRETNINE.[Vrsta grejanja]) Is Null) And ((tblNEKRETNINE.Telefon) Like "*"+Forms!Form3!PretragaTelefon+"*" Or (tblNEKRETNINE.Telefon) Is Null) AND ((tblNEKRETNINE.CENA) >=[Forms]![Form3]![PretragaCENAod]) And ((tblNEKRETNINE.CENA) <=[Forms]![Form3]![PretragaCENAdo]));
SELECT tblNEKRETNINE.STATUS, tblNEKRETNINE.Šifra, tblNEKRETNINE.[VRSTA OBJEKTA], tblNEKRETNINE.[MESTO OBJEKTA], tblNEKRETNINE.[LOKACIJA OBJEKTA], tblNEKRETNINE.Površina, tblNEKRETNINE.Spratnost, tblNEKRETNINE.[Vrsta grejanja], tblNEKRETNINE.Telefon, tblNEKRETNINE.CENA, tblNEKRETNINE.TOP FROM tblNEKRETNINE WHERE (((tblNEKRETNINE.STATUS) Like "*"+Forms!Form3!PretragaSTATUS+"*" Or (tblNEKRETNINE.STATUS) Is Null) And ((tblNEKRETNINE.Šifra) Like "*"+Forms!Form3!PretragaŠifra+"*" Or (tblNEKRETNINE.Šifra) Is Null) And ((tblNEKRETNINE.[VRSTA OBJEKTA]) Like "*"+Forms!Form3!PretragaVO+"*" Or (tblNEKRETNINE.[VRSTA OBJEKTA]) Is Null) And ((tblNEKRETNINE.[MESTO OBJEKTA]) Like "*"+Forms!Form3!PretragaMO+"*" Or (tblNEKRETNINE.[MESTO OBJEKTA]) Is Null) And ((tblNEKRETNINE.[LOKACIJA OBJEKTA]) Like "*"+Forms!Form3!PretragaLO+"*" Or (tblNEKRETNINE.[LOKACIJA OBJEKTA]) Is Null) And ((tblNEKRETNINE.Površina) Like "*"+Forms!Form3!PretragaPovršina+"*" Or (tblNEKRETNINE.Površina) Is Null) And ((tblNEKRETNINE.Spratnost) Like "*"+Forms!Form3!PretragaSpratnost+"*" Or (tblNEKRETNINE.Spratnost) Is Null) And ((tblNEKRETNINE.[Vrsta grejanja]) Like "*"+Forms!Form3!PretragaVG+"*" Or (tblNEKRETNINE.[Vrsta grejanja]) Is Null) And ((tblNEKRETNINE.Telefon) Like "*"+Forms!Form3!PretragaTelefon+"*" Or (tblNEKRETNINE.Telefon) Is Null) AND ((tblNEKRETNINE.CENA) >=[Forms]![Form3]![PretragaCENAod]) And ((tblNEKRETNINE.CENA) <=[Forms]![Form3]![PretragaCENAdo]));
SELECT tblNEKRETNINE.STATUS, tblNEKRETNINE.Šifra, tblNEKRETNINE.[VRSTA OBJEKTA],
tblNEKRETNINE.[MESTO OBJEKTA], tblNEKRETNINE.[LOKACIJA OBJEKTA], tblNEKRETNINE.Površina,
tblNEKRETNINE.Spratnost, tblNEKRETNINE.[Vrsta grejanja], tblNEKRETNINE.Telefon, tblNEKRETNINE.CENA,
tblNEKRETNINE.TOP FROM tblNEKRETNINE WHERE (((tblNEKRETNINE.STATUS) Like
"*"+Forms!Form3!PretragaSTATUS+"*" Or (tblNEKRETNINE.STATUS) Is Null) And ((tblNEKRETNINE.Šifra) Like
"*"+Forms!Form3!PretragaŠifra+"*" Or (tblNEKRETNINE.Šifra) Is Null) And ((tblNEKRETNINE.[VRSTA
OBJEKTA]) Like "*"+Forms!Form3!PretragaVO+"*" Or (tblNEKRETNINE.[VRSTA OBJEKTA]) Is Null) And
((tblNEKRETNINE.[MESTO OBJEKTA]) Like "*"+Forms!Form3!PretragaMO+"*" Or (tblNEKRETNINE.[MESTO
OBJEKTA]) Is Null) And ((tblNEKRETNINE.[LOKACIJA OBJEKTA]) Like "*"+Forms!Form3!PretragaLO+"*" Or
(tblNEKRETNINE.[LOKACIJA OBJEKTA]) Is Null) And ((tblNEKRETNINE.Površina) Like
"*"+Forms!Form3!PretragaPovršina+"*" Or (tblNEKRETNINE.Površina) Is Null) And ((tblNEKRETNINE.Spratnost)
Like "*"+Forms!Form3!PretragaSpratnost+"*" Or (tblNEKRETNINE.Spratnost) Is Null) And
((tblNEKRETNINE.[Vrsta grejanja]) Like "*"+Forms!Form3!PretragaVG+"*" Or (tblNEKRETNINE.[Vrsta grejanja])
Is Null) And ((tblNEKRETNINE.Telefon) Like "*"+Forms!Form3!PretragaTelefon+"*" Or (tblNEKRETNINE.Telefon)
Is Null) And ((tblNEKRETNINE.CENA)>=Forms!Form3!PretragaCENAod) And
(tblNEKRETNINE.CENA)<=Forms!Form3!PretragaCENAdo);
E - sad radi. BiloKoje, brate mili, hvala ti što si mi oči otvorio. Ako te put ikad nanese u SM, svaki put imaš piće i plavušu. Živ bio !
tblNEKRETNINE.[MESTO OBJEKTA], tblNEKRETNINE.[LOKACIJA OBJEKTA], tblNEKRETNINE.Površina,
tblNEKRETNINE.Spratnost, tblNEKRETNINE.[Vrsta grejanja], tblNEKRETNINE.Telefon, tblNEKRETNINE.CENA,
tblNEKRETNINE.TOP FROM tblNEKRETNINE WHERE (((tblNEKRETNINE.STATUS) Like
"*"+Forms!Form3!PretragaSTATUS+"*" Or (tblNEKRETNINE.STATUS) Is Null) And ((tblNEKRETNINE.Šifra) Like
"*"+Forms!Form3!PretragaŠifra+"*" Or (tblNEKRETNINE.Šifra) Is Null) And ((tblNEKRETNINE.[VRSTA
OBJEKTA]) Like "*"+Forms!Form3!PretragaVO+"*" Or (tblNEKRETNINE.[VRSTA OBJEKTA]) Is Null) And
((tblNEKRETNINE.[MESTO OBJEKTA]) Like "*"+Forms!Form3!PretragaMO+"*" Or (tblNEKRETNINE.[MESTO
OBJEKTA]) Is Null) And ((tblNEKRETNINE.[LOKACIJA OBJEKTA]) Like "*"+Forms!Form3!PretragaLO+"*" Or
(tblNEKRETNINE.[LOKACIJA OBJEKTA]) Is Null) And ((tblNEKRETNINE.Površina) Like
"*"+Forms!Form3!PretragaPovršina+"*" Or (tblNEKRETNINE.Površina) Is Null) And ((tblNEKRETNINE.Spratnost)
Like "*"+Forms!Form3!PretragaSpratnost+"*" Or (tblNEKRETNINE.Spratnost) Is Null) And
((tblNEKRETNINE.[Vrsta grejanja]) Like "*"+Forms!Form3!PretragaVG+"*" Or (tblNEKRETNINE.[Vrsta grejanja])
Is Null) And ((tblNEKRETNINE.Telefon) Like "*"+Forms!Form3!PretragaTelefon+"*" Or (tblNEKRETNINE.Telefon)
Is Null) And ((tblNEKRETNINE.CENA)>=Forms!Form3!PretragaCENAod) And
(tblNEKRETNINE.CENA)<=Forms!Form3!PretragaCENAdo);
E - sad radi. BiloKoje, brate mili, hvala ti što si mi oči otvorio. Ako te put ikad nanese u SM, svaki put imaš piće i plavušu. Živ bio !
Kod mene radi. Menjao sam Form3.
OK! Sve u svemu - radi. Hvala od srca.