Sandro BarbosaSantos

?

Alguém teria alguma idéia de solução ? Obrigado

Boa Tarde Testei mas não funcionou ainda.

Este é meu código, até aqui na macro, executa tranquilo, aí cai na tela de OK e não sai.

Boa Tarde Obrigado pelo retorno. Segue a foto da mensagem que aparece, após a execução da macro, necessito que este OK seja confirmado automaticamente, após a execução da macro.

?

Boa Tarde Alyson, testei sua dica, porém ainda não surtiu o efeito, continua aparecendo o OK para confirmar, o ideal é o código q insira ALT+F4 Dim appAccess Set appAccess = createObject("Access.Application") appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb") appAccess.Visible = True appAccess.UserControl = True appAccess.DoCmd.RunMacro "matrix" appAccess.DoCmd.Quit acQuitSaveAll 'appAccess.Application.Quit 'appAccess.Applications.SendKeys "%{F4}" 'wsh.SendKeys "%{F4}"

Boa Tarde Sim, coloquei logo após o comando appAccess.DoCmd.RunMacro "matrix" a sequência abaixo appAccess.Application.Quit simplesmente fica na tela, com a mensagem inserida na execução da macro, aguardando confirmar com ENTER o OK Dim appAccess Set appAccess = createObject("Access.Application") appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb") appAccess.Visible = True appAccess.UserControl = True appAccess.DoCmd.RunMacro "matrix" appAccess.Application.Quit 'appAccess.Applications.SendKeys "%{F4}" 'wsh.SendKeys "%{F4}"

Dim appAccess Set appAccess = createObject("Access.Application") appAccess.OpenCurrentDatabase("C:\Users\Administrador.APTI\Documents\Banco de dados1.accdb") appAccess.Visible = True appAccess.UserControl = True appAccess.DoCmd.RunMacro "matrix" appAccess.Application.Quit 'wsh.SendKeys "%{F4}"