[Resolvido]DeBug ao clicar cancelar

olá.
estou a fazer uma base de dados em access para usar somente um formulário para introduzir dados e ocultei as outras janelas.
criei um botão EXPORTAR PARA EXCEL com o seguinte código:
Private Sub botão_exportar_para_excel_Click()
DoCmd.OutputTo acOutputTable, "CONTACTOS", "MicrosoftExcel Workbook (*.xlsx)", "", True, "", 0
End Sub

ao clicar abre uma janela do windows Exportar Para, e escolho onde guardar e OK.
contudo ao testar esta funcionalidade, cliquei em cancelar e apareceu-me um aviso de
Run-time error '2501':
A acção output foi cancelada.
End     DeBug    Help     (<---botões)

como faço para somente cancelar e fechar a janela sem este aviso.

Obrigado.

Coloque assim:

On Error Resume Next
DoCmd.OutputTo acOutputTable, "Tbl_CadProd", "MicrosoftExcel Workbook (*.xlsx)", "", True, "", 0


Testei aqui e Funcionou... so muda a sua tabela...

deu certo
Obrigado

Bacana..., Marque o topico como resolvido!!!

Ola a todos;

Deu certo sim, porque está a inibir todas as mensagens de erro.
Não é boa pratica em programação fazer isso, porque se acontecer outro erro qualquer, você nunca irá saber o que se está a passar para poder corrigir.

Deve fazer o tratamento de erro, desta forma;

Código:

Private Sub botão_exportar_para_excel_Click()
On Error GoTo 1
DoCmd.OutputTo acOutputTable, "CONTACTOS", "MicrosoftExcel Workbook (*.xlsx)", "", True, "", 0
1:
If Err.Number = 2501 Then
        Err.Number=0
        Exit Sub
    Else

        MsgBox Err.Description
        Exit Sub
    End If
End Sub

Bacana JPaulo, Poderia me fala qual tratamento ele da... o que faz com essa instrução?
1:
If Err.Number = 2501 Then
Err.Number=0
Exit Sub
Else

MsgBox Err.Description
Exit Sub

O tratamento é no erro 2501 que o usuário já sabe que é originado pelo cancelar, ae trata-o para não dar mensagem.

Todos os outros que possam a vir a aparecer, dará mensagem ao usuário.

Valeu....

Só dava 1 erro, penso que On Error Resume Next bastava.
JPaulo foi mais específico mas ajuda a aprender.
Obrigado, fabiopaes, JPaulo