Поиск по кнопке

Понедельник, 10 Февраля 2014 г. 12:24 + в цитатник

Доброго времени суток!
Застопорился на след. моменте: создана кнопка на поиск по "зав номеру изделия" - результатом должны стать либо надпись "зав номер не найден", либо страница/страницы из формы. Вот запись из VBA:

Private Sub Кнопка0_Click()
  
  Dim dbsПроизводственныйАрхив As Database
  Dim rstВсяИнформация As DAO.Recordset
  Dim strЗаводской_номер As String
  Set dbsПроизводственныйАрхив = CurrentDb()
  Set rstВсяИнформация = dbsПроизводственныйАрхив.OpenRecordset _
                    ("ВсяИнформация", dbOpenTable)
  rstВсяИнформация.Index = "Index"
  strЗаводской_номер = InputBox("Введи зав номер ЭПП", _
                         "Ввод параметров поиска")
  rstВсяИнформация.Seek "=", strЗаводской_номер
  If rstВсяИнформация.NoMatch Then
      MsgBox "Заводской номер не найден!"
  Exit Sub
  End If
  ??????????????????
  Exit Sub
End Sub