Поиск следуюшего элемента с таким же названием

Тема в разделе "Visual Basic", создана пользователем DooMchik)), 7 ноя 2007.

Статус темы:
Закрыта.
  1. DooMchik))

    DooMchik)) Гость

    Привет всем! у меня есть следуюшая ситуация: есть поиск который производиться по след коду

    Код (Text):
    Private Sub mnuName_Click()
    DataGrid1.MarqueeStyle = dbgHighlightRow
    On Error Resume Next
    Dim prompt As String
    Dim SearchStr
    prompt = "Введите название магазина."
    SearchStr = InputBox(prompt, "Поиск торговой точки")
    Adodc1.Recordset.MoveFirst
    Adodc1.Recordset.Find "Название LIKE '" & SearchStr & "%'"
    If Adodc1.Recordset.EOF Then
    MsgBox "Магазин с таким названием не найден"
    Adodc1.Recordset.MoveLast
    End If
    mnuFindNext.Visible = True
    End Sub
    нужно, зделать так чтобы при нажатии на кнопочку на форме делался поиск следуюшего элемента с таким же названием, или если можно чтоб сразу все элементы с одинаковыми названиями выделились или вывелись
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей