For Each V In Array(Me!Str1, Me!Str2, Me!Str3, Me!Str4, Me!Str5, _
                        Me!Str6, Me!Str7, Me!Str8, Me!Str9, Me!Str0)
        If Not IsNull(V.Value) Then
            Select Case V.Value
                Case  "Заказчик" 
                    a = Right(V.Name,  1 )
                    x = x &  " AND t.Потребитель = '" & Me!sr & a & "'" 
                Case  "Направление" 
                    ....
                Case  "Референс" 
                    ....
            End Select
        End If
    Next