Continue to search from last found problem 1

[cuok]

Hi friends!
I'm using this routine to search text typed into 'txtgetmed' TextBox and maybe appear in 'txtDetail' TextBox.
its works fine for first search.
What i need is an idea how to continue the search in 'txtDetail' from this 'found'.

here the code:

[B]
Private Sub GoSearch_Click()
 Dim strSearch  As String, intWhere As Integer
    Dim ctlTextToSearch As Variant
 
   
    With Me!txtDetail
           strSearch = txtgetmed

    intWhere = InStr(txtDetail, strSearch)
        If intWhere Then
            .SetFocus
            .SelStart = intWhere - 1
            .SelLength = Len(strSearch)
        Else MsgBox txtgetmed & "  Not Found"
     
        End If
      End With

End Sub
[/B]

Thanks in advance
CUOK

 

[RickSpr]

Declare a module-level variable intStart. In the txtDetail_AfterUpdate event, set intStart to 0. Modify GoSearch_Click to:

        intWhere = InStr(intStart, txtDetail, strSearch)
        If intWhere Then
            .SetFocus
            .SelStart = intWhere - 1
            .SelLength = Len(strSearch)
            intStart = intWhere + Len(strSearch)
        Else 
            MsgBox txtgetmed & "  Not Found"
        End If

You may also need to set intStart to 0 in Form_Current and/or other places where it makes sense to start searching from the beginning again.

Rick Sprague
Want the best answers? See faq181-2886
To write a program from scratch, first create the universe. - Paraphrased from Albert Einstein

 

[cuok]

Thank u RickSpr!
its works perfectly!!!
CUOK