[Resolvido]Como Tratar erro de importação de dados de uma planilha

Prezados,

Tenho um BD que faz a importação dos dados de uma planilha do excel. Quando a planilha está formatada corretamente, a importação é bem sucedida. Porém, se houver informações inconsistentes ou a planilha não estiver formatada corretamente, o Access gera uma tabela com os erros de importação e exibe uma mensagem.

Eu gostaria de saber como tratar este erro. Gostaria de mostrar para o usuário uma mensagem que ocorreu o erro na importação da planilha, qual foi o campo que apresentou o problema e que o Access não criasse essa tabela de erros de importação.

Como posso fazer isso?

Obrigado.

Tente o seguinte, coloque no início do evento:

On Error GoTo TErro

E no final, antes de End Sub ou End Function:

Código:

TErro:
    If Err.Number <> 0 Then
        MsgBox "Ocorreu uma falha na importação." & VBCRLF & VBCRLF & "Número da ocorrência: " & Err.Number & VBCRLF & "Descrição: " & Err.Description & VBCRLF & VBCRLF & "Os dados foram importados mesmo assim.", vbInvormation, "Atenção"
    End If

Prezado Criquio,

Testando este código, inseri na minha planilha em um campo do tipo decimal um valor texto para forçar o erro.

O access importou os registros da planilha, criou automaticamente uma tabela chamada "xxx_ImportErros" e não entrou no bloco if caso ocorresse algum erro não avisando o usuário que houve um erro.

Na tabela que o access criou, consta o campo, o número da linha e a descrição do erro que neste caso é "falha na conversão de tipos".

Eu precisava tratar esse tipo de erro, ou seja, conseguir avisar o usuário que o erro ocorreu e conseguir não deixar o access criar esta tabela com os erros ou ter um jeito de excluí-la.

Conto com sua ajuda. Obrigado.

Acredito que seja uma boa ideia, depois da importação, verificar se essa tabela existe, uma vez que ela guarda os dados do erro. Existindo, pode usar um DLookup para exibir os dados sobre o erro e, posteriormente, excluir a tabela.

Ok. obrigado.