[ vileko @ 17.09.2004. 11:50 ] @
Može li tko pomoći oko trim funkcije za access 2000. Imam brojeve u text box-u koji se nalazi u nekoj subformi koji izgledaju ovako 1111 11 11 11 mogu biti i 1111 11 itd. (postoje razne kombinacije upisanih brojeva) uglavnom kako da maknem razmak između brojeva (da izgledaju npr. 11111111). Probao sam sa trim (ime_text_box-a), ali ništa se ne događa. Kako da to riješim jer ima previše upisanih podataka da bi ručno mijenjao
Hvala
[ kloktor @ 17.09.2004. 12:09 ] @
Replace(TextBoxName, " ", "")
[ vileko @ 17.09.2004. 12:50 ] @
Sorry, pokušavam ali javlja grešku, stvarno ne razumijem gdje da upišem Replace(ime_text_box-a," ",""), , ako ti nije problem taj kod u cjelosti napisati
puno hvala na trudu
[ JogyII @ 17.09.2004. 15:42 ] @
vec ti je napisao ceo kod, samo umesto
trim(ime_text_box-a)
napises
Replace(ime_text_box-a," ","")
obrati paznju samo da izmedju prvih navodnika imas znak "space" (imas razmak), a izmedju drugih nemas nista (prazan string), ova funkcija ce svaki znak razmaka u text polju da ti zameni sa praznim stringom, to jest uklonice ti svaki znak razmaka

funkcija koju si ti koristio (Trim) uklanja znake razmaka samo sa pocetka i kraja stringa, a ne i iz sredine
[ vileko @ 17.09.2004. 16:09 ] @
Napisao sam tako, ime text boxa je Podbroj i stavio sam npr.

Private Sub Podbroj_GotFocus()
Replace(Podbroj," ","")
End Sub

i javi mi grešku

Compile error:
Expected: =

Gdje onda griješim?
[ JogyII @ 17.09.2004. 17:36 ] @
pa za pocetak probaj

Private Sub Podbroj_GotFocus()
Podbroj.Text = Replace(Podbroj," ","")
End Sub
[ vileko @ 17.09.2004. 19:35 ] @
Napokon je uspjelo, ljudi hvala Vam pogotovo JogyII-ju i kloktor-u
kada napišem samo Podbroj.Text = Replace(Podbroj, " ", "") opet javlja grešku, ali kad sam ovako napisao onda je proradilo

Private Sub Podbroj_GotFocus()
If Not IsNull(Me.Podbroj) Then
Podbroj.Text = Replace(Podbroj, " ", "")
End If
End Sub

još jednom hvala
pozdrav
[ JogyII @ 17.09.2004. 19:47 ] @
ma nema na cemu

a ovu gresku ti je javio jer polje nije bilo popunjeno, probaj ovo :
Private Sub Podbroj_GotFocus()
Podbroj.Text = Replace(Nz(Podbroj.Text,""), " ", "")
End Sub



[ vileko @ 17.09.2004. 19:54 ] @
nemoj biti tako skroman ubijam se već tri četiri dana oko toga i nikako (naravno sa trim funkcijom) tako da je ovo bila velika pomoć

inače polje je bilo popunjeno ali brojevi su već bili poredani bez razmaka, ali ima i nekih koji su prazni ali nije fokus stigao do njih tako da ta prazna polja nebi trebala praviti probleme ako fokus nije na njima (bar se nadam),

ali nema veze riješio sam i probat ću ovaj novi kod da vidim kako to radi