[resolvido] Função Call na Ribbon

Moderador: Avelino Sampaio

Sidney
Mensagens: 96
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

[resolvido] Função Call na Ribbon

Mensagempor Sidney » 18 Abr 2018, 13:50

Prezados Bom dia!!

Criei um relatório chamado "rel_Funcionario", no evento ao carregar deste mesmo coloquei a função abaixo:

Código: Selecionar todos

Private Sub Report_Load()

Dim strRelAtual As String
    strRelAtual = "rel_Funcionarios"

End Sub


Na faixa da Ribbon deste relatório adicionei uma ribbon chamado Excel, que tem como função exportar a tabela deste relatório para excel, e neste coloquei o codigo abaixo:

Código: Selecionar todos

Case "BtExpExcell"
   
         Call ExportarRelatorioExcel


E este vai chamar o arquivo com a função abaixo:

Código: Selecionar todos

Public Sub ExportarRelatorioExcel()

Select Case strRelAtual
         
      Case "rel_Funcionarios"
       DoCmd.OutputTo acOutputTable, "tab_Funcionarios", "Excel97-Excel2003Workbook(*.xls)", "tab_Funcionarios" & "_" & Format(Now, "ddmmyy") & ".xls", True, "", , acExportQualityPrint
       MsgBox "Arquivo exportado com sucesso!!!"

End Select

End Sub


Porém, o erro que esta acontecendo é que a variável strRelAtual nao está recebendo o valor que deveria, está vazio, como mostra imagem abaixo.

Alguém sabe me dizer o porque a variável não está recebendo o valor como deveria.

att: Sidney
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Sidney Carvalho

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1901
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Função Call na Ribbon

Mensagempor Avelino Sampaio » 18 Abr 2018, 13:57

Sidney,

utilize o TempVars

Código:
Private Sub Report_Load()
TempVars!strRelAtual = "rel_Funcionarios"
End Sub


Código:
Public Sub ExportarRelatorioExcel()
Select Case TempVars!strRelAtual
Case "rel_Funcionarios"
DoCmd.OutputTo acOutputTable, "tab_Funcionarios", "Excel97-Excel2003Workbook(*.xls)" ...
MsgBox "Arquivo exportado com sucesso!!!"
End Select
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Sidney
Mensagens: 96
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

Re: Função Call na Ribbon

Mensagempor Sidney » 18 Abr 2018, 14:13

Avelino,
Como de sempre Perfeito!! obrigado mais uma vez, tenho que renovar minha conta do site com você, mas entro em contato

att; Sidney
Sidney Carvalho

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Ribbons”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante