Private Sub kV3Vybor_AfterUpdate()
Dim s1
s1 = "true"
With CodeContextObject
If (.kV3Vybor = 1) Then
s1 = s1 & " and [kVili25kV] Like ""Да"""
End If
If (.kV3Vybor = 2) Then
s1 = s1 & " and [kVili25kV] Like ""НЕТ"""
End If
If (.kV3Vybor = 3) Then
s1 = s1 & " and [kVili25kV] Like ""null"""
End If
If (.kV3Vybor = 4) Then
''
End If
End With
Me.Filter = s1
Me.filtron = True
End Sub

s1="true  and ("
s2="" & me.kv
if if len(s2)>0  then
s1=s1 & "  kv=" & me.kv
endif

s2="" & me.kr
if if len(s2)>0  then
s1=s1 & " or kr=" & me.kr
endif
s1=s1 & ")"
if instr(s1,"()")=0 then
me.filter=s1
me.filteron=true

Private Sub FilterForm()

Dim s As String

s = "True"

If Form.Recordset.EOF Then Me.FilterOn = False
Form.Dirty = False
If [LVybor] > "" Then s = s & " AND [L] Like  '*" & LVybor & "*'"
If [NVybor] > "" Then s = s & " AND [N] Like  '*" & NVybor & "*'"
If [IS510Vybor] > "" Then s = s & " AND [IS510] Like  '*" & IS510Vybor & "*'"
If [IS520Vybor] > "" Then s = s & " AND [IS520] Like  '*" & IS520Vybor & "*'"
If [IS530Vybor] > "" Then s = s & " AND [IS530] Like  '*" & IS530Vybor & "*'"
If [R1Vybor] > "" Then s = s & " AND [R1] Like  '*" & R1Vybor & "*'"
If [R2Vybor] > "" Then s = s & " AND [R2] Like  '*" & R2Vybor & "*'"
If [R3Vybor] > "" Then s = s & " AND [R3] Like  '*" & R3Vybor & "*'"
If [R4Vybor] > "" Then s = s & " AND [R4] Like  '*" & R4Vybor & "*'"
If [R5Vybor] > "" Then s = s & " AND [R5] Like  '*" & R5Vybor & "*'"
If [VneplanVybor] > "" Then s = s & " AND [vneplan] Like  '*" & VneplanVybor & "*'"

''    If [kVili25kV] > "" Then s = s & " AND [kVili25kV] Like  '*" & Vybor3kV & "*'"
''    If [Beregpit_380V] > "" Then s = s & " AND [Beregpit_380V] Like  '*" & Vybor380V & "*'"
''    If [Bortnapr_110V] > "" Then s = s & " AND [Bortnapr_110V] Like  '*" & Vybor110V & "*'"
''    If [Obestochen_poezd] > "" Then s = s & " AND [Obestochen_poezd] Like  '*" & obVybor & "*'"
''    If [Zazemlen] > "" Then s = s & " AND [Zazemlen] Like  '*" & zazemVybor & "*'"
''    If [Davleniev_HM] > "" Then s = s & " AND [Davleniev_HM] Like  '*" & HMVybor & "*'"
''    If [Davleniev_TM] > "" Then s = s & " AND [Davleniev_TM] Like  '*" & TMVybor & "*'"

Me.Filter = s
Me.FilterOn = True
End Sub