ник: kot_k_k
а так что не работат
Me.Filter = "[LINE] Like '" & strFind & "*'" & "[LINE_1] Like '" & strFind_1 & "*'"
вот
Private Sub ClientForFilter_ПОЛЕ2_Change()
Dim strFind As String
strFind_ПОЛЕ2 = Nz(Me.ClientForFilter.Text, "")
If strFind_ПОЛЕ2 <> "" Then
' можно так
Me.Filter = Me.Filter & "[ПОЛЕ2] Like '" & strFind_ПОЛОЕ2 & "*'"
' можно так
if Nz(Me.Filter,'')='' then
Me.Filter = "[ПОЛЕ2] Like '" & strFind_ПОЛОЕ2 & "*'"
else
Me.Filter = Me.Filter & "[ПОЛЕ2] Like '" & strFind_ПОЛОЕ2 & "*'"
endif
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub
|