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