Zählen Sie die Häufigkeit, mit der ein Wort in einem Feld wiederholt wird

Question

Ich möchte zählen, wie oft ein Wort in einem Feld in einem Text aus meinem Formular in MS Access wiederholt wird - so etwas wie Excel =COUNTIF(K2:K100,"*tm-9*").

Ich bin auf =Sum(IIf .. gestoßen, aber ich muss wissen, wie oft es einschließlich Wiederholungen wie im folgenden Beispiel gezeigt wird.

Answer 1

Es gibt keine integrierte Funktion, die Zählung tun. Versuchen Sie, eine eigene Funktion zu erstellen. Dieser wird funktionieren, nur Ihre eigenen Feld und Kriterien Werte zuweisen, und die Variable - Res wird die gewünschte Zahl zurückgeben.

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

Sie können die Zählung finden mit nur einer Codezeile:

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