Método Application.AccessError (Access)

Use o método AccessError para retornar a cadeia de caracteres descritiva associada a um erro DAO (Microsoft Access ou Data Access Objects).

Sintaxe

expressão. AccessError (ErrorNumber)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Errornumber	Obrigatório	Variant	O número do erro para o qual você deseja retornar uma sequência de caracteres descritiva.

Valor de retorno

Variant

Comentários

Use o método AccessError para retornar a cadeia de caracteres descritiva associada a um erro do Microsoft Access ou DAO quando o erro não ocorreu de fato, mas você não pode usá-la para erros de ADO.

Use o método Visual Basic Raise para gerar um erro do Visual Basic. Depois de gerar o erro, você pode determinar sua cadeia de caracteres descritiva associada lendo a propriedade Description do objeto Err .

Você não pode usar o método Raise que eleve um Microsoft Access ou um erro do DAO. No entanto, você pode usar o método AccessError para retornar a cadeia de caracteres descritiva associada a esses erros, sem precisar gerar o erro.

Use o método AccessError para retornar uma cadeia de caracteres descritiva de dentro do evento Error de um formulário.

Se tiver ocorrido um erro do Microsoft Access, você pode retornar a cadeia de caracteres descritiva utilizando o método AccessError ou a propriedade Description do objeto Err do Visual Basic.

Exemplo

A função a seguir retorna uma cadeia de caracteres de erro para qualquer número de erro válido.

Observação

Você deve ter suas opções de captura de erro definidas como Quebrar em Erros Não Manipulados para o código a ser executado no IDE do VBA. Você pode definir essa opção na guia Geral da caixa de diálogo Opções encontrada no menu Ferramentas do VBA.

Function ErrorString(ByVal lngError As Long) As String 
 
 Const conAppError = "Application-defined or " & _ 
 "object-defined error" 
 
 On Error Resume Next 
 Err.Raise lngError 
 
 If Err.Description = conAppError Then 
 ErrorString = AccessError(lngError) 
 ElseIf Err.Description = vbNullString Then 
 MsgBox "No error string associated with this number." 
 Else 
 ErrorString = Err.Description 
 End If 
 
End Function

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.