1: Private Sub cmdFind_Click()
2: Dim varBookmark
3: varBookmark = rstProduct.Bookmark
4: Dim strLookup As String, strFind As String
5: strLookup = InputBox("Введите код товара", _
"Поиск записи по коду товара")
6: If strLookup= "" Then Exit Sub
7: rstProduct.MoveFirst
8: strFind = "[КодТовара] = '" & strLookup & "'"
9: rstProduct.Find strFind, 0, adSearchForward, _
rstProduct.Bookmark
10: If rstProduct.EOF Then
11: MsgBox "Товар не найден", vbInformation, "Поиск завершен"
12: rstProduct.Bookmark = varBookmark
13: Exit Sub
14: End If
15: Заполнение_полей
16:
17: End Sub
Выполните экранную форму. Щелкните на кнопке Поиск и в окне Поиск записи по коду товара введите число 17. Щелкните на кнопке ОК, и вы увидите запись, которую искали.
Резюме
В этом часе мы рассмотрели несколько методов, принадлежащих объекту Recordset. Информация, приведенная в этом часе, необходима всем, кто импортирует данные из внешних источников данных в рабочие книги Excel. Вы узнали, как осуществить перемещение, редактирование и поиск в наборе извлекаемых данных, как отобразить эти данные в экранной форме. Это необходимо любому разработчику для поддержки интеграции создаваемого приложения с внешними базами данных.
