Método Application.AccessError (Access)

Utilize o método AccessError para devolver a cadeia descritiva associada a um erro do Microsoft Access ou objetos de acesso a dados (DAO).

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
Número de Erro	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

Utilize o método AccessError para devolver a cadeia descritiva associada a um erro do Microsoft Access ou DAO quando o erro não tiver realmente ocorrido, mas não pode utilizá-lo para erros de ADO.

Utilize o método Visual Basic Raise para gerar um erro do Visual Basic. Depois de ter gerado o erro, pode determinar a cadeia descritiva associada ao ler a propriedade Descrição 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.

Utilize o método AccessError para devolver uma cadeia descritiva a partir do evento Erro 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 seguinte devolve uma cadeia de erro para qualquer número de erro válido.

Observação

Tem de ter as opções de interceção de erros definidas como Interromper em Erros Não Processados para que o código seja executado no IDE VBA. Pode definir esta opção no separador 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.