تعداد کلمات داخل یه فیلد

سلام دوستان
من یه کد میخواستم که بتونه یه کلمه رو توی یه فیلد سرچ کنه و تعداد اون رو برگردونه
ممنون میشم کمک کنید

با سلام
اگه منظورتون رو درست فهمیده باشم ........ با lan مشکل حل می شه
lan هر فیلدی در حقیقت تعداد کارکتر اون رو بر میگردونه--- ولی اگه تعداد کلمه رو بخواد برگردونه من یکی که اطلاعی ندارم

از یک حلقه + instr استفاده کنید

Public Function CountStr(SourceSt As String, St As String) As Long

Dim LOS As Long

Dim POS As Long

Dim Cnt As Long

LOS = Len(SourceSt)

POS = 1

Cnt = 0

Do

    POS = InStr(POS, SourceSt, St)

    If POS > 0 Then

        Cnt = Cnt + 1

        POS = POS + Len(St)

    Else

        Exit Do

    End If

Loop While POS <= LOS And POS <> 0

CountStr = Cnt

End Function

من فکر می کنم منظورشون تعداد تکرار یک کلمه در فیلد است مثلا کلمه در :
من به مدرسه رفتم در مدرسه دوستم رو دیدم
کلمه مدرسه دوبار تکرار شده
با یه کوئری باشرط critia

like(trim("مدرسه "))

ودر قسمت total:
count

سلام

اگر میخواید که تعداد یک فیلد تکراری رو در مجموعه‌ای از رکوردها از طریق ماژول یا ماکرو بدست بیارید بهتره از این کد استفاده کنید:

 

    MsgBox DCount("MyFieldName", "MyTableName", "MyFieldName ='پیام'")

    MsgBox DCount("MyFieldName", "MyTableName", "MyFieldName Like '%پیام%'") 

اگر میخواید از طریق یک کوئری بدست بیاری:

 SELECT DISTINCT MyFieldName FROM MyTableName [WHERE ....]

اگر هم فقط میخواید در یک سلول جدول تعداد کلمات مورد نظر رو بدست بیاری از روش آقای مفیدی استفاده کنید.

سلام دوستان
از جوابهاتون ممنون. اقا مصطفی دقیقا به مورد سوال من جواب دادن یعنی من تعداد تکرار یک کلمه داخل یه فیلد memo رو میخوام. حالا اگر ممکنه دوستان کمی بیشتر توضیح بدن بسیار ممنون میشم

سلام آقا مصطفی
دوست عیز میشه بگین قسمت total چیه؟ممنون میشم کمک کنید اگه ممکنه یه مثال خیلی خیلی کوچیک هم بزنید
واقعا ممنون