Exportar consulta direto com botão da Ribbon

Prezados colegas, boa tarde

Tenho um projeto onde uso o access através de ribbons para acessar os formulários e relatórios, em alguns acessos existem botões para exportar determinadas consultas para o formato excel. Só que estes botões em qualquer menu só funcionam somente 1 vez, ou seja, se é aberto o sistema e é clicado para exportar determinado documento, este funciona, só que se clicar novamente em algum outro botão para exportar ou mesmo o clicado anteriormente, já não funciona mais, daí é preciso fechar o sistema e abrir de novo. Um coisa que notei é que se abro um formulário qualquer e com este formulário aberto eu clico no botão da ribbon para exportar, daí funciona, só que não posso deixar habilitado desta forma, já tentei até colocar para abrir um formulário hidden mas se coloco ele como hidden também não funciona, somente quando está um formulário visível que o botão exporta, alguma sabe me dizer oque pode ser?

E oque mais me espanta, isto só ocorre nos botões de exportar consulta, se atribuir isto para visualizar relatório funciona normalmente, só dá este bug nos casos de exportar. Já fiz uns teste e o botão está aceitando o comando, só que ele não executa nesta segunda vez.

Apenas para nivelar conhecimento, sou usuário de intermediário pra baixo... mas tenho algumas noções de vba através dos materiais aqui do forum.

Desde já agradeço a atenção dos prezados colegas.


Abaixo está o onAction da Ribbon: *************


<button id="MenuProducao6" imageMso = "FileSaveAsExcel97_2003" label="Detalhe acumulado" onAction="fncExportCarteira"/>


Abaixo a função que executa o comando: *************

Sub fncExport(control As IRibbonControl)

Select Case control.Id
       
       Case "MenuPCP6" 'nome do botao
           DoCmd.OutputTo acQuery, "qryPedidoAll", "MicrosoftExcelBiff8(*.xls)", "C:\Sistema\Carteira Analítica.xls", False, "", 0
           MsgBox "Arquivo salvo na pasta 'C:\Sistema', verifique !", vbInformation, "Aviso"
       Case "MenuPCP7"
           DoCmd.OutputTo acQuery, "qryPedido_Carteira", "MicrosoftExcelBiff8(*.xls)", "C:\Sistema\Carteira Sintética.xls", False, "", 0
           MsgBox "Arquivo salvo na pasta 'C:\Sistema', verifique !", vbInformation, "Aviso"
       Case "MenuProducao6"
           DoCmd.OutputTo acQuery, "qryProducao_SinteAcum", "MicrosoftExcelBiff8(*.xls)", "C:\Sistema\Producao acumulado detalhado.xls", False, "", 0
           MsgBox "Arquivo salvo na pasta 'C:\Sistema', verifique !", vbInformation, "Aviso"
End Select

End Sub

Boa noite,
Essa faixa será contextual e só aparece quando se verifica as condições