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...