Count Input Box Word (1 Viewer)

[Haitham]

Dear There,

I have a table with memo field wich contain hug duplicate text,
i need code to search the word that i specify in inputbox in each and every that memo field and goto next record and count it also.

Thanx in Advance

 

[Travis]

Public Function NumInstances() as Long
   Dim rst as ADODB.RecordSet
   Dim arData as Variant

      stSplit=InputBox("Enter the Search String")

      Set rst = New ADODB.RecordSet
      rst.Open "Select * from [tblName]",CurrentProject.Connection,,adOpenStatic,adLockReadOnly 
      If rst.RecordCount>0 then
         rst.MoveFirst
         Do While Not rst.EOF         
             arData=Split(rst.Fields("MEMOFIELDNAME"),stSplit)
             lCount=lCount+ubound(arData)
             rst.MoveNext
         Loop

      End If
      MsgBox "Number of Instances of " & stSplit & ": " & lCount
      NumInstances=lCount

End Function

 

[Haitham]

Thank You

Dear Travis,

The Resault Gives Me The MsgBox With Out The Number Of Count Just " Number Of Instances Of MyWord:"

Thanks In Advance
Haitham

 

[Haitham]

I Just Modefy And Working Like Charmy,

Thank You,

Public Function NumInstances() As Long

Dim arData As Variant

stSplit = InputBox("Enter the Search String")
Set rs = CurrentDb.OpenRecordset("Select * from [Sheet2]")
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
arData = Split(rs.Fields("Aaya"), stSplit)
lCount = lCount + UBound(arData)
rs.MoveNext
Loop

End If
MsgBox "Number of Instances of " & stSplit & ": " & lCount
NumInstances = lCount

End Function

Thank you alot
Haitham

 

[Haitham]

More Problem

Dear Travis,

But That Is Counting For The Like InputBox Not =, What about if i want to count for exact full word

Thanks

 

[Travis]

Add a Space to your text at the end.