Функция, используемая в критериях запроса - ошибка во время выполнения 2486

Question

Я совершенно новичок в доступе и программировании в целом.

У меня есть база данных пользователей, имеющих разные статусы, т.е. Активный, Неактивный, VIP. Я делаю отчет, который получает его данные из запроса. Один из критериев запроса должен соответствовать флажкам.

Я создал функцию SeznamClanov(), который возвращает строку, которую я использую в качестве критериев в моем запросе.

Public Function SeznamClanov() As String 

Dim Predhodnik As Boolean 

DoCmd.OpenForm "IzpisClanovSubF" 

Predhodnik = False 

If Forms!IzpisClanovSubF!CheckAktivni.Value <> 0 Then 
    SeznamClanov = "1" 
    Predhodnik = True 
End If 

If Forms!IzpisClanovSubF!CheckNeaktivni.Value <> 0 Then 
    If Predhodnik = True Then 
    SeznamClanov = SeznamClanov & "& 2" 
    Else 
    SeznamClanov = SeznamClanov & "2" 
    End If 

    Predhodnik = True 
End If 

If Forms!IzpisClanovSubF!CheckIzpisani.Value <> 0 Then 
    If Predhodnik = True Then 
    SeznamClanov = SeznamClanov & " & 4" 
    Else 
    SeznamClanov = SeznamClanov & "4" 
    End If 

    Predhodnik = True 
End If 

If Forms!IzpisClanovSubF!CheckPokojni.Value <> 0 Then 
    If Predhodnik = True Then 
    SeznamClanov = SeznamClanov & " & 5" 
    Else 
    SeznamClanov = SeznamClanov & "5" 
    End If 

    Predhodnik = True 
End If 

If Forms!IzpisClanovSubF!CheckVIP.Value <> 0 Then 
    If Predhodnik = True Then 
    SeznamClanov = SeznamClanov & " & 6" 
    Else 
    SeznamClanov = SeznamClanov & "6" 
    End If 

End If 

End Function 

Когда я выполняю эту функцию шаг за шагом, все работает нормально. Проблема в том, что когда я использую эту функцию в Query, я получаю сообщение об ошибке: Ошибка времени выполнения «2486»: вы не можете выполнить это действие в настоящее время.

Когда я запускаю инструмент отладки останавливается на линии

DoCmd.OpenForm "IzpisClanovSubF" 

Почему я получаю эту ошибку? Есть ли более простой способ приблизиться к этой проблеме?

Спасибо за вашу помощь заранее.

С уважением!

Answer 1

Вы не можете этого сделать - откройте форму для каждой записи.

Удалить эту команду из функции:

DoCmd.OpenForm "IzpisClanovSubF" 

и запустить его, прежде чем открыть запрос.