With Me
 
        If (.vybor_tip = 1) Then
           strFilter = strFilter & " or [ES2G] = 'yes'" & " or [All] = 'yes'"
        End If
        If (.vybor_tip = 2) Then
            strFilter = strFilter & " or [ES1] = 'yes'" & " or [ES1Premium] = 'yes'" & " or [All] = 'yes'"
        End If
        
    End With
 
 For i = 1 To 8
  s = ""
  s1 = Choose(i, "Napr", "Bereg", "akum", "obes", "zazem", "nm", "tm", "pt")
  s2 = Choose(i, "Tokopriemnik", "Energosnabzhenie cherez vneshnee pitanie", "Akkumulyatornaya batareya 110 V", "Aktivnaya kabina mashinista", _
                 "Elektropoezd zazemlen", "Pnevmosnabzhenie cherez pitatelnuyu magistral", "Pnevmaticheskij tormoz", "Stoyanochnyj pruzhinnyj tormoz")
  If Not Me(s1 & "_all") And _
     Not (Me(s1 & "_no") And Me(s1 & "_yes") And Me(s1 & "_case")) And _
     Not (Not Me(s1 & "_no") And Not Me(s1 & "_yes") And Not Me(s1 & "_case")) Then
   s = " AND (False"
   If Me(s1 & "_no") Then s = s & " OR ([" & s2 & "]=""no"")"
   If Me(s1 & "_yes") Then s = s & " OR ([" & s2 & "]=""yes"")"
   If Me(s1 & "_case") Then s = s & " OR ([" & s2 & "]=""irrelevant"")"
   s = s & ")"
  End If
  strFilter = strFilter & s
 Next