Este fórum está sendo desativado

[guh2309]

Olá,

Estou com o problema abaixo para executar uma macro na qual atualiza um consulta de acrescentar do Access para que após esse processo atualize um dinâmica do meu relatório. Mas necessito que seja enviado diretamente sem necessitar dar a confirmação conforme a imagem em anexo. Alguém sabe o código para realizar essa ação sem a notificação do excel?

obs.: tenho outros relatórios que funcionam dessa forma, com o mesmo código e não aparece a mensagem.


Se alguém souber algum forma de driblar essa mensagem, agradeço.

Código: Selecionar todos

'Importação_Access

 

    Dim sCaminho As String
    Dim obj As Object
    Dim appObj As Object

 

       'Public Function RunMacro()
       ' On Error Resume Next
    Dim secAutomation As MsoAutomationSecurity
    secAutomation = Application.AutomationSecurity

 

    Application.AutomationSecurity = msoAutomationSecurityLow

 

        'Application.ScreenUpdating = False
        Set A = CreateObject("Access.Application")
        strDB = "\\192.168.200.81\mis\Itau\PJ\Bases\Bases.accdb"
        A.AutomationSecurity = msoAutomationSecurityLow
        A.OpenCurrentDatabase strDB
        A.DoCmd.SetWarnings False
        A.Visible = True
        'Application.DisplayAlerts = False


 

        A.DoCmd.OpenQuery "acr_BaseComiteOut", acViewNormal, acEdit
         
         

        A.DoCmd.SetWarnings False
        A.Quit

[NemPensar]

Olá @guh2309 , tudo bem?

No escopo onde a mensagem do Excel surge, use:

Código: Selecionar todos

Application.DisplayAlerts = False

e quando quiser habilitar novamente as mensagens do Excel, use:

Código: Selecionar todos

Application.DisplayAlerts = True

Qualquer coisa, reporte.