[ rribaric @ 26.09.2004. 09:22 ] @
Unbound polje mi služi za unos texta koji se uspoređuje s postojećim u tablicama.(pretraživač).
Zašto kad nekom polju odredim event on change ,kad se desi promjena i on pozove tu funkciju uvijek provjeri jedno slovo manje .Npr unesem «r» on javi pratan skup pa «ro» on uzme samo r itd......

Kako bi mogao riješit ovaj problem.Dali treba mjenjat Event na koji reagira funkcija i koji da stavim ili ima neki način da se to sredi unutar koda kojeg poziva event on change.
ili radim mnešto što je neizvedivo
Hvala!
[ filjo @ 26.09.2004. 09:47 ] @
Objasni malo detaljnije.

Kom polju dodelis dogadjaj onChange? Da li tom unbound ili nekom drugom.
Ako dodelis unbound polju, onda ti je trenutna vrednost unbound polja:

text0.Text a ne u text0.value

Mozda ti je los algoritam koji vrsi pretragu. Daj malo koda.
[ rribaric @ 26.09.2004. 12:39 ] @
Dim koliko,txtsearch As String
clearcaptions

Rem koliko je broj stringova u pretraživaèu texbox

MsgBox IsNull(mysearch)
ok = True
If IsNull(mysearch) Then
txtsearch = "*"
ok = False
MsgBox txtsearch
End If
If ok Then
txtsearch = mysearch
koliko = Len(txtsearch)


"mysearch " je unbound polje u njega unosim text I prilikom unosa svakog slova cod bi se trebao pokrenut.Cod radi ali uvijek uzima jedno slovo manje iz unbound polja.
Txtsearch dodjeljujem vrijednost mysearch da daljnje pretraživanje u kodu.
[ filjo @ 26.09.2004. 12:56 ] @

Dim koliko,txtsearch As String
clearcaptions

Rem koliko je broj stringova u pretraživaèu texbox

MsgBox IsNull(mysearch.Text)
ok = True
If IsNull(mysearch.Text) Then
txtsearch = "*"
ok = False
MsgBox txtsearch
End If
If ok Then
txtsearch = mysearch.Text
koliko = Len(txtsearch)

Probaj sa ovim trebalo bi da radi. Sto jednostavno ne stavis prekidnu tacku na funkciju i vidis sve sta se desava u mysearch?

Koliko ti nije broj stringova nego duzina stringa unbound polja.

Ovo .Text ti je potrebno zato sto se tvoj mysearch ako ga tako napises odnosi na mysearch.value a taj value dobije vrednost tek nakon izlaska iz polja, ali zato mysearch.text drzi trenutnu vrednost polja na ekranu. Znaci ono sto ukucavas
[ rribaric @ 26.09.2004. 15:01 ] @
pitanje!
""" Sto jednostavno ne stavis prekidnu tacku na funkciju i vidis sve sta se desava u mysearch? """"-novi sam u ovome (3 -4 mjeseca) pa ne znam baš sve cake a i nemogu sve pročitat!
Kako da stavim prekidnu točku!Interesira me na koji način mogu pratit izvršenje koda tako da ne moram ukucavati non-stop msgboxove.

Ovo što si mi napisao RADI!I puno ti hvala na tome jer me je već frustriralo!
Romano!
[ rribaric @ 27.09.2004. 16:57 ] @
HELP!!!
Pojavio mi se problem da nakon unijetog karaktera (slova) polje za unos izgubi fokus-ode na listbox za koje se pretraživanje odnosi.
Odredio sam na kraju koda setfocus za to polje međutim ond mi uvijek počinje od prvog karaktera.
Kako da ostavim fokus na tom polju dok ne unesem cijelu riječ po kojoj pretražujem tablicu.
[ filjo @ 28.09.2004. 16:01 ] @
Malo sam se iznervirao na drugim temama pa nisam nista pratio 2 dana, a jos promasaj na 217.000 na kladionici i to ti je to.


Prekidnu tacku postavljas tako sto kliknes na liniju na koju zelis postaviti prekid bas tamo gde je kruzic(strelica).



Odgovor na drugo pitanje. Ne mozes da bezis sa unbound polja vec mora da ostanes u njemu a da resis listbox pozivanje procedura imelistboxa.Refresh itd. Nemoj da ocekujes ko sto u vecini slucajeva kad ti zatreba,ne ocekujes da kad ponovo udjes u textbox da se ti ostati stare vrednosti u polju.

Problem mozes resiti i tako sto upamtis staru vrednost textboxa pa je posle ulaska upises u textbox.value i .text, pa jedan refresh ili tako nesto. Probaj ovo pa javi posto mene mrzi.Ako bude problema pomoci cemo.

Poz
[ rribaric @ 28.09.2004. 18:53 ] @
Nisam uspio.
Napravio sam kompletnu proceduru za filter u listboxu a nemogu riješit to tekst polje koje reagira na on change.Za poludit.
A procedura je bazirana na događaju on change.(radim to već 10 dana)-tako da bilo što drugo ruši koncepciju.
*****
Kad unesem slovo "a" on me pozicionira na prvi "a" u list boxu ,a u unbound polju mi dozvoljava unos(ostaje u fokusu) ali uvijek preko unesenog slova.Znači briše prethodno uneseno!Jednostavno ga pocrni a prilikom unosa sljedećeg slova prethodni briše.
Kad mišom kliknem na zadnje slovo onda mi dozvoli sljedeći unos ali nakon novog on change opet sve briše.
Možda nešto u proprtisu unbound polja???
Što da radim???
[ filjo @ 28.09.2004. 19:58 ] @
Ima jedno glupo resenje, ali moze koristiti:

Ako ti se unbound polje zove Text0, upisi sledece prilikom ulaska. E sad ne znam u koju proceduru (da li onEnter ili onGotFocus , ti probaj prvo u jednu pa ako ne radi u drugu)

Code:

Private Sub Text0_Enter()
    Text0.SelLength = 0
    SendKeys "{END}"
End Sub


Ovim mu kazes da je duzina selektovanog stringa =0, a druga je nasilno slanje tipke End, da bi dosao na kraj teksta. Glupo al radi.