WEBINAR:

On-Demand

Finding Text in a Text Box

Question: I am looking for code or VBX that allows a user
to use an inputbox to locate a word within a
textbox. The textbox is connected to a Access 2
table memo field. Can you help?

Answer: How about this simple piece of code:

Dim strInput as String
Dim i as Integer
strInput = InputBox("Enter a string to search for:")
For i = 1 to len(txtTableMemo)
If mid$(txtTableMemo, i, len(strInput)) = strInput Then
MsgBox "Found the text -- doing whatever with it."
Exit For
End If
Next i

This is the simplest method for looking in a single text box or string. On average, it will only search half of the text in the txtTableMemo box.