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

Answer:
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:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: