Private Sub FilterForm()

Dim strFilter As String
Dim s As String
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim s5 As String
Dim s6 As String
Dim vag1 As String
Dim vag2 As String
Dim vag3 As String
Dim vag4 As String
Dim vag5 As String
Dim vag6 As String
Dim vag7 As String
Dim vag8 As String
Dim vag9 As String
Dim vag10 As String
Dim tip As String


    strFilter = "True"
    
     
    If Form.Recordset.EOF Then Me.FilterOn = False
    Form.Dirty = False
    
    
    If Not IsNull(LVybor) Then strFilter = strFilter & " AND [L]=""" & LVybor & """"
    If Not IsNull(NVybor) Then strFilter = strFilter & " AND [N]=""" & NVybor & """"
    If Not IsNull(IS510Vybor) Then strFilter = strFilter & " AND [IS510]=""" & IS510Vybor & """"
    If Not IsNull(IS520Vybor) Then strFilter = strFilter & " AND [IS520]=""" & IS520Vybor & """"
    If Not IsNull(IS530Vybor) Then strFilter = strFilter & " AND [IS530]=""" & IS530Vybor & """"
    If Not IsNull(R1Vybor) Then strFilter = strFilter & " AND [R1]=""" & R1Vybor & """"
    If Not IsNull(R2Vybor) Then strFilter = strFilter & " AND [R2]=""" & R2Vybor & """"
    If Not IsNull(R3Vybor) Then strFilter = strFilter & " AND [R3]=""" & R3Vybor & """"
    If Not IsNull(R4Vybor) Then strFilter = strFilter & " AND [R4]=""" & R4Vybor & """"
    If Not IsNull(R5Vybor) Then strFilter = strFilter & " AND [R5]=""" & R5Vybor & """"
    If Not IsNull(VneplanVybor) Then strFilter = strFilter & " AND [vneplan]=""" & VneplanVybor & """"

   
    
     If Not Napr_all And _
       Not (Napr_no And Napr_yes And Napr_case) And _
       Not (Not Napr_no And Not Napr_yes And Not Napr_case) Then
     s = " AND  (False"
     If Napr_no Then s = s & " OR ([kVili25kV]=""ÍÅÒ"")"
     If Napr_yes Then s = s & " OR ([kVili25kV]=""ÄÀ"")"
     If Napr_case Then s = s & " OR ([kVili25kV] Is Null)"
     s = s & ")"
    End If

    strFilter = strFilter & s

     If Not Bereg_all And _
       Not (Bereg_no And Bereg_yes And Bereg_case) And _
       Not (Not Bereg_no And Not Bereg_yes And Not Bereg_case) Then
     s1 = " AND  (False"
     If Bereg_no Then s1 = s1 & " OR ([Beregpit_380V]=""ÍÅÒ"")"
     If Bereg_yes Then s1 = s1 & " OR ([Beregpit_380V]=""ÄÀ"")"
     If Bereg_case Then s1 = s1 & " OR ([Beregpit_380V] Is Null)"
     
     s1 = s1 & ")"
    End If
    
    strFilter = strFilter & s1

    
    If Not akum_all And _
       Not (akum_no And akum_yes And akum_case) And _
       Not (Not akum_no And Not akum_yes And Not akum_case) Then
     s2 = " AND  (False"
     
     If akum_no Then s2 = s2 & " OR ([Bortnapr_110V]=""ÍÅÒ"")"
     If akum_yes Then s2 = s2 & " OR ([Bortnapr_110V]=""ÄÀ"")"
     If akum_case Then s2 = s2 & " OR ([Bortnapr_110V] Is Null)"
     s2 = s2 & ")"
    End If
    
    strFilter = strFilter & s2
    
    If Not obes_all And _
       Not (obes_no And obes_yes And obes_case) And _
       Not (Not obes_no And Not obes_yes And Not obes_case) Then
     s3 = " AND  (False"
     If obes_no Then s3 = s3 & " OR ([Obestochen_poezd]=""ÍÅÒ"")"
     If obes_yes Then s3 = s3 & " OR ([Obestochen_poezd]=""ÄÀ"")"
     If obes_case Then s3 = s3 & " OR ([Obestochen_poezd] Is Null)"
     
     s3 = s3 & ")"
    End If
    
    strFilter = strFilter & s3
    
     If Not zazem_all And _
       Not (zazem_no And zazem_yes And zazem_case) And _
       Not (Not zazem_no And Not zazem_yes And Not zazem_case) Then
     s4 = " AND  (False"
     If zazem_no Then s4 = s4 & " OR ([Zazemlen]=""ÍÅÒ"")"
     If zazem_yes Then s4 = s4 & " OR ([Zazemlen]=""ÄÀ"")"
     If zazem_case Then s4 = s4 & " OR ([Zazemlen] Is Null)"
     
     s4 = s4 & ")"
    End If
    
    strFilter = strFilter & s4
    
    If Not nm_all And _
       Not (nm_no And nm_yes And nm_case) And _
       Not (Not nm_no And Not nm_yes And Not nm_case) Then
     s5 = " AND  (False"
     If nm_no Then s5 = s5 & " OR ([Davleniev_HM]=""ÍÅÒ"")"
     If nm_yes Then s5 = s5 & " OR ([Davleniev_HM]=""ÄÀ"")"
     If nm_case Then s5 = s5 & " OR ([Davleniev_HM] Is Null)"
     
     s5 = s5 & ")"
    End If
    
    strFilter = strFilter & s5
    
    If Not tm_all And _
       Not (tm_no And tm_yes And tm_case) And _
       Not (Not tm_no And Not tm_yes And Not tm_case) Then
     s6 = " AND  (False"
     If tm_no Then s6 = s6 & " OR ([Davleniev_TM]=""ÍÅÒ"")"
     If tm_yes Then s6 = s6 & " OR ([Davleniev_TM]=""ÄÀ"")"
     If tm_case Then s6 = s6 & " OR ([Davleniev_TM] Is Null)"
     
     s6 = s6 & ")"
    End If
    
    strFilter = strFilter & s6
    
    
    
    
    With Me
    
         If (.V1 = 1) Then
            vag1 = vag1 & " and [vagon01] not like 0"
        End If
        If (.V1 = 2) Then
            vag1 = vag1 & " and [vagon01] like 0"
        End If
        If (.V1 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag1
    
    With Me
    
         If (.V2 = 1) Then
            vag2 = vag2 & " and [vagon02] not like 0"
        End If
        If (.V2 = 2) Then
            vag2 = vag2 & " and [vagon02] like 0"
        End If
        If (.V2 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag2
    
    With Me
    
         If (.V3 = 1) Then
            vag3 = vag3 & " and [vagon03] not like 0"
        End If
        If (.V3 = 2) Then
            vag3 = vag3 & " and [vagon03] like 0"
        End If
        If (.V3 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag3
    
    With Me
    
         If (.V4 = 1) Then
            vag4 = vag4 & " and [vagon04] not like 0"
        End If
        If (.V4 = 2) Then
            vag4 = vag4 & " and [vagon04] like 0"
        End If
        If (.V4 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag4
    
     With Me
    
         If (.V5 = 1) Then
            vag5 = vag5 & " and [vagon05] not like 0"
        End If
        If (.V5 = 2) Then
            vag5 = vag5 & " and [vagon05] like 0"
        End If
        If (.V5 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag5
    
    With Me
    
         If (.V6 = 1) Then
            vag6 = vag6 & " and [vagon06] not like 0"
        End If
        If (.V6 = 2) Then
            vag6 = vag6 & " and [vagon06] like 0"
        End If
        If (.V6 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag6
    
    With Me
    
         If (.V7 = 1) Then
            vag7 = vag7 & " and [vagon07] not like 0"
        End If
        If (.V7 = 2) Then
            vag7 = vag7 & " and [vagon07] like 0"
        End If
        If (.V7 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag7
    
    With Me
    
         If (.V8 = 1) Then
            vag8 = vag8 & " and [vagon08] not like 0"
        End If
        If (.V8 = 2) Then
            vag8 = vag8 & " and [vagon08] like 0"
        End If
        If (.V8 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag8
    
    With Me
    
         If (.V9 = 1) Then
            vag9 = vag9 & " and [vagon09] not like 0"
        End If
        If (.V9 = 2) Then
            vag9 = vag9 & " and [vagon09] like 0"
        End If
        If (.V9 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag9
    
     With Me
    
         If (.V10 = 1) Then
            vag10 = vag10 & " and [vagon10] not like 0"
        End If
        If (.V10 = 2) Then
            vag10 = vag10 & " and [vagon10] like 0"
        End If
        If (.V10 = 3) Then
            
                End If
    End With
    
    strFilter = strFilter & vag10
    
    With Me
 
        If (.vybor_tip = 1) Then
            tip = tip & " and [Tip_Poezda] Like ""B1"""
        End If
        If (.vybor_tip = 2) Then
            tip = tip & " and [Tip_Poezda] Like ""B2"""
        End If
        If (.vybor_tip = 3) Then
            tip = tip & " and [Tip_Poezda] Like ""B1 è B2"""
        End If
                
    End With
    
    strFilter = strFilter & tip
    
    'Debug.Print "strFilter=""" & strFilter & """"
    'Debug.Print "s=""" & s & """"
    


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