سلام دوستان
من یه کد میخواستم که بتونه یه کلمه رو توی یه فیلد سرچ کنه و تعداد اون رو برگردونه
ممنون میشم کمک کنید
سلام دوستان
من یه کد میخواستم که بتونه یه کلمه رو توی یه فیلد سرچ کنه و تعداد اون رو برگردونه
ممنون میشم کمک کنید
با سلام
اگه منظورتون رو درست فهمیده باشم ........ با 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 چیه؟ممنون میشم کمک کنید اگه ممکنه یه مثال خیلی خیلی کوچیک هم بزنید
واقعا ممنون