Pretraga na formi

Kako da napravim pretragu pomocu combo box-a. Imam tri combo box-a koja zelim da kombinujem u pretrazi,
a da mi izbaci samo trazene rezultate. U pitanju je forma nabavka.

npr. imam tri pretrage: po broju, po dobavljacu i po posti.
Zelim da napravim pretragu po posti, a zatim u dobijenim rezultatima da napravim pretragu po dobavljacu.

Koristio sam Access 2007.

Hvala svima.

Reklo bi se da uz to ne znaš da koristiš ni pretragu sajta...

Potpis

Ozbiljan i odgovoran mladić

Nisu mi potrebne konstatacije, nego resenje problema.

Ajd, sigurno neko zna, ili mi bar posaljite lokaciju gde to mogu da nadjem.

Hvala.

^ Ovo zvuci vise kao narudzba, nego kao molba, a covek ti je vec odgovorio...

Potpis

"Take Five" is the famous jazz piece written by Paul Desmond and performed by The Dave Brubeck Quartet. It is famous for its distinctive saxophone line and use of the unusual quintuple (5/4) time, from which its name is derived.

Take Five (1966)

Take Five by Al Jarreau 1976

Pogledao sam malo po sajtu.

Evo, sada sam uspeo da napravim pretragu, medjutim,
potrebno je da svi zapisi osim trazenih nestanu sa forme.

Kako to da izvedem.

a posto nemam Access 2007 pa nemožem vidjeti
ali da samo vidiš samo one podatke za koje si odabrao u komboboxu
naporaviš sqlupit i postaviš ga kao record source na poodformi ili formi , gdje već trebaš

nekako ovako bi ti izgledalo

sqlupit=" seloct * from tabela where polje1=" & kombobox1 & " AND polje2=" & kombobox2 " itd...."

Subforma.Form.RecordSource = sqlupit

To je to Trtko. Hvala ti.

Like "*"+[Forms]![''Naziv forme'']![''Naziv Combo Box'']+"*" Or Is Null,
Ovo treba staviti u Query kao uslo. Dakle, sada mogu imati beskonacno mnogo pretraga.
Mogu da pravim pretragu u pretrazi.
Sada mi ostaje samo jos jedan problem:

KAKO DA VRATIM SELEKCIJU (tj. da mi se prikazu sve vrednosti ili ti da ponistim selekciju)

Video sam na forumu da se to radi sa znakom ''*'', ali kada ja stavim taj znak
access mi prijavi gresku, da se taj znak ne nalazi na padajucoj listi (posto koristim combo box),
te da moram izabrati neku vrednost iz padajuce liste.

Sta sada da preduzmem. Kako da omogucim koriscenje zvezde.

Pozdrav svima.

Evo primera u access 2007.

Sada radi pretraga u pretrazi, ali kako da vratim pretragu,
tj. da mi se prikazu svi zapisi. Pokusao sam preko ''*'' ali ne prihvata.

Da li mozda ''*'' ne vazi za access 2007, u sta bas ne verujem.

Poz.

Evo druge varijante, kada radi pretraga preko ''*'',
medjutim tada ne radi pretraga po combo box-u, vec samo
prikazuje sve rezultate kada izaberem ''*''.

Kako sada da resim ovaj problem suprotan od prethodne poruke i baze koju sam postavio na forum.

Dakle zelim da mi radi i pretraga po combo box-u i prikaz svih zapisa preko simbola ''*''

Sumnjam da se problem moze javiti kod povezivanja tabela, voleo bi da neko i tu malo virne.

Mora da na ovom forumu neko zna resenje.

Pa skoro si si sam odgovorio.

Ja to riješavam u kodu gdje provjeravam

If kombobox="*" .....
sqlupit="select * from tabela "

no ima tu još mnogo toga neizrečeno, kad koristiš LIKE dobiješ i ono što možda ne želiš
no dobro ako ti to paše , ali što ako želim samo vidjeti radni nalog pod brojem 123 , dat če mi i sve one ostale
1231,1232 .... itd ...

Evo kako sam ja to riješio s formom koja ima 5 komboboxa za pretragu i podforma u kojoj se prikazuju rezultati.
tu je dolje samo dio koda , da ti pomogne

Dim uvjet as string
uvjet = ""
If IsNull(dobavlac) Or dobavlac = "" Then
Else
If uvjet = "" Then
uvjet = "TblNarudzbe.Sifra_dobavljaca ='" & dobavlac.Column(1) & "'"
Else
uvjet = uvjet + " And TblNarudzbe.Sifra_dobavljaca ='" & dobavlac.Column(1) & "'"
End If
End If

If IsNull(narucio) Or narucio = "" Then
Else
If uvjet = "" Then
uvjet = "TblZahtjevnice.Naziv_narucitelja='" & narucio & "'"
Else
uvjet = uvjet + " And TblZahtjevnice.Naziv_narucitelja='" & narucio & "'"
End If
End If

If IsNull(Artikal) Or Artikal = "" Then
Else
If uvjet = "" Then
uvjet = "TblStavkeNarudzbe.Sifra_artikla ='" & Artikal.Column(1) & "'"
Else
uvjet = uvjet + " And TblStavkeNarudzbe.Sifra_artikla ='" & Artikal.Column(1) & "'"
End If
End If
......
.......

i onda na kraju



If uvjet <> "" Then
sqlt = "SELECT * from tabela where + uvjet

Else
sqlt = "SELECT * from tabela "
End If

Subuniverzal.Form.RecordSource = sqlt

neko možda ima drugačije metode ili ideje , ali ja sam si to tako riješio , pa možda i tebi pomogne

pozdrav

Ja imam na formi dva dugmeta nađi i poništi a imam i pored svakog polja dugme X kojim poništavam samo to polje. Trtko je već odgovorio ali ako hoćeš da vidiš kako ovo radi pogledaj kako sam ja to uradio u bazi za biblioteku pogledaj sledeći post i skini bazu pa pogledaj. Link je:
http://www.elitesecurity.org/t337481-2-Biblioteka-baza-podataka

Potpis

http://biske.rs

Hvala i tebi Biske i Trtku, forma koju si mi predlozio da pogledam odlicno obavlja posao, i sigurno cu nesto iskoristiti,
ali nisam dobro formulisao pitanje.

Vidi, meni pretraga po 4 combo box-a radi (pogledaj poslednju bazu koju sam okacio).
Dakle, ona radi tako sto kada izaberem * prikazuje sve zapise,
kada izaberem npr. pretragu po nazivu dobavljaca, ona takodje radi,
ali ne po imenu dobavljaca, (naprimer dobavljac ''KN''), nego po ID broju dobavlčjaca (ID broj za dobavljaca KN je ''210''), a to mi ne odgovara.
Dakle kada u pretragu po dobavljacu upisem ''210'' ja dobijem sve zapise za tog dobavljaca,
medjutim ja zelim da kada izaberem dobavljaca ''KN'' dobijem sve zapise kojii su za njega vezani, a ne da vrsim
pretragu po njegovom ID broju ''210''.

Da li je problem u projektovanju tabela ili je neki graficki trik ?

Hvala vam, jos jednom.

Nešto sam u frci sa vremenom i na brzinu sam pregledao i mislim da je problem u Row Source (na F4 na kartici Data). Ti si stavio:

a mislim da bi trebalo da staviš:


i da promeniš Bound Column na 2.
Na ovaj način ti biraš komitenta po imenu a prilikom pretrage se ne koristi ime već ID (to je zbog Bound Column 2).

Potpis

http://biske.rs

Umalo da zaboravim, mislim da ti tabele nisu normalizovane jer i kod tabele "Komitenti" i kod tabele "Pošta" imaš 'Kontakt_osoba_1", 'Kontakt_osoba_2', 'Kontakt_osoba_1_telefon',...
Mislim da treba da napraviš još dve tabele KontaktOsoba_Pošta i KontaktOsoba_Komitenti. Jednu da vežeš za tabelu "Pošta" drugu za tabelu "Komitenti". U prvoj bi primarni ključ bibli atributi id pošte i kontakt osobe a u drugoj id komitenta i kontakt osobe.
Toliko za sad...

Potpis

http://biske.rs

Upravo je tu problem.
Cim postavim u kartici data, vrednost bound column=2, tada mi se automatski ukljucuje opcija
Limit to List=Yes, i ne dozvoljava koriscenje zvezdice, to je pokazano u pretposlednjoj bazi koju sam postavio.

Probaj da staviš kombobox kako sam ti predložio i da ne unosiš sam zvezdicu već da postaviš možda na događaj onclick i/ili setfocus da se promeni recordsource podforme sa određenim where uslovom..Možda grešim ali to mi prvo pada na pamet..

Potpis

http://biske.rs

Uspeo sam i sa zvezdicom. Problem je bio kod veze izmedju tabela.
Kao primarni kljuc sam stavio Broj i Naziv, a izbacio sam ID=autonumber.
ID-autonumber mi je pravio problem kod pretrage. Sada je sve ok.
Princip pretrage je ostao isti.

Jos jednom hvala Trtku i tebi Biske. Poz.