Moram da se izvinim zbog svog prošlog posta, bio sam u sred posla i malo nestrpljivo odreagovao, a kad sam počeo da ga editujem otišao na drugu stranu i ostade zapis o mojoj prekoj naravi
Ma dobar sam ja.
Evo zSlavko primer, bio si na dobrom putu, samo što dok pišeš kod ti moraš da navedeš na koji se objekat taj kod odnosi, znači na početku ti fali
Lista.RowSource = Select ... i tako dalje. Znači kompletan kod izgleda doslovce ovako za ovaj primer
Code:
Private Sub pretraga_Change()
LISTA.RowSource = "Select artikli.*, 1 As SortOrder From Artikli Where nazivartikla Like '" & pretraga.Text & _
"*' Union Select artikli.*, 2 As SortOrder From Artikli Where nazivartikla Like '*" & pretraga.Text & _
"*' And nazivartikla not like '" & pretraga.Text & "*' Union Select artikli.*, 3 As SortOrder " & _
"From Artikli Where NazivArtikla not like '*" & pretraga.Text & "*' Order By SortOrder, nazivartikla"
End Sub
Ostaje ti i dalje da zameniš naziv tabele koju pretražuješ i naziv kontrola na formi i to je to. Ovaj kod je malo komplikovaniji nego što sam očekivao, ali eto da bi sprečio duplikaciju malo sam modifikovao kod za drugi korak i izbacio one artikle koji su se našli već u prvom koraku. Ovo sam napisao čisto da ne bude da nisam u pravu i da može tako
, a pravo rešenje problema je sledeće :
Code:
Private Sub pretraga_Change()
Dim SortStr As String
SortStr = "IIf(InStr(1, [NazivArtikla], '" & pretraga.Text & "')"
LISTA.RowSource = "SELECT artikli.šifraartikla, artikli.nazivartikla, " & SortStr & _
" = 1, 1, " & SortStr & " > 1, 2, 3)) AS SortOrder FROM artikli ORDER BY " & SortStr & _
" = 1, 1, " & SortStr & " > 1, 2, 3)), artikli.nazivartikla;"
End Sub
Sa funkcijom Instr smo odredili početnu poziciju reči u polju pretraga, ako je ono 1 sa SortOrder ga prikazujemo na vrhu, ako se nalazi u reči, samo reč ne počinje tim stringom onda mu se dodeljuje SortOrder 2 i finalno, ostao je slučaj kada reč nije nađena (Instr daje vrednost 0) i to prikazujemo na kraju.
Pozdrav svima, sad ako ga ne ubodeš naljutiću se
Eto ja dok sam pisao poruku, isprobavao, preteče me kolega sdds, probaj da kombinacijom ova dva rešenja nađeš pravo, s tim što njegovo rešenje i dalje sortira po ID i ne postavlja na vrh one podatke koji počinju sa pojmom za pretragu. Uvek možeš da postaviš u kod Debug.Print Lista.RowSource i da dobijeni rezultat pastuješ u query builder, a rezultat ćeš videti ako pritisneš ALT + G u Visual basic editoru.
Ozbiljan i odgovoran mladić
Pretraga po bilo kojem delu reči
Re: Pretraga po bilo kojem delu reči