[ jmunja @ 19.03.2011. 16:36 ] @
Probao sam da iskoristim, Quick Search koga je Timmy postavio za rešenje jednog problema,
ali nikako nemogu da ga iskoristim za ono što mi treba.
Ja sam hteo da napravim Formu za brzu proveru magacinskih kartica, ali mi uvek javlja grešku
Run-Time error 70
Premission Denied
Kada u RowSource izbrišem uneti podatak za polja koja treba da se pojave u ListBox1 sve
Funkcioniše , ali tada nemam vidljive ostale potrebne segmente za čitanje
Timmy je postavio svoj primer na sledećpj adresi : http://www.elitesecurity.org/t326700-0#1977150
Molim za pomoć .
Pozdrav !
[ timmy @ 20.03.2011. 10:42 ] @
Ne mozes da postavis Listbox osobinu

Code:

RowSource = List1!B2:G60


i da onda iniciras AddItem metodu.

Skini RowSource.

Pozdrav
[ jmunja @ 20.03.2011. 13:33 ] @
Malo sam tražio po netu , pa sam jedan primer koji sam našao prilagodio mojim potrebama,
Ako nekome zatreba ovakav primer neka preuzme.
Timmy hvala za trud.
Pozdrav !
[ neptuncokg @ 21.03.2011. 00:41 ] @
Primer je jako dobar, analizom makroa moze dosta toga da se nauci. Medjutim, ova vrsta pretrage sa Find-metodom ima jednu manu. Naime, ako zadamo pretragu po sifri sa,naprimer, brojem - 1, dobicemo poruku da je pronajeno - 14 rezultata, jer u "A" koloni sve stavke sadrze broj 1. To moze kod korisnika da izazove zabunu. Posto ja dosta koristim ovakve i slicne pretrage, dosao sam do resenja ovog problema na sledeci nacin: Prvo izvrsim filtriranje po zadatom kriterijumu (sifra artikla), pa tako filtriranu listu iskopiram u neki pomocni sheet ("POM" - u primeru koji postavljam). Na tom sheetu uz pomoc "COUNTA" izbrojim dobijene rezultate (u primeru - polje "H1"). Na kraju uz pomoc svojstva RowSource ListBoxa dobijam prikaz trazenih rezultata.
Petlja Do-Loop-While iz tvog primera je jako zahvalna, ali kod baza sa velikim brojem podataka njeno izvrsavanje moze "da potraje". Evo primera. Pozdrav
[ jmunja @ 21.03.2011. 15:23 ] @
Kod mene ovaj primer prijavljuje grešku : Selection.AutoFilter Field:=1, Criteria1:="=" & sifra 'filtriranje po sifri koja se trazi,
tako da nemogu da ga proverim , ali svakako hvala .
Pozdrav !
[ neptuncokg @ 21.03.2011. 20:10 ] @
Probaj IZNAD linije gde prijavi gresku da stavis :
Range("A1").Select
[ jmunja @ 23.03.2011. 04:32 ] @
Dobro je . Radi .
Pozdrav !
[ mrG1 @ 22.08.2011. 20:29 ] @
Odlicno izgleda. Postoji li nacin da se recimo modifikuju pronadjeni podaci u sklopu pretrage?
[ neptuncokg @ 23.08.2011. 01:07 ] @
Ako mislis na izmenu postojecih podataka u bazi - listi, preko Fodme, ogovor je - da. Samo onda Forma mora da se drugacije "organizuje" Ova postojeca sluzi samo za prikaz podataka. Pozdrav