banjalukaforum.com

Dobrodošli na banjalukaforum.com
Danas je 01 Nov 2024, 00:39

Sva vremena su u UTC [ DST ]




Započni novu temu Odgovori na temu  [ 2 Posta ] 
Autoru Poruka
 Tema posta: Access pitanje
PostPoslato: 02 Jul 2014, 18:31 
OffLine
Stara kuka
Stara kuka
Korisnikov avatar

Pridružio se: 06 Apr 2003, 12:32
Postovi: 5324
Lokacija: HEAVEN
Naime, nasao sam na netu kod za udf koja prebrojava ponavljanje zadatog karaktera u okviru izabranog range-a (npr u nizu 110101, da prebroji koliko ima nula, i ispise 2).

Kod izgleda ovako:

Kod:
Option Explicit
Function COUNTTEXT(ref_value As Range, ref_string As String) As Long

Dim i As Integer, count As Integer

count = 0

For i = 1 To Len(ref_value.Value)
    If Mid(ref_value, i, 1) = ref_string Then count = count + 1
Next

COUNTTEXT = count

End Function


Kod perfektno radi u Excelu... Medjutim, kada isti ubacim u Access, i pozovem ga preko expression u querry-ju:

Nule: COUNTTEXT([polje1],0)

Izbacuje mi #error... Ne kontam u cemu je fazon posto ne koristim Access bas toliko... Ako neko zna u cemu je problem, ili mozda zna drugi nacin da odradim ovaj posao...

_________________
Slika


Vrh
 Profil  
 
 Tema posta: Re: Access pitanje
PostPoslato: 18 Jul 2014, 01:33 
OffLine
Stara kuka
Stara kuka
Korisnikov avatar

Pridružio se: 06 Apr 2003, 12:32
Postovi: 5324
Lokacija: HEAVEN
Rjesio... i to veoma jednostavno :)

len (polje) - len (replace(polje,0,''))

Krajnje elegantno rjesenje :D

_________________
Slika


Vrh
 Profil  
 
Prikaži postove u poslednjih:  Poređaj po  
Započni novu temu Odgovori na temu  [ 2 Posta ] 

Sva vremena su u UTC [ DST ]


Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 1 gost


Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Pronađi:
Idi na:  
Powered by phpBB® Forum Software © phpBB Group
Hosting BitLab
Prevod - www.CyberCom.rs