ник: Seryoga204
Подскажите пожалуйста.В форме хочу сделать поиск при вводе данных в определенное поле. Использую такой код.
Private Sub Поле580_Change()
Dim strFind As String
If Me!ПолеСоСписком582 = "По счету" Then
strFind = Nz(Me.Поле580.Text, "")
If strFind <> "" Then
Me.Filter = "[Счет] Like '" & strFind & "*'"
Me.FilterOn = True
Me.Поле580.SelStart = 20
Else
Me.FilterOn = False
End If
Me![Поле580].SetFocus
End If
End Sub
|
Private Sub ПолеСоСписком582_AfterUpdate()
Me!Поле580.SetFocus
Me!Поле580 = ""
End Sub
|
Т.е. если в поле со списком582 стоит значение "По счету", то при вводе в Поле 580 например цифр 1111 у меня отфильтруются все счета начинающиеся на 1111, а как сделать еще один фильтр подругому параметру который бы фильтровал бы уже в найденом ,т.е. в счетах которые начинаются на 1111? Подскажите пожалуйста заранее спасибо.