Здравствуйте,

Помогите, пожалуйста, решить следующую задачу.
Есть форма, в которой 2 чек бокса - chk1 и сhk2. В зависимости от того, отмечен боксы или нет, создается критерий.
Написал следуещее:

Function Field_criteria() As String
    If [Forms]![Main Form]![NavigationSubform].[Form]![chk1].[Value] = -1 Then c1 = "СR1"
    If [Forms]![Main Form]![NavigationSubform].[Form]![chk2].[Value] = -1 Then c2 = "CR2"
    Field_criteria = c1 & " OR " & c2
End Function

Далее в критерии запроса указываю Field_criteria(). Запрос выходит пустым :( при том, что оба чек бокса отмечены.
Однако, если указать отдельно Field_criteria = c1 или Field_criteria = c2, то запрос работает корректно.

Подскажите, пожалуйста, где ошибка?

Заранее благодарю!

http://www.sql.ru/forum/1173398/tekstovyy-parametr-iz-vba-dlya-zaprosa