Applies ToAccess для Microsoft 365 Access 2021 Access 2019 Access 2016

Возвращает значение Variant подтипа Error, содержащее номер ошибки, указанный пользователем.

Синтаксис

CVErr ( номер_ошибки )

Обязательный аргумент номер_ошибкиаргумент представляет собой любой допустимый номер ошибки.

Замечания

Функция CVErr используется для создания определенных пользователем ошибок в пользовательских процедурах. Например, если вы создаете функцию, которая принимает несколько аргументов и возвращает строку, можно добавить проверку входных аргументов, чтобы убедиться, что они находятся в допустимом диапазоне. Если это не так, скорее всего, функция не вернет ожидаемый результат. В этом случае CVErr позволяет получить номер ошибки, который показывает, что следует предпринять.

Обратите внимание, что неявное преобразование ошибки не допускается. Например, вы не можете напрямую назначить возвращаемое значение CVErrпеременная, который не является Variant. Однако можно выполнить явное преобразование (с помощью CInt, CDbl и т. д.) значения, возвращаемого CVErr , и присвоить его переменной соответствующего тип данных.

Пример

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В данном примере функция CVErr возвращает переменную Variant, у которой VarType имеет значение vbError (10). Определяемая пользователем функция CalculateDouble возвращает ошибку, если переданный ей аргумент не является числом. С помощью функции CVErr можно возвращать определяемые пользователем ошибки в пользовательских процедурах или откладывать обработку ошибок во время выполнения. Чтобы проверить, представляет ли значение ошибку, используйте функцию IsError.

' Call CalculateDouble with an error-producing argument.Sub Test()    Debug.Print CalculateDouble("345.45robert")End Sub' Define CalculateDouble Function procedure.Function CalculateDouble(Number)    If IsNumeric(Number) Then        CalculateDouble = Number * 2    ' Return result.    Else        CalculateDouble = CVErr(2001)    ' Return a user-defined error     End If    ' number.End Function

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Изучите преимущества подписки, просмотрите учебные курсы, узнайте, как защитить свое устройство и т. д.

В сообществах можно задавать вопросы и отвечать на них, отправлять отзывы и консультироваться с экспертами разных профилей.