Applies ToAccess para Microsoft 365 Access 2021 Access 2019 Access 2016

Retorna uma Variante do erro de subtipo que contém uma número do erro especificada pelo usuário.

Sintaxe

CVErr ( errornumber )

O número de erros necessárioargumento é qualquer número de erro válido.

Comentários

Use a função CVErr para criar erros definidos pelo usuário em procedimentos criados pelo usuário. Por exemplo, se você criar uma função que aceita vários argumentos e normalmente retorna uma cadeia de caracteres, você pode fazer com que sua função avalie os argumentos de entrada para garantir que eles estejam dentro do intervalo aceitável. Se não estiverem, é provável que sua função não retorne o que você espera. Nesse evento, o CVErr permite que você retorne um número de erro que informe a você quais ações devem ser tomadas.

Observe que a conversão implícita de um Erro não é permitida. Por exemplo, você não pode atribuir diretamente o valor de retorno do CVErr a um variável que não é uma Variant. No entanto, você pode executar uma conversão explícita (usando CInt, CDbl e assim por diante) do valor retornado pelo CVErr e atribuir isso a uma variável do tipo de dados apropriado .

Exemplo

Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.

Este exemplo usa a função CVErr para retornar uma Variant cujo VarType é vbError (10). A função definida pelo usuário CalculateDouble retorna um erro se o argumento passado para ele não for um número. Você pode usar o CVErr para retornar erros definidos pelo usuário de procedimentos definidos pelo usuário ou adiar o tratamento de um erro em tempo de execução. Use a função IsError para testar se o valor representa um erro.

' 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

Precisa de mais ajuda?

Quer mais opções

Explore os benefícios da assinatura, procure cursos de treinamento, saiba como proteger seu dispositivo e muito mais.

As comunidades ajudam você a fazer e responder perguntas, fazer comentários e ouvir especialistas com conhecimento avançado.