フィールド内で単語が繰り返される回数をカウントします。

Question

Excelの=COUNTIF(K2:K100,"*tm-9*")のようなもので、MS Accessのフォームのテキスト内のフィールドに単語が繰り返される回数をカウントします。

私は=Sum(IIf ..に出くわしましたが、以下の例のようにリピートを含めて何回表示されているかを知る必要があります。

Answer 1

のカウントを行います組み込みの機能はありません。 独自の関数を作成してみてください。これは動作し、独自のフィールドと基準値のみを割り当て、変数Resは必要な番号を返します。

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

あなたは、コードの一行だけで数を見つけることができます。検索したい単語、および単語が含まれているエントリの例である何

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