ник: час
Lukas - ну ты же видел запрос длинною с паровоз - я загребусь собирать.
там шесть строк условий
а переменную -я в двух функциях собираю:
но фигня получается - не работает.....
Public Function FUN_Rights_QUERY_1() As Variant 'отбор только Исключительных права
' Исключительный_Список1
If [Forms]![FRM_Free_Film]![Исключительный_Список] = -1 Then
FUN_Rights_QUERY_1 = "Исключительные права"
Else
FUN_Rights_QUERY_1 = "Условно-исключительные"
End If
End Function
Public Function FUN_Rights_QUERY_2() As String 'отбор только Исключительных права
' Исключительный_Список2
If [Forms]![FRM_Free_Film]![Исключительный_Список] = -1 Then
FUN_Rights_QUERY_2 = "Исключительные права"
Else
FUN_Rights_QUERY_2 = "Не исключительные права"
End If
End Function
|
В запросе в кач условия
FUN_Rights_QUERY_1() Or FUN_Rights_QUERY_2()
|
ни XP не срабатывает
