Bir sözcüğün bir defada yinelenme miktarını sayma

Question

Bir sözcüğün MS Access'teki formumdaki bir metinde bir sözcüğün yinelenme miktarını saymak istiyorum - Excel'in =COUNTIF(K2:K100,"*tm-9*") gibi bir şeyi.

=Sum(IIf .. numaralı telefona rastladım ancak aşağıdaki örnekte olduğu gibi tekrarlar dahil kaç kez gösterildiğini bilmem gerekiyor.

Answer 1

sayımı yapacak yerleşik bir işlevi yoktur. Kendi işlevinizi oluşturmayı deneyin. Bu, sadece kendi alanınızı ve ölçüt değerlerinizi ve değişkeninizi atayacaktır. - Değişken, istediğiniz sayıyı döndürecektir.

Dim Field as String 
Dim CriteriaText as String 
Dim FieldLength as Integer 
Dim CriteriaLength as Integer 
Dim Res as Integer 
dim j as Integer 

Res = 0 

Field = 'assign the field value here 
CriteriaText = 'assign the criteria her 
FieldLength = LEN(Field) 
CriteriaLength = LEN(CriteriaText) 

WHILE FieldLength >= CriteriaLength 
    j = InStr(Field , CriteriaText) 
    IF j > 0 THEN 
    Res = Res + 1 
    Field = REPLACE(Field, CriteriaText, "", 1, 1) 
    FieldLength = LEN(Field) 
    ELSE 
    CriteriaLength = FieldLength + 1 
    END IF 
Loop 

MsgBox Res 

Answer 2

Yalnızca bir satır kod ile sayımını bulabilirsiniz: Bulmak istediğiniz bir kelime bir örnektir Ne

p = "Some string with one tm-9 or more tm-9s" 
s = "tm-9" 
WordCount = (Len(p) - Len(Replace(p, s, "")))/Len(s) 

WordCount -> 2