ник: Alex
У меня уже давно, в разных проектах работает вот такой код:
Private Sub Поиск_Change() 'поле для ввода строки поиска, расположено в главной форме
On Error GoTo Поиск_Err
Dim strFind As String
strFind = Nz(Me.Поиск.Text, "")
If strFind <> "" Then
Me!Поиск = strFind
Forms("ИмяГлавнойФормы").ИмяПодчиненнойФормы.Form.Filter = "[ИмяПоляПодчиненнойФормыГдеИскать] Like '*" & strFind & "*'"
Forms("ИмяГлавнойФормы").ИмяПодчиненнойФормы.FilterOn = True
Me.Поиск.SelStart = 200
Else
Forms("ИмяГлавнойФормы").ИмяПодчиненнойФормы.Form.FilterOn = False
End If
Поиск_Exit:
Exit Sub
Поиск_Err:
Forms("ИмяГлавнойФормы").ИмяПодчиненнойФормы.Form.FilterOn = False
MsgBox Err.Description
Resume Поиск_Exit
End Sub
|
- ищет в подчиненной форме
- с пробелом тоже ищет
- если ничего не нашел, ошибки не выдает - просто подчиненная форма пустая