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

  • Автор темы DooMchik))
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

DooMchik))

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

Код:
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
нужно, зделать так чтобы при нажатии на кнопочку на форме делался поиск следуюшего элемента с таким же названием, или если можно чтоб сразу все элементы с одинаковыми названиями выделились или вывелись
 
Статус
Закрыто для дальнейших ответов.