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

[nima_dir]

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

[jalalniknam]

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

[MM_Mofidi]

از یک حلقه + 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

[moustafa]

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

like(trim("مدرسه "))
ودر قسمت total:
count

[Payam Moradi]

سلام

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



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


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


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

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

[nima_dir]

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

[nima_dir]

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