MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Menu relatório com opção exportar para Excel

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 767
    Registrado : 30/08/2010

    [Resolvido]Menu relatório com opção exportar para Excel Empty [Resolvido]Menu relatório com opção exportar para Excel

    Mensagem  gilberlanio em 6/4/2020, 15:16

    Olá pessoal, gosteria da ajuda de vocês. Uso esse módulo para chamar o menu relatório com clique do botão direito do mouse.
    Gostaria de acrescentar no menu a opção: "Exportar para o Excel"

    Algum dica?

    Código:
    Sub fncMenu()
    Dim cmbRightClick As Office.CommandBar
    Dim cmbControl As Office.CommandBarControl

    ' Create the shortcut menu.
    Set cmbRightClick = CommandBars.Add("AtalhoRelatorio", msoBarPopup, False, True)

    With cmbRightClick

    ' Add the Print command.
    Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
    ' Change the caption displayed for the control.
    cmbControl.Caption = "Impressão Rápida"

    ' Add the Print command.
    Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
    ' Change the caption displayed for the control.
    cmbControl.Caption = "Selecionar Impressora"

    ' Add the Page Setup... command.
    Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
    ' Change the caption displayed for the control.
    cmbControl.Caption = "Configurar Página"

    ' Add the Mail Recipient (as Attachment)... command.
    Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
    ' Start a new group.
    cmbControl.BeginGroup = True
    ' Change the caption displayed for the control.
    cmbControl.Caption = "Enviar como anexo no e-mail"

    ' Add the PDF or XPS command.
    Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
    ' Change the caption displayed for the control.
    cmbControl.Caption = "Salvar como PDF/XPS"

    ' Add the Close command.
    Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
    ' Start a new group.
    cmbControl.BeginGroup = True
    ' Change the caption displayed for the control.
    cmbControl.Caption = "Fechar Relatório"
    End With

    Set cmbControl = Nothing
    Set cmbRightClick = Nothing
    End Sub


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Menu relatório com opção exportar para Excel Empty Re: [Resolvido]Menu relatório com opção exportar para Excel

    Mensagem  Marcelo David em 6/4/2020, 19:18

    Boa tarde,

    obrigatoriamente em um módulo (pode ser qualquer um):

    Código:
    Public Function fncExporta()
        DoCmd.RunCommand acCmdExportExcel
    End Function


    No seu código de criar o menu, acrescente o botão de exportação para Excel que chamará a função pública do módulo:
    Código:
    Set cmbControl = .Controls.Add(msoControlButton, 263, , , True)
    cmbControl.onaction = "=subExporta()"
    cmbControl.caption = "Exportar para Excel"
    cmbControl.onaction = "=fncExporta()"

    Aguardamos,


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 767
    Registrado : 30/08/2010

    [Resolvido]Menu relatório com opção exportar para Excel Empty Re: [Resolvido]Menu relatório com opção exportar para Excel

    Mensagem  gilberlanio em 7/4/2020, 00:50

    Testado e aprovado, funcionar perfeitamente. Obrigado


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3142
    Registrado : 21/04/2011

    [Resolvido]Menu relatório com opção exportar para Excel Empty Re: [Resolvido]Menu relatório com opção exportar para Excel

    Mensagem  Marcelo David em 7/4/2020, 02:56

    Opa! Grato pelo retorno!

    Obs.: a linha: cmbControl.onaction = "=fncExporta()" está duplicada. Pode apagar uma delas (só percebi agora  Embarassed )  Very Happy

    Sucesso!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: 13/8/2020, 15:50