[Resolvido]Erro 2046 ao clicar em botão que executa determinada macro no access 2010

Senhores,

Tenho um botão em um formulário que executa o procedimento abaixo, mas quando clico neste botão o access 2010 retorna com erro de macro 2046. Como posso resolver? A macro Exportarexceldiario, exporta uma determinada consulta para o excel.

Private Sub Comando16_Click()
On Error GoTo trataerro 'Se clicar em cancelar vai para instrução de tratamento de erro, pois o erro gerado é 2001


DoCmd.RunMacro "Exportarexceldiario"



Exit Sub
trataerro: 'Instrução de tratamento de erro
Err.Number = 2001 'Número do erro gerado ao clicar Cancelar da caixa da consulta
DoCmd.OpenForm "frmCancela" ' Abri o formulário frmCancela para informa que foi cancelado a pesquisa
End Sub

Tente utilizar VBA para fazer essa exportacao..

Funcionou, ok.

ok