Finding Text in a Text Box

Finding Text in a Text Box

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 2table memo field. Can you help?

How about this simple piece of code:

Dim strInput as StringDim i as IntegerstrInput = 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 IfNext 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.


Share the Post: