Criação de mensagens amigáveis ​​em seu aplicativo de banco de dados Access pode ser mais eficaz do que exibir a mensagem de erro padrão . No Visual Basic for Applications (VBA) , utilize a instrução "On Error GoTo " para interceptar erros e direcionar o fluxo de procedimento para a localização de declarações de manipulação de erros . Criar uma mensagem de erro descritiva utilizando uma caixa de mensagem que irá informar o usuário sobre o erro e, possivelmente, sobre a forma de corrigi-lo. Instruções
1

Clique em "Ferramentas de banco de dados ", depois " Visual Basic " para abrir o editor Microsoft Visual Basic. . Clique no menu "Inserir" , depois em " Módulo " para adicionar um novo módulo de código
2

Crie um novo procedimento sub:

Private Sub createErrorMessage ()

On Error GoTo Err_createErrorMessage :
3

Crie uma variável de cadeia de caracteres que você vai usar para gerar um erro:

Dim myData As String

myData = " 1234567 "
4

Adicione o seguinte código para gerar um erro , acrescentando " -1" para a propriedade length da função " Left":

myData = Esquerda ( 0, -1)
5

Digite o seguinte código para capturar o erro e criar uma mensagem de erro informando o usuário sobre o erro :

Exit_createErrorMessage :

Exit Sub

Err_createErrorMessage :

MsgBox "Erro: . Comprimento deve ser maior que zero " , vbCritical

End Sub
6

Pressione " F5" para executar o procedimento sub e ver a resposta .