Atualizar Access sem necessitar confirmar mensagem
Enviado: 15 Jul 2021 às 16:00
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.
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