ник: mixail
названия везде изменены естественно)) Вот так это дело выглядело на конечном этапе -
Private Sub ClientForFilter_Change()
Dim strFind As String
strFind = Nz(Me.ClientForFilter.Text, "")
If strFind <> "" Then
Me.Filter = "[LINE] Like '" & strFind & "*'"
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub
Private Sub ProducedComp_Change()
Dim strFind1 As String
Me.ClientForFilter.SetFocus
strFind1 = Nz(Me.ClientForFilter.Text, "")
If strFind1 <> "" Then
Me.Filter = "[LINE] Like '" & strFind & "*'" & "[PRODUCEDBY] Like '" & strFind1 & "*'"
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub
|