Naeel Maqsudov » 08 апр 2004, 03:18
Прийдется добавить на форму (в заголовок или примечание) 3 кнопки: "Найти", "Найти выше" и "Найти ниже". На нажатие этих кнопок соответственно делать следующее:
Код: Выделить всё
Option Compare Database
Dim Smpl As String
Private Sub Кнопка10_Click()
Screen.PreviousControl.SetFocus
Smpl = InputBox("Введите шаблон фамилии, используя метасимволя * и ?", , Smpl)
Me.Recordset.FindFirst "Фамилия Like """ & Smpl & """"
End Sub
Private Sub Кнопка11_Click()
Screen.PreviousControl.SetFocus
Smpl = InputBox("Введите шаблон фамилии, используя метасимволя * и ?", , Smpl)
Me.Recordset.FindNext "Фамилия Like """ & Smpl & """"
End Sub
Private Sub Кнопка12_Click()
Screen.PreviousControl.SetFocus
Smpl = InputBox("Введите шаблон фамилии, используя метасимволя * и ?", , Smpl)
Me.Recordset.FindPrevious "Фамилия Like """ & Smpl & """"
End Sub
Глобальная переменная Smpl обеспечит запоминание искомого образца между процедурами поиска.
Эти макросы используют DAO, так что необходимо, чтобы какая-нибудь библиотека объектов DAO была подключена к VBA-проекту (меню Tools/References в редакторе VBA)
Прийдется добавить на форму (в заголовок или примечание) 3 кнопки: "Найти", "Найти выше" и "Найти ниже". На нажатие этих кнопок соответственно делать следующее:
[code]
Option Compare Database
Dim Smpl As String
Private Sub Кнопка10_Click()
Screen.PreviousControl.SetFocus
Smpl = InputBox("Введите шаблон фамилии, используя метасимволя * и ?", , Smpl)
Me.Recordset.FindFirst "Фамилия Like """ & Smpl & """"
End Sub
Private Sub Кнопка11_Click()
Screen.PreviousControl.SetFocus
Smpl = InputBox("Введите шаблон фамилии, используя метасимволя * и ?", , Smpl)
Me.Recordset.FindNext "Фамилия Like """ & Smpl & """"
End Sub
Private Sub Кнопка12_Click()
Screen.PreviousControl.SetFocus
Smpl = InputBox("Введите шаблон фамилии, используя метасимволя * и ?", , Smpl)
Me.Recordset.FindPrevious "Фамилия Like """ & Smpl & """"
End Sub
[/code]
Глобальная переменная Smpl обеспечит запоминание искомого образца между процедурами поиска.
Эти макросы используют DAO, так что необходимо, чтобы какая-нибудь библиотека объектов DAO была подключена к VBA-проекту (меню Tools/References в редакторе VBA)